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1.0 GENERAL INFORMATION 

1.1 PROGRAM ABSTRACT 

THE ML11 PERFORMANCE EXERCISER IS A BLISS PROGRAM WHICH RUNS UNDER 
THE PDP-11 DIAGNOSTIC SUPERVISOR AND WHICH EXERCISES UP TO 8 ML11 
UNITS ON A SINGLE RH CONTROLLER. AN ML11 UNIT IS A FAST, RANDOM AC- 
CESS. BLOCK MODE MOS MEMORY SYSTEM WITH ECC CAPABILITY. IT IS MADE 
UP OF 3 CONTROL MODULES AND UP TO 16 ARRAY MODULES. IT IS A MASSBUS 
DEVICE. AND AS SUCH, CONFORMS TO MASSBUS STANDARDS. 

THIS DIAGNOSTIC HAS BEEN WRITTEN FOR USE WITH THE DIAGNOSTIC RUNTIME 
SERVICES SOFTWARE (SUPERVISOR). THESE SERVICES PROVIDE THE INTERFACE 
TO THE OPERATOR AND TC THE SOFTWARE ENVIRONMENT. THIS PROGRAM CAN BE 
USED WITH XXDP+, ACT, APT, SLIDE AND PAPER TAPE. FOR A COMPLETE DES- 
CRIPTION OF THE RUNTIME SERVICES, REFER TO THE XXDP+ USER’S MANUAL. 
THERE IS A BRIEF DESCRIPTION OF THE RUNTIME SERVICES IN SECTION 2 OF 
THIS DOCUMENT. 

1.2 SYSTEM REQUIREMENTS 

1. PDP-11 WITH 28K WORDS OF MEMORY 

2. CONSOLE TERMINAL 

3. RH11 OR RH70 CONTROLLER 

4. 1 TO 8 ML11A OR ML118 DRIVES 

5. XXDP+ LOAD MEDIA 

1.3 RELATED DOCUMENTS AND STANDARDS 

THE HARDWARE DESIGN IS EXPECTED TO CONFORM TO THE STANDARDS SET FORTH 
IN THE MASSBUS SPECIFICATION (DEC STANDARD 159). 

THE FOLLOWING DOCUMENTATION MAY PROVE USEFUL IN LEARNING MORE ABOUT 
THE ML11: 

1. ML 11 ENGINEERING SPECIFICATION 

2. RWS04 FIXED-HEAD DISK SUBSYSTEM USER'S MANUAL 

3. THE ML 1 1 PERFORMANCE EXERCISER'S PROGRAM LISTING 

4. THE ML 11 LOGIC TEST'S SPECIFICATIONS AND LISTINGS 

5. ML 11 PROJECT PLAN 

6. XXDP+ USER'S MANUAL (CHQUS) 

7. PDP-11 DIAGNOSTIC SUPERVISOR DOCUMENTATION (SUPINT, SUPFUN, 

1.4 DIAGNOSTIC HIERARCY PREREQUISITES 

ML 1 1 SUBSYSTEM FAULTS WILL BE DETECTED BUT NOT ISOLATED, SINCE OTHER 
DIAGNOSTICS WILL BE AVAILABLE FOR TROUBLESHOOTING THE EXACT CAUSE OF 
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FAILURE. A LIST OF AVAILABLE DIAGNOSTIC TOOLS IS INCLUDED IN APPEN- 
DIX A Or THE ML11 FUNCTIONAL SPECIFICATION. 

1.S ASSUMPTIONS 

2.0 OPERATING INSTRUCTIONS 

THIS SECTION CONTAINS A VERT BRIEF DESCRIPTION OF THOSE PARTS OF THE 
DIAGNOSTIC RUNTIME SERVICES OF THE PDP-11 DIAGNOSTIC SUPERVISOR WHICH 
ARE APPLICABLE FOR THIS EXERCISER. CONSULT THE XXDP+ USER'S MANUAL 
(CHOUS) FOR MORE DETAILS. 

2.1 COMMANDS 

THE FOLLOWING IS A LIST OF THE 11 CW.ANDS AVAILABLE TO THE DRS. ANY 
COMMAND IS RECOGNIZED BY ITS FIRST 3 CHARACTERS, AND MANY COMMANDS 
MAY BE MODIFIED BY OPTIONAL SWITCHES WHICH ARE DESCRIBED IN THE NEXT 
SECTION. 

DRS COMMAND 

START 

RESTART 

CONTINUE 

PROCEED 

EXIT 

ADD 

DROP 
PRINT 
DISPLAY 
FLAGS 
ZF LAGS 

2.2 SWITCHES 

SWITCHES ARE USED TO MODIFY PROGRAM OPERATION, AND ARE APPENDED TO 
COMMANDS. THE SWITCHES WHICH HAVE MEANING FOR THIS EXERCISER AND IN- 
FORMATION ABOUT THEIR USE ARE GIVEN IN THE FOLLOWING TWO TABLES. 

SWITCH EFFECT 

/PASS.’DDDDD 

/FLAGS :FLGS 

/EOP:DDDDD 


EFFECT 

START THE DIAGNOSTIC FROM AN INITIAL STATE 

START THE DIAGNOSTIC WITHOUT INITIALIZING 

CONTINUE AT TEST THAT WAS INTERRUPTED (AFTER *C) 

CONTINUE FROM AN ERROR HALT 

RETURN TO THE XXDP* MONITOR 

ACTIVATE A UNIT FOR TESTING (ALL UNITS ARE 
CONSIDERED TO BE ACTIVE AT START TIME) 

DEACTIVATE A UNIT 

PRINT STATISTICAL INFORMATION 

TYPE A LIST OF ALL DEVICE INFORMATION 

TYPE THE STATE OF ALL FLAGS (SEE SECTION 2.3) 

CLEAR ALL FLAGS (SEE SECTION 2.3) 


EXECUTE DDDDD PASSES (DDDDD = 1 TO 64000) 
SET SPECIFIED FLAGS (SEE SECTION 2.3) 
REPORT END OF PASS MESSAGE AFTER EVERY 
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DDDDD PASSES ONLY (DDDDD = 1 TO 64000). 

/UNITS.-LIST TEST/ADD/DROP ONLY THOSE UNITS SPECIFIED 

IN THE LIST. LIST EXAMPLE: /UNITS:0:3:5-7 
USE UNITS 0,3, 5, 6, 7 (UNIT NUMBERS - 0-7) 

EXAMPLE OF SWITCH USAGE: 

START/PASS : 1 OOO/EOP : 1 00 

THE EFFECT OF THIS COMMAND WILL BE: 

1. ALL UNITS WILL BE TESTED 1000 TIM 

2. THE END OF PASS MESSAGES WILL BE 
PRINTED AFTER EACH 100 PASSES ONLY. 

BELOW IS A TABLE THAT SPECIFIES WHICH SWITCHES CAN BE USED BY EACH 
COMMAND. 

PASS FLAGS EOP UNITS 

START X X X X 

RESTART X X X X 

CONTINUE XXX 

PROCEED X 

DROP X 

ADD X 

PRINT 

DISPLAY X 

FLAGS 

ZF LAGS 

EXIT 

2.3 FLAGS 

FLAGS ARE USED TO SET UP CERTAIN OPERATION PARAMETERS SUCH AS LOOPING 
ON ERROR. ALL FLAGS ARE CLEARED AT STARTUP AND REMAIN CLEARED UNTIL 
EXPLICITLY SET USING THE FLAGS SWITCH. FLAGS ARE ALSO CLEARED AFTER 
A START COMMAND UNLESS SET USING THE FLAG SWITCH. THE ZFLAGS COMMAND 
MAY ALSO BE USED TO CLEAR ALL FLAGS. WITH THE EXCEPTION OF THE START 
AND ZFLAGS COMMANDS, NO COMMANDS AFFECT THE STATE OF THE FLAGS. THEY 
REMAIN SET OF CLEARED AS SPECIFED BY THE LAST FLAG SWITCH. 

FLAG EFFECT 

HOE HALT ON ERROR - CONTROL IS RETURNED TO 

DRS COMMAND MODE 

LOE LOOP ON ERROR 

IER* INHIBIT ALL ERROR REPORTS 

I BE* INHIBIT ALL ERROR REPORTS EXCEPT 

FIRST LEVEL (FIRST LEVEL CONTAINS 
ERROR TYPE, NUMBER, PC, TEST AND UNIT) 


J 
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IXE* INHIBIT EXTENDED ERROR REPORTS (THOSE 

CALLED BY PRINTX MACRO'S) 

PRI DIRECT MESSAGES TO LINE PRINTER 

BOE ‘BELL" ON ERROR 

ISR INHIBIT STATISTICAL REPORTS 

IDU INHIBIT PROGRAM DROPPING OF UNITS 

ADR EXECUTE AUTODROP CODE 

* ERROR MESSAGES ARE DESCRIBED IN SECTION 4.7 

SEE THE XXDP+ USER'S MANUAL FOR MORE DETAILS ON FLAGS. MORE THAN ONE 
FLAG MAY BE SPECIFIED WITH THE /FLAGS SWITCH. FOR EXAMPLE, TO CAUSE 
THE PROGRAM TO LOOP ON ERROR. INHIBIT ERROR REPORTS AND TYPE A ’BELL" 
ON ERROR, YOU MAY USE THE FOLLOWING STRING: 

/FLAGS:LOE:IER:BOE 

2.4 HARDWARE QUESTIONS 

WHEN A DIAGNOSTIC IS STARTED, THE DIAGNOSTIC RUNTIME SERVICES PROMPTS 
THE USER FOR HARDWARE INFORMATION BY TYPING "CHANGE HW (L) ?". YOU 
MUST ANSWER "Y" AFTER A START COMMAND UNLESS THE HARDWARE INFORMATION 
HAS BEEN PRELOADED USING THE SETUP UTILITY (SEE CHAP. 6 OF THE XXDP* 
USER'S MANUAL). WHEN YOU ANSWER THIS QUESTION WITH A "Y" THE RUNTIME 
SERVICES WILL ASK FOR THE NUMBER OF UNITS (IN DECIMAL). YOU WILL THEN 
BE ASKED THE FOLLOWING QUESTIONS FOR EACH UNIT: 


2.4.1 QUESTIONS AND ANSWERS 

1. CSR ADDRESS (172000) 0? 

ANSWER: THE CSR ADDRESS OF THE RH CONTROLLER 
(OCTAL, DEFAULT 172000). 

2. INTERRUPT VECTOR (204) 0? 

ANSWER: THE INTERRUPT VECTOR ADDRESS 
(OCTAL, DEFAULT 204). 


3. BR LEVEL FOR INTERRUPT (5) 0? 

ANSWER: THE BUS REQUEST LEVEL FOR INTERRUPT 
(OCTAL, DEFAULT 5). 


4. DRIVE NUMBER (0) 0? 


SEO 0006 


ANSWER: THE PHYSICAL DRIVE NUMBER (S) OF THE DRIVE(S) TO BE TESTED 
(OCTAL. C0-7> , DEFAULT 0). 
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2.4.2 SUMMARY OF HARDWARE QUESTION SEQUENCE 


f UNITS? * 
* 


CSR ADDRESS? * 


VECTOR? * 


BR LEVEL? * 
* 


DRIVE NUMBER? * 
* 


2.5 SOFTWARE QUESTIONS 

AFTER YOU HAVE ANSWERED THE HARDWARE QUESTIONS. OR AFTER A RESTART OR 
OR CONTINUE COMMAND. THE RUNTIME SERVICES WILL ASK FOR SOFTWARE 
PARAMETERS. THESE PARAMETERS WILL 60VERM SOME DIAGNOSTIC SPECIFIC 
OPERATION MODES. YOU WILL BE PROMPTED BY "CHANGE SW <L) ?" 

IF YOU WISH TO CHANGE ANY PARAMETERS. ANSWER BY TYPING 

*V\ THE SOFTWARE QUESTIONS AND THE DEFAULT VALUES ARE DESCRIBED 

IN THE NEXT PARAGRAPH(S). 

INCLUDED IN THIS SECTION ARE QUESTIONS ABOUT PARAMETERS WHICH AFFECT 
PROGRAM OPERATION. REQUESTS FOR SOFTWARE OPTIONS SHOULD BE DISCUSSED 
AND INCORPORATED INTO THIS SPECIFICATION AS SOON AS POSSIBLE. AND CER- 
TAINLY BEFORE SIGNOFF TIME. 

IF A A 7 (CONTROL-Z) IS TYPED AS THE ANSWER TO ANY OUESTION. THE PRO- 
GRAM WILL START TO EXECUTE. 

IF A A C (CONTROL-C) IS TYPED AT ANY TIME. CONTROL WILL RETURN TO THE 
DIAGNOSTIC SUPERVISOR. 


i 
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SEQ 0008 


2.5.1 QUESTIONS AND ANSWERS 

1. LIMIT RANGE OF SECTORS TO BE TESTED (N) L? 

ANSWER: TO TEST ONLY A CERTAIN RANGE OF SECTORS INSTEAD OF AN EN- 
TIRE UNIT. ALTHOUGH THIS QUESTION IS NOT OPTIONAL, IT 
SHOULD BE ANSWERED 'NO' UNLESS THE ANSWER TO THE HARDWARE 
QUESTION "* UNITS ?" WAS 1. 

(LOGICAL, CY TO TEST PARTIAL UNIT, N FOR ENTIRE UNIT>, DE- 
FAULT N). 

THE QUESTIONS WHICH FOLLOW ARE OPTIONAL, AND DEPEND ON AN AFFIRMA- 
TIVE ANSWER TO THE PREVIOUS QUESTION: 

2. DO YOU KNOW THE EXACT RANGE OF SECTORS TO BE TESTED (N) L? 

ANSWER: THIS DECIDES WHETHER TO ASK FOR SECTOR NUMBERS OR 
BOARD NUMBER. 

THE NEXT TWO QUESTIONS WILL BE ASKED ONLY IF QUESTION 2 IS 
ANSWERED YES: 

3. FIRST SECTOR TO TEST (0) 0? 

ANSWER: THE SECTOR NUMBER WHERE TESTING BEGINS 

(OCTAL, CO-7777 FOR ML11A, 0-37777 FOR ML1133, 
DEFAULT 0). 

4. LAST SECTOR TO TEST (LAST) 0? 

ANSWER: THE LAST SECTOR NUMBER TO BE TESTED 

(OCTAL, CO-7777 FOR HL11A, 0-37777 FOR ML11B3, 
DEFAULT 37777). 

THE NEXT OUESTION WILL BE ASKED ONLY IF QUESTION 2 IS ANSWERED 
NO: 

5. WHICH BOARD Cl -163 SHOULD BE TESTED (1) D? 

ANSWER: THE NUMBER OF THE ONLY BOARD TO BE TESTED 
(DECIMAL, Cl -163, DEFAULT 1). 


6. THE PROGRAM OPTIONS INCLUDE: 


1. ADDRESS CHECK 

2. PATTERN TEST 
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3. UNIQUE DATA CHECK 

4. MARCH TEST 

5. RANDOMNESS TESTS 

DO YOU WANT TO DROP ANY OF THESE FROM THE EXERCISER (N) L? 

ANSWER: THIS DECIDES WHETHER TO ASK FOR OPTION NUMBERS. 

(LOGICAL, <Y FOR PARTIAL EXERCISER, N FOR COMPLETE EX- 
ERCISERS DEFAULT N). 


THE FOLLOWING SET Or QUESTIONS WILL BE ASKED ONLY IF QUESTION 
6 IS ANSWERED YES: 

7. DROP OPTION 1 (N) L? 

8. DROP OPTION 2 (N) L? 

9. DROP OPTION 3 (N) L? 

10. DROP OPTION 4 (N) L? 

11. DROP OPTION 5 (N) L? 

12. ENABLE REFRESH MARGINING (N) L? 

ANSWER: NORMAL OPERATION IS WITHOUT REFRESH MARGINING. 

(LOGICAL. CY TO ENABLE. N TO DISABLES DEFAULT N). 

13. DISABLE ERROR CORRECTION (N) L? 

ANSWER: NORMAL OPERATION IS WITH ECC ENABLED. 

(LOGICAL, CY TO DISABLE, N TO ENABLES DEFAULT N). 

14. ENABLE END OF PASS SUMMARY PRINTOUT (N) L? 

ANSWER: NORMAL OPERATION IS WITHOUT END OF PASS SUMMARY PRINTOUT. 

(LOGICAL, <Y TO ENABLE, N TO DISABLE PRINTOUT}, DEFAULT N). 

15. ENABLE ERROR PRINTOUTS (N) L? 

ANSWER: NORMAL OPERATION IS WITHOUT ERROR PRINTOUTS. 

(LOGICAL, {Y TO ENABLE, N TO DISABLE PRINTOUT}, DEFAULT N). 


SEQ 0009 


2.5.2 SUMMARY OF SOFTWARE QUESTION SEQUENCE 
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SEQ 0010 


* LIMIT RANGE *- 

* OF SECTORS? * 


* KNOW EXACT * 

* SECTORS? * 
***************** 

/ \ 

YES / \ NO 

/ \ 


* 1ST SECTOR? * 


*************** 

* LAST SECTOR?* 
*************** 


♦BOARD NUMBER?* 
*************** 


(CONTINUED ON NEXT PAGE) 


***************** 

♦ DROP ANY ♦- 

* OPTIONS? * 
***************** 


***************** 

* PAT # USED * 

* WITH MARCH? * 


***************** 

DROP OPTION 1? * 
***************** 


DROP OPTION 2? * 


DROP OPTION 3? * 


DROP OPTION 4? *~ 


NO ! 

**************** 
PAT # USED * 
WITH MARCH? * 


DhOP OPTION 5? * 


i 
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SEO 0011 


* ENABL REFRESH * 

* MARGINING? * 


DISABLE 

ECC? 


ENABLE * 
EOP SUMMARY? * 


* ENABLE * 

* PRINTOUTS? * 


2.6 EXTENDED P-TA8LE DIALOGUE 

WHEN YOU ANSWER THE HARDWARE QUESTIONS, YOU ARE BUILDING ENTRIES 
IN A TABLE THAT DESCRIBES THE DEVICES UNDER TEST. THE SIMPLEST 
WAY TO BUILD THIS TABLE IS TO ANSWER ALL QUESTIONS FOR EACH UNIT 
TO BE TESTED. IF YOU HAVE A MULTIPLEXED DEVICE, SUCH AS A MASS 
STORAGE CONTROLLER WITH SEVERAL DRIVES OR A COMMUNICATION DEVICE 
WITH SEVERAL LINES, THE DIALOGUE BECOMES TEDIOUS BECAUSE MOST OF 
THE ANSWERS ARE REPETITIOUS. 

SUPPOSE YOU ARE TESTING A HYPOTHETICAL DEVICE, THE XY11 WHICH IS 
MADE UP OF ONE CONTROL MODULE WITH 8 UNITS (SUB-DEVICES). THESE 
8 UNITS, NUMBERED 0 THROUGH 7, HAVE JUST ONE HARDWARE PARAMETER 
THAT CAN VARY AMONG UNITS, CALLED THE Q-F ACTOR. 

THE 3 EXAMPLES WHICH FOLLOW SHOW DIFFERENT WAYS OF ANSWERING THE 
HARDWARE QUESTIONS TO ACHIEVE IDENTICAL RESULTS. IN EACH EXAM- 
PLE, THERE ARE TO BE 8 XYll’S TESTED WHICH HAVE THE FOLLOWING Q- 
FACTORS: 

UNIT # Q-F ACTOR 
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SEQ 0012 


EXAMPLE 1: ANSWER SEPARATELY FOR EACH UNIT 
# UNITS CD) ? 8<CR> 

UNIT 0 

CSR ADDRESS CO) ? 160000<CR> 
SUB-DEVICE # CO) ? 0<CR> 

Q-FACTOR CO) 0 ? 0<CR> 

UNIT 1 

CSR ADDRESS CO) ? 160000<CR> 
SUB-DEVICE # CO) ? 1<CR> 

Q-FACTOR CO) 0 ? 1<CR> 

UNIT 2 

CSR ADDRESS CO) ? 160000<CR> 
SUB-DEVICE # CO) ? 2<CR> 

Q-FACTOR CO) 1 ? 0<CR> 

UNIT 3 

CSR ADDRESS CO) ? 160000<CR> 
SUB-DEVICE # CO) ? 3<CR> 

Q-FACTOR CO) 0 ? <CR> 

UNIT 4 

CSR ADDRESS CO) ? 160000<CR> 
SUB-DEVICE » CO) ? 4<CR> 

Q-FACTOR CO) 0 ? <CR> 

UNIT 5 

CSR ADDRESS CO) ? 160000<CR> 
SUB-DEVICE # CO) ? 5<CR> 

Q-FACTOR CO) 0 ? 1<CR> 

UNIT 6 

CSR ADDRESS CO) ? 160000<CR> 
SUB-DEVICE # CO) ? 6<CR> 

Q-FACTOR CO) 1 ? 1<CR> 

UNIT 7 

CSR ADDRESS CO) ? 160000<CR> 
SUB-DEVICE » CO) ? 7<CR> 

Q-FACTOR CO) 1 ? <CR> 


NOTICE THAT THE DEFAULT VALUE FOR THE Q-FACTOR CHANGES 
WHEN A NON-DEFAULT RESPONSE IS GIVEN. BE CAREFUL WHEN 
SPECIFYING MULTIPLE UNITS! 

AS YOU CAN SEE. THE HARDWARE PARAMETERS DO NOT DIFFER 
SIGNIFICANTLY FROM UNIT TO UNIT. THE PROCEDURE SHOWN 
IS NOT VERY EFFICIENT. 
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SEO 0013 


EXAMPLE 2: USE THE MULTIPLE SPECIFICATION FEATURE OF THE RUNTIME 
SERVICES TO MAKE FEWER PASSES THROUGH THE QUESTIONS. 

0 UNITS (D) ? 8<CR> 

UNIT 0 

CSR ADDRESS (0) ? 160000<CR> 

SUB-DEVICE 0 (0) ? 0,1<CR> 

Q-FACTOR (OJ 0 ? 0,1<CR> 

UNIT 2 

CSR ADDRESS (0) ? 160000<CR> 

SUB-DEVICE 0 (0) ? 2-5<CR> 

Q-FACTOR (0) 1 ? 0<CR> 

UNIT 6 

CSR ADDRESS (0) ? 160000<CR> 

SUB-DEVICE 0 (0) ? 6,7<CR> 

Q-FACTOR (0) 0 ? 1 , 1 <CR> 


AS YOU CAN SEE IN THE ABOVE DIALOGUE, RUNTIME SERVICES 

WILL BUILD AS MANY ENTRIES AS IT CAN WITH THE INFORMA- 
TION GIVEN IN ANY ONE PASS THROUGH THE QUESTIONS. THE 
FIRST PASS BUILDS 2 ENTRIES, BECAUSE 2 SUB-DEVICES AND 
Q-FACTORS WERE SPECIFIED. THE DRS ASSUMES THAT THE CSR 
ADDRESS IS 160000 FOR BOTH UNITS. IN THE SECOND PASS, 
4 ENTRIES WERE BUILT. THE CONSTRUCT TELLS THE DRS 
TO INCREMENT THE DATA FROM THE FIRST VALUE TO THE SEC- 
OND. IN THIS CASE, 'W SPECIFIES SUB-DEVICES 2,3,4. 
AND 5. THE CSR ADDRESS AND Q-FACTOR FOR THE 4 ENTRIES 
ARE ASSUMED TO BE 160000 AND 0 RESPECTIVELY SINCE THEY 
WERE ONLY SPECIFIED ONCE. THE LAST 2 UNITS ARE SPECI- 
FIED IN THE THIRD PASS. 


EXAMPLE 3: ACCOMPLISH THE WHOLE PROCESS IN JUST ONE PASS THROUGH 
THE QUESTIONS. 


0 UNITS (D) ? 8<CR> 

UNIT 1 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE 0 (0) ? 0-7<CR> 
Q-FACTOR (0) 0 ? 0.1.0.,..1,1<CR> 
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AS YOU CAN SEE FROM THIS EXAMPLE. NULL REPLIES (COMMAS 
ENCLOSING A BLANK FIELD) DIRECT THE DRS TO REPEAT THE 
LAST REPLY. 


2.7 QUICK START-UP PROCEDURE 

2.7.1 TO START-UP THIS PROGRAM WHEN RUNNING UNDER XXDP* 

1 . BOOT XXDP* 

2. GIVE THE DATE AND ANSWER THE LSI AND 50HZ QUESTIONS 

3. TYPE NAME*'. WHERE ’NAME” IS THE FILENAME OF THE 
.BIN OR .BIC FILE FOR THIS PROGRAM 

4. TYPE "START" 

5. ANSWER THE "CHANGE HW" QUESTION WITH "Y" 

6. ANSWER ALL THE HARDWARE QUESTIONS 

7. ANSWER THE "CHANGE SW" QUESTION WITH **" 

WHEN YOU FOLLOW THIS PROCEDURE YOU WILL BE USIN6 ONLY THE 
DEFAULTS FOR FLAGS AND SOFTWARE PARAMETERS. THE DEFAULTS 
ARE DESCRIBED IN SECTIONS 2.3 ANO 2.5. 


2.7.2 TO START-UP THIS PROGRAM WHEN RUNNING UNDER ACT 

THE FILE WHICH WILL BE STARTED MUST. AT SOME TIME. HAVE BEEN CREATED 

WITH THE 'SETUP 1 UTILITY PROGRAM. ASSUMING THAT THIS HAS BEEN DONE. 

THE START-UP PROCEDURE IS THE SAME AS THE ONE IN SECTION 2.7.1. 

TO CREATE A FILE USING THE SETUP UTILITY: 

1. TYPE ** SETUP" 

2. THE TARGET ENVIRONMENT IS ACT. SO TYPE "AC" 

3. TYPE THE SETUP COMMAND: 

•SETUP OUTFILE.EXT=JNFILE.EXT „ „ 

WHERE OUTFILE.EXT = THE NEWLY CREATED FILE 
AND INFILE. EXT * THE RELEASED .BIN FILE 

4. YOU WILL HAVE AN OPPORTUNITY TO SET UP A PERMANENT 
DEFAULT TEST CONFIGURATION BY ANSWERING THE HARDWARE 
AND SOFTWARE QUESTIONS. ONCE THIS iS, DONE. YOU WILL 
NO LONGER BE FORCED TO ANSWER "Y" TO "CHANGE HW ?" 

EVERY TIME YOU START THE PROGRAM. YOU WILL ALSO BE 
ASKED THE LSI AND 50H2 QUESTIONS HERE. 


5. TYPE "EXIT" 


sea 0015 
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3.0 ERROR INFORMATION 

3.1 TYPES OF ERROR MESSAGES 

THERE ARE THREE LEVELS OF ERROR MESSAGES THAT MAY BE ISSUED BY 
A DIAGNOSTIC: GENERAL. BASIC AND EXTENDED, GENERAL ERROR MESSAGES 
ARE ALWAYS PRINTED UNLESS THE "IER" FLAG IS SET (SECTION 2.3). 

THE GENERAL ERROR MESSAGE IS OF THE FORM: 

NAME TYPE NUMBER ON UNIT NUMBER TST NUMBER PC:XXXXXX 
ERROR MESSAGE 

WHERE * 

NAME = DIAGNOSTIC NAME 

TYPE = ERROR TYPE (SYS FATAL, DEV FATAL. HARD OR SOFT) 

NUMBER = ERROR NUMBER 

UNIT NUMBER = 0 - N (N IS LAST UNIT IN PTA8LE) 

TST NUMBER = TEST AND SUBTEST WHERE ERROR OCCURRED 
PC:XXXXXX = ADDRESS OF ERROR MESSAGE CALL 

BASIC ERROR MESSAGES ARE MESSAGES THAT CONTAIN SOME ADDITIONAL 

INFORMATION ABOUT THE ERROR. THESE ARE ALWAYS PRINTED UNLESS 
THE '•IER" OR "IBR" FLAGS ARE SET (SECTION 2.3). THESE MESSAGES 
ARE PRINTED AFTER THE ASSOCIATED GENERAL MESSAGE. 

EXTENDED ERROR MESSAGES CONTAIN SUPPLEMENTARY ERROR INFORMATION 
SUCH AS REGISTER CONTENTS OR GOOD/BAD DATA. THESE ARE ALWAYS 
PRINTED UNLESS THE "IER". "IBR" OR "IXR" FLAGS ARE SET (SECTION 2.3). 
THESE MESSAGES ARE PRINTED AFTER THE ASSOCIATED GENERAL ERROR 
MESSAGE AND ANY ASSOCIATED BASIC ERROR MESSAGES. 

3.2 SPECIFIC ERROR MESSAGES 

3.2.1 MESSAGES DURING INITIALIZATION 

DURING INITIALIZATION. THERE ARE 3 ERROR CONDITIONS WHICH CAN BE 
DETECTED AND WHICH CAUSE THE DRIVE TO BE DROPPED: 

CAUSE 1 = * (NOT POWERED UP) * 

CAUSE 2 = * (NOT AN ML11 UNIT)' 

CAUSE* = ' (OPERATOR SEIECTED TEST LIMITS INCORRECTLY)’ 

THE * CAUSE3 ' MESSAGE IS THEN FOLLOWED BY 

EITHER: ."TOP SECTOR OF XXXXXX EXCEEDS SYSTEM LIMIT OF YVYYYY* 

OR: ."LOW SECTOR OF XXXXXX EXCEEDS TOP SECTOR OF YYYVYV * 

3.2.2 MESSAGES DURING TESTING 

AFTER INITIALIZATION, THERE ARE 4 ERROR DIAGNOSES WHICH ARE POSSIBLE: 
RSG1 = *--> RUN ML11 LOGIC TEST’ 


THIS MESSAGE APPEARS WHEN AN ML11 


CZMLBBO PERFORMANCE EXERCISER 
USER DOCUMENTATION 


d 4 

MACRO Ml 113 29-MAR-82 13:41 PAGE 4-13 


MSG2 


MSG3 


MSG4 


SYSTEM ERROR OCCURS. THE USER IS 
INSTRUCTED TO RUN THE LOGIC TEST TO 
SEE IF THAT PROGRAM CAN ISOLATE THE 
REASON FOR THE FAILURE. NOTE THAT 
THIS MESSAGE IS NOT USED FOR DATA 
ERRORS. 

= RUN ML11 PROM MAINTENANCE PROGRAM' 


THIS MESSAGE APPEARS WHENEVER ANY 
OF THE FOLLOWING CONDITIONS IS TRUE: 

A) AN ECC HARD ERROR CECH OR UNC) IS 
DETECTED 

8) AN ARRAY REACHES ITS HARD OR SOFT 
ERROR THRESHOLD 

C) DURING A PERFORMANCE SUMMARY, IF 
AN ARRAY HAS REACHED OR EXCEEDED 
ITS HARD OR SOFT ERROR THRESHOLD. 


= 'SOFT ERROR* 

A SOFT ERROR IS A CORRECTABLE DATA 
ERROR WHICH CAN BE ELIMINATED BY 
REWRITING AND REREADING. 

= 'HARD ERROR* 

A HARD ERROR IS A CORRECTABLE DATA 
ERROR WHICH PERSISTS AFTER A REWRITE 
AND A REREAD. 


ANY WRITE COMMAND HAS 3 POSSIBLE ERROR CALLS ASSOCIATED WITH IT: 


ERROR 

POSITION 

ERROR 

TYPE 

DIAGNOSTIC 

MESSAGE 

CAUSE OF ERROR/ACTION 

1ST 

ERRDF 

MSG1 

ALL 6 RETRIES FAILED FOR AN ML11 SYSTEM 
ERROR WHICH WAS ORIGINALLY CONSIDERED 

TO BE NON-FATAL. DROP THE DRIVE. 

2ND 

ERRDF 

MSGT 

CONTROLLER FATA. ERROR. DROP THE DRIVE 

3RD 

ERRDF 

MSG1 

DRIVE FATAL ERROR. DROP THE DRIVE. 


ANY READ OR WRITE CHECK COMMAND HAS 8 ERROR CALLS ASSOCIATED WITH IT, 
5 FOR SYSTEM ERRORS (WHICH RESULT IN DROPPING THE DRIVE) AND 3 FOR 
HARD AND SOFT DATA ERRORS (WHICH ARE COUNTED ON A PER ARRAY BASIS): 


THE SYSTEM ERRORS: 


SEQ 0016 


ERROR ERROR DIAGNOSTIC 
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position 

TYPE 

MESSAGE 

CAUSE OF ERROR/ACTION 

1ST 

ERRDF 

MSG1 

AFTER A SUCCESSFUL READ COMMAND, THE 

WRITE AND READ BUFFERS ARE COMPARED. 

IF THEY DO NOT MATCH PERFECTLY, THEN 

THE ECC LOGIC FAILED. DROP THE DRIVE. 

2ND 

ERRDF 

MSG1 

ALL 6 RETRIES FAILED FOR AN ML11 SYSTEM 

ERROR WHICH WAS ORIGINALLY CONSIDERED 

TO BE NON-FATAL. DROP THE DRIVE. 

3RD 

ERRDF 

MSG1 

CONTROLLER FATAL ERROR. DROP THE DRIVE. 

4TH 

ERRDF 

MSG1 

DRIVE FATAL ERROR. DROP THE DRIVE. 

5TH 

ERRD r 

MSG2 

ECC HARD ERROR DETECTED. DROP THE DRIVE. 

DATA ERRORS 

• 

• 


' 

ERROR 

POSITION 

ERROR 

TYPE 

DIAGNOSTIC 

MESSAGE 

CAUSE OF ERROR/ACTION 

6TH 

ERRHRD 

MS64 

HARD ERROR. DURING ERROR CLASSIFICATION, 

RETRY FAILED AGAIN (AS IF A DATA ERROR 

IN THE SAME BIT POSITION). UPDATE THE 

HARD COUNT FOR THE ASSOCIATED ARRAY AND 

CHECK THE NEW COUNT AGAINST THE THRESHOLD. 

7TH 

ERRSOFT 

MSG3 

SOFT ERROR. DURIN6 ERROR CLASSIFICATION, 

RETRY FAILED AGAIN (AS IF A DATA ERROR IN 

A DIFFERENT BIT POSITION). UPDATE THE 

SOFT COUNT FOR THE ASSOCIATED ARRAY AND 

CHECK THE NEW COUNT AGAINST THE THRESHOLD. 

8TH 

ERRSOFT 

MSG3 

SOFT ERROR. DURING ERROR CLASSIFICATION. 


RETRY DJO NOT PRODUCE ANOTHER DATA ERROR 
(THE RETRY NAY PASS, OR IT NAY FAIL FOR 
SOME NEW REASON). UPDATE THE SOFT COUNT 
FOR THE ASSOCIATED ARRAY AND CHECK THE NEW 
COUNT AGAINST THE THRESHOLD. 


THERE IS A CORRESPONDENCE BETWEEN EVERY NUMBER AND THE PLACE IN THE 
PROGRAM WHERE THE ERROR WAS DETECTED: 

A) THE MOST SIGNIFICANT DIGIT IDENTIFIES THE OPTION NUMBER. 

EXCEPTION: T'4E COMMAND INTEGRITY ROUTINE IS 
THOUGHT OF AS OPTION 0, AND SO ALL ITS ERROR 
NUMBERS WILL APPEAR TO ONLY BE 1 OR 2 SIGNIF- 
ICANT DIGITS. TAKE THE 0 TO BE A SIGNIFICANT 
DIGIT (SEE EXAMPLES). 


THE 2 LEAST SIGNIFICANT DIGITS ARE THE POSITIONAL 
NUMBERS TO IDENTIFY WHERE THE ERROR CALL IS LOCATED 
WITHIN THE OPTION. 


f 2 

CZHlBBO PERFORMANCE EXERCISER MACRO M1113 29-MAR-82 13:41 PAGE 4-15 
USER DOCUMENTATION 

C) FOR OPTION 5. THE SECOND MOST SIGNIFICANT DIGIT IS 
USED TO IDENtlFY WHICH RANDOM TEST IS RUNNING. 


EXAMPLES: 

1) ERROR NUMBER: 


6 => COMMAND INTEGRITY ROUTINE 
(OPTION 0), ERROR 06 


2) ERROR NUMBER: 208 => OPTION 2, ERROR 08 

3) ERROR NUMBER: 5311 => OPTION 5, RAND3, ERROR 11 
BELOW IS A SUMMARY OF THE ACTUAL ERROR CALLS IN EACH TEST OPTION: 

THE ‘INTEGRITY* ROUTINE: 


•WRITE COMMAND: 


! ERRDF ( 1 ,MS61 , 0) ; 
! ERRDF ( 2 ,MSG1 , 0) ; 
!ERRDF(3,MSG1 .0); 


!**•* INTEGRITY ROUTINE ERROR 01 ***• 
!•*** INTEGRITY ROUTINE ERROR 02 **** 
!*•** INTEGRITY ROUTINE ERROR 03 •**• 


•READ COMMAND: 


ERRDF (4 ,MSG1 ,0) ; 
!ERRDF(5.MS61 .0); 
!ERRDF(6.MSG1.0>; 

• ERRDF (7,MS61 ,0) ; 

.» ERRDF (8.MSG2 f 0) ; 
!ERRHRD(9.MS64,0>. . 

!ERRS0FT(10.MSG3.0);! 
!ERRS0FT(11 ,MSG3,1); ! 


**** 

**** 

**** 

•*** 

**** 

**** 

**** 


INTEGRITY 

INTEGRITY 

INTEGRITY 

INTEGRITY 

INTEGRITY 

INTEGRITY 

INTEGRITY 

INTEGRITY 


ROUTINE 

ROUTINE 

ROUTINE 

ROUTINE 

ROUTINE 

ROUTINE 

ROUTINE 

ROUTINE 


ERROR 

ERROR 

ERROR 

ERROR 

ERROR 

ERROR 

ERROR 

ERROR 


04 **** 

05 **** 
04 **** 

07 **** 

08 **** 

09 **** 

10 **** 
10 •*** 


•WRITE CHECK COMMAND: 


! ERRDF (12. MSG 1.0) 
•ERRDF (13.MSG1.0) 
.'ERRDF (14. MSG 1.0) 

• ERRDF (15 ,MS62 . 0) : 
!ERRHRD(16.MSG4 4 0); 
•ERRS0FT(17.N$G3.8); 
!ERRS0FT(18.NSG3.1>; 


**** INTEGRITY 
**** INTEGRITY 
**** INTEGRITY 
*•** INTEGRITY 
•*** INTEGRITY 
**** INTEGRITY 
**** INTEGRITY 


ROUTINE 

ROUTINE 

ROUTINE 

ROUTINE 

ROUTINE 

ROUTINE 

ROUTINE 


ERROR 12 
ERROR 13 
ERROR 14 
ERROR 15 
ERROR 16 
ERROR 17 
ERROR 18 


*•** 

**** 

**** 

**** 

*••* 

•*•* 

**** 


OPTION 1: 


•WRITE COMMAND: 


•ERRDF (101 .MSG1.0) 
f ERRDF (102, MS61 ,0) 
.• ERRDF (1 03 .MS61.0) 


***** OPTION 1 ERROR 01 **** 

***** OPTION 1 ERROR 02 

* 03 •*** 


***** OPTION 1 ERROR 
•CHECK OR READ: 

! ERRDF ( 1 04 .MSG1.0); !•*** OPTION 1 ERROR 04 **** 


j L 0 0018 
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IERRDF (105, MSG1 ,0) 
IERRDF (106, MSG1 ,0) 
!ERRDF(107,M$G1 ,0) 
IERRDF (108.M$G2.0>; 

! ERRHRD ( 1 0V.HSG4.0) ; 
!ERRSOFT(1l6.MSG3,0>; 
IERRS0FTO11 .MSGS,©); 


!**** 
* **** 

!*•** 
!“»* 
!**** 
• **** 


OPTION 

OPTION 

OPTION 

OPTION 

OPTION 

OPTION 

OPTION 


ERROR 05 **** 
ERROR 06 **** 
ERROR 07 **** 
ERROR 08 **** 
ERROR 09 **** 
ERROR 10 **** 
ERROR 11 **** 


OPTION 2: 


! WRITE COMMAND 


IERRDF (201 .MSG1.0) 
!ERRDF(202,M$G1.0> 
IERRDF (203,MSG1 ,0) 


***** OPTION 2 ERROR 01 **** 
!***• OPTION 2 ERROR 02 **** 
***** OPTION 2 ERROR 03 **** 


.'CHECK OR READ: 


I ERRDF < 204 ,MSG1 , 0) 
IERRDF ( 205. MSG1 ,0) 

! ERRDF ( 206, HSG1 ,0) 

! ERRDF (207.MSG1.0) 
IERRDF (208.MSG2.0). 

I ERRHRD ( 20v.MSG4.05 : 
!ERRSOFT(210.MSG3,0>; 
I ERRSOF T ( 21 1 ,MSG3 , 1 > ; 


***** OPTION 
***** OPTION 
I **** OPTION 
***** OPTION 
***** OPTION 
***** OPTION 
***** OPTION 
***** OPTION 


•LOOP CHECK OR READ: 

IERRDF (212, MSG1 ,0); !***• OPTION 2 
IERRDF (213, MS61 ,0); !***• OPTION 2 
!ERRDF(214,MSG1 ,0); .'**** OPTION 2 
!ERRDF(215,M561 ,0); .'**** OPTION 2 
!ERRDF(216.M$62.0> f * !•*** OPTION 2 
I ERRHRD (21 7. MS 64 ,03: ***** OPTION 2 
!ERRSOFT(218,MS63,03; ***** OPTION 2 
!ERRSOFT(219,MS63,0>; ***** OPTION 2 


ERROR 

ERROR 

ERROR 

ERROR 

ERROR 

ERROR 

ERROR 

ERROR 


ERROR 

ERROR 

ERROR 

ERROR 

ERROR 

ERROR 

ERROR 

ERROR 


04 

05 


**** 
**** 
06 **** 

07 **** 

08 **** 
**** 
**** 


09 

10 


10 **** 


12 

13 

14 

15 


**** 
**•* 
**** 
**** 
16 **** 

17 **** 

18 **** 
19 ***• 


OPTION 3: 


•WRITE COMMAND: 


IERRDF (301 ,MSG1 ,0) 
IERRDF (302.MSG1.0) 
IERRDF (303.MSG1.0) 


I**** OPTION 3 ERROR 01 **** 
.'**** OPTION 3 ERROR 02 **** 
***** OPTION 3 ERROR 03 **** 


•CHECK OR READ: 

IERRDF (304 ,M$61 ,0); !*•** OPTION 3 ERROR 04 
I ERRDF ( 305 ,MSG1 , 0) ; !•*** OPTION 3 ERROR 05 
IERRDF (306.MSG1.0); .'**** OPTION 3 ERROR 06 
I ERRDF ( 307.MSG1 , 0) ; !***• OPTION 3 ERROR 07 
I ERRDF ( 308 .MSG2 . 0) ; I**** OPTION 3 ERROR 08 
! ERRHRD ( 30$, M$G4,0>; !***• OPTION 3 ERROR 09 


**** 

**•• 

**** 

**** 

***• 

**** 
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• ERRSOF T(310.MSG3.0>; 
163, r 


! ERRSOF T(31 1 .MSG3.0); 


!***• OPTION 3 ERROR 10 *•** 
.'**** OPTION 3 ERROR H **** 


OPTION 4: 


•MARCHING UP: 

.'WRITE DATA: 


! ERROF (401 ,MSG1 ,0) 
! ERRDF (402.HS61 ,0) 
JERRDF (403.MSG1 ,0) 


.'MARCHING UP: 


.'**** OPTION 4 
!*•** OPTION 4 
.'**** OPTION 4 


JERRDF (404 .MSG1.0), 
JERRDF (405, MSG1.0), 

.' ERRDF (406.MSG1 .0) , 

.' ERRDF (407.MSG1.0); 

! ERRDF (408.MSG2.0). 

.' ERRHRD (409.MSG4.0) ; 

! ERRSOF T (410,MSG3,0) ; 
! ERRSOF T (41 1 ,MSG3,0) ; 


> **** 


OPTION 

OPTION 

OPTION 

OPTION 

OPTION 

OPTION 

OPTION 


!**** OPTION 


! WRITE COMP: 


! ERRDF (412.MSG1.0) 
.' ERRDF (413.MSG1.0) 
.'ERRDF (414.MSG1.0) 


***** 
***** 
• **** 


OPTION 

OPTION 

OPTION 


•MARCHING DOWN: 


!ERRD f (415.MSG1 ,0); .'**** OPTION 
! ERRDF (416.MSG1.0); .'**** OPTION 
! ERRDF (41 7.MSG1.0); !**** OPTION 
! ERRDF (418,MSG1.0>; ***** OPTION 
! ERRDF (41 9 -MSG2 . 0 ) : .'**** OPTION 
! ERRHRD (420 { MSG4 , 0) ; !***• OPTION 
JERRSOFT(421,MSG3,0); ***** OPTION 
.' ERRSOF T(422,MSG3,0>; .'**** OPTION 


•WRITE DATA: 


.'ERRDF (423 .MSG1.0) 
JERRDF (424. MSG1.0) 
JERRDF (425.MSG1.0) 


.'**** OPTION 
.'**** OPTION 
■**** OPTION 


ERROR 01 **** 
ERROR 02 **** 
ERROR 03 **** 


.'CHECK OR READ DATA: 


ERROR 

ERROR 

ERROR 

ERROR 

ERROR 

ERROR 

ERROR 

ERROR 


04 

05 


10 

11 


**** 
**** 
06 **** 

07 **** 

08 **** 
09 **** 

**** 
**** 


ERROR 12 **** 
ERROR 13 **** 
ERROR 14 **** 


J CHECK OR READ COMP: 


ERROR 

ERROR 

ERROR 

ERROR 

ERROR 

ERROR 

ERROR 

ERROR 


15 **** 

Ig **** 

17 **** 

18 **** 

19 **** 

20 **** 
**** 
**** 


21 

22 


ERROR 23 **** 
ERROR 24 **** 
ERROR 25 **** 


.'MARCHING UP: 


SEQ 0020 


.'CHECK OR READ DATA: 



CZMlBBO PERFORMANCE EXERCISER 
USER DOCUMENTATION 


MACRO Ml 113 29-MAR-82 13:41 


! ERRDF (426, MSG1 ,0); 

! ERRDF (427,MSG1 ,0) ; 
!ERRDF(428.MSG1.0); 

! ERRDF (429,MSG1 ,0); 

! ERRDF (430. MSG2.0); 

! ERRHRD (431 .MSG4 .03 ; 

! ERRSOF TUSz.MSGS.OJ.- 
lERRSOFmSS.MSGS.O); 


**** OPTION 4 
**** OPTION 4 
**** OPTION 4 
**** OPTION 4 
**** OPTION 4 
**** OPTION 4 
**** OPTION 4 
**** OPTION 4 


ERROR 26 * 
ERROR 27 * 
ERROR 28 * 
ERROR 29 * 
ERROR 30 * 
ERROR 31 * 
ERROR 32 * 
ERROR 33 * 


OPTION 5: 


••RAND1’ ROUTINE: 


! WRITE COMMAND: 


! ERRDF (5101 .M3G1.0) 
!ERRDF (5102, MSG1 ,0) 
! ERRDF (51 03.MSG1.0) 


!***• OPTION 5. RAND1 ERROR 01 ***• 
***** OPTION 5, RAND1 ERROR 02 •**• 
***** OPTION 5, RAND1 ERROR 03 **** 


! CHECK OR READ: 


! ERRDF (5104.MSG1 ,0) ; 

! ERRDF (5105.MSG1 ,0); 
!ERRDF(5106,MSG1 ,0); 
!ERRDF(5107,MSG1 ,0); 
.'ERRDF (51 08.MSG2.0); 

! ERRHRD (51 09.MSG4.03 ; 
ERRSOF T (51 1 O.MSGS, 0) ; 


***** OPTION 5. 
***** OPTION 5, 
***** OPTION 5. 
***** OPTION 5. 
***** OPTION 5. 
***** OPTION 5, 
***** OPTION 5, 


• Lnnovr i \ i • v/ « • ^ t 

>ERRSOFT(5111.MSG3,0); !***• OPTION 5. 
i 'RAND2* ROUTINE: 

.'WRITE COMMAND: 


RAND1 

RAND1 

RAND1 

RAND1 

RAND1 

RAND1 

RAND1 

RAND1 


ERROR 

ERROR 

ERROR 

ERROR 

ERROR 

ERROR 

ERROR 

ERROR 


04 ***• 

05 **** 

06 **** 

07 **** 

08 **** 

09 **** 

10 **** 
11 **** 


'ERRDF (5201 .MSG1.0); 
.' ERRDF (5202.MSG1 ,0); 
! ERRDF ( 5203, MSG1 ,0); 


***** OPTION 5. RAND2 ERROR 01 **** 
***** OPTION 5, RAND2 ERROR 02 **** 
***** OPTION 5, RAND2 ERROR 03 **•* 


•CHECK OR READ: 


.'ERRDF (5204 .MSG1.0); 

! ERRDF ( 5205 ,MSG1 , 0) ; 

.' ERRDF ( 5206 ,MSG1 , 0) ; 
.'ERRDF (5207,MSG1 ,0); 

! ERRDF (5208.MSG2.0); 

• ERRHRD (520D.MSG4.03: 

! ERRSOF T ( 521 0 ,MSG3 ,03 ; 


***** OPTION 5, RAND2 
***** OPTION 5, RAND? 
***** OPTION 5, 

***** OPTION 5, 

***** OPTION 5, 

***** OPTION 5, RAND? 
***** OPTION 5, RAND? 


ERROR 04 
ERROR 05 


ERROR 08 
ERROR 09 
ERROR 10 
ERROR 11 


! ERRSOF T ( 521 1 ,MSG3 , 0) ; .'**** OPTION 5, RAND2 ERROR 11 **** 
."RAND3' ROUTINE: 

.'WRITE COMMAND: 

.'ERRDF (5301 .MSG1.0); !***• OPTION 5. RAND3 ERROR 01 **** 
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! ERRDF ( 5302 ,MSG1 , 0) ; 
! ERRDF (5303,MSG1,0); 


!**** OPTION 5, RAND3 ERROR 02 ***• 
***** OPTION 5, RAND3 ErtROR 03 **** 


! CHECK OR READ: 


! ERRDF (5304, MSG1 ,0) 

! ERRDF (5305, MSG1,0) 

! ERRDF ( 5306 ,MSG1 , 0) 

! ERRDF ( 5307, MSG1 ,0) 

• ERRDF (5308.MSG2.0); 

! ERRHRD (5309.MSG4.0) ; 

!ERRS0FT(5310,MSG3,0); 

!ERRSOFT(5311,MSG3,0>; 


•*** OPTION 5, 
**** OPTION 5, 
**** OPTION 5, 
**** OPTION 5, 
**** OPTION 5. 
•*** OPTION 5, 
**** OPTION 5, 
**** OPTION 5. 


RAND3 ERROR 0* **** 
RAND3 ERR0*1 05 **** 
RAND3 ERROR 06 **** 
RAN03 ERROR 07 **** 
RAND3 ERROR 08 **** 
RAND3 ERROR 09 **** 
RAND 3 ERROR 10 **** 
RAND3 ERROR 11 **** 


! 'RAND4 ' ROUTINE: 


•WRITE COMMAND: 


.'ERRDF (5401 ,MSG1,0) 
! ERRDF (5402 ,MSG1,0> 
! ERRDF (5403 ,M$G1,0) 


!**•* OPTION 5, RAND4 ERROR 01 **** 
.'**** OPTION 5, RAND4 ERROR 02 **** 
***** OPTION 5, RAND4 ERROR 03 **** 


•CHECK OR READ: 

! ERRDF ( 5404 ,M$G1,0); .'**** OPTION 5. 
.'ERRDF (5405 ,MSG1,0); .'**** OPTION 5, 
! ERRDF (5'«06,MSG1,0>; .'**** OPTION 5, 
.'ERRDF (5407, MSG1 ,0) ; .»**** OPTION 5. 
.'ERRDF (5408. MSG2.0); !**•* OPTION 5, 
! ERRHRD ( 5409 -MSG4 .0) ; .'**** OPTION 5, 
.'ERRSOFT(5410.MS63.0>; !**** OPTION 5, 
!ERR$OFT(5411,MSG3,0>; ***** OPTION 5, 


RAND4 

RAND4 

RAND4 

RAND4 

RAND4 

RAND4 

RAND4 

RAND4 


ERROR 

ERROR 

ERROR 

ERROR 

ERROR 

ERROR 

ERROR 

ERROR 


04 **** 

05 **** 

06 **** 

07 **** 

08 **** 

09 **** 

10 **** 
11 **** 


4.0 PERFORMANCE AND PROGRESS REPORTS 


AT THE END OF EACH PASS, THE PASS COUNT IS GIVEN ALONG WITH A 
SUMMARY WHICH SHOWS THE DIAGNOSTIC'S PERFORMANCE SINCE IT WAS 
STARTED. THE SAME PROGRESS REPORT CAN BE OBTAINED BY STOPPING 
THE PROGRAM'S EXECUTION (VIA A A C) AND BY ISSUING THE 'PRINT* 
COMMAND. A TYPICAL REPORT FOR 2 DRIVES IS SHOWN BELOW: 


PERFORMANCE SUMMARY 

NUMBER OF MBYTES TRANSFERRED: 

1028 MBYTES WRITTEN 
250 MBYTES READ 
1145 MBYTES WRITE CHECKED 

LOGICAL UNIT: 0 DRIVE: 1 SERIAL #: 1234 


SOFT ERROR COUNT: 

ARRAY 3: 9 

HARD ERROR COUNT: 
ARRAY 0: 6 

ARRAY 10: 2 

ARRAY 15: 3 

TRANSFER RETRIES: 


11 


SEQ 0022 
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LOGICAL UNIT: 1 DRIVE: 1 SERIAL #: 9876 
DRIVE DROPPED (CONTROLLER FATAL ERROR) 

SOFT ERROR COUNT: 100 


ARRAY 

1: 

9 

ARRAY 

13: 

10 

ARRAY 

14: 

1 

ARRAY 

15: 

80 


HARD ERROR COUNT: 
ARRAY 14: 1 

ARRAY 15: 1 

TRANSFER RETRIES: 


— > RUN ML11 PROM MAINTENANCE PROGRAM 

— > RUN ML11 PROM MAINTENANCE PROGRAM 
2 


5.0 DEVICE INFORMATION TABLES 

AT THE START OF THE PROGRAM, AN AUTOMATIC CHECK OF THE SYSTEM 
CONFIGURATION IS MADE AND DEVICE INFORMATION SIMILAR TO THE 
FOLLOWING IS PRINTED FOR EACH UNIT: 

LOGICAL UNIT: 0 DRIVE: 0 SERIAL #: 1234 

ML11-A SECTORS UNDER TEST: 000000 TO 017777 
TRANSFER RATE: 1 MBYTES/SECOND CSR ADDRESS: 176400 


6.0 TEST SUMMARIES 

THERE IS JUST ONE HARDWARE TEST IN THE EXERCISER, AND ITS PURPOSE 
IS TO ACT AS A SCHEDULER TO CALL THE SUBROUTINES WHICH ACTUALLY 
PERFORM ALL OF THE TEST CODE. THE SUBROUTINES, CALLED OPTIONS, ARE 
DESCRIBED BELOW: 

6.1 OPTION 1 (OPT1) 

PURPOSE: TO CHECK ADDRESSES USING DATA = SECTOR NUMBER. 

TRANSFERS ARE 4K WORDS IN LENGTH, AND ALL SECTORS 
ARE TESTED. 

THE CODE FOR ’OPTI* IN BRIEF: 

BEGIN 1 (START OF ROUTINE) 

SAY ROUTINE IS RUNNING 

INCR COMPLEMENT FLAG FROM 0 TO 1 

: BEGIN 2 (START OF COMPLEMENT FLAG SELECTION LOOP) 

: INCR LOGICAL UNIT FROM 0 TO LAST 
: BEGIN 3 (START OF LOGICAL UNIT SELECTION LOOP) 

: TESTLOOP: 

: BEGIN 4 (START OF LOOP THAT COMPLETELY TESTS ONE UNIT) 

: IF UNIT IS ACTIVE 
: THEN 

: BEGIN 5 (START OF TEST FOR AN ACTIVE UNIT) 

: INITIALIZE WRITE AND READ BUFFER POINTERS 
: : : : SECTOR = LOWEST 

: WHILE SECTOR LEO HIGHEST DO 
: : : : BEGIN 6 (START OF SECTOR SELECTION LOOP) 

: : : : GET WRDCNT 

: GENERATE THE PATTERN 


SEQ 0023 
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SEQ 0024 


: SET UP BUFFER POINTERS BEFORE TRANSFER 
: : : : : WRITE 

: LOOK FOR ERRORS (IF DROP UNIT. LEAVE TESTLOOP) 

: CHOOSE WHETHER TO WRITE CHECK OR READ 

: DO THE WRITE CHECK OR READ 

: LOOK FOR ERRORS (IF DROP UNIT, LEAVE TESTLOOP) 

: : : : : CHANGE BUFFER POINTERS AFTER TRANSFER 

: UPDATE SECTOR NUMBER BY NUMBER OF SECTORS IN PREVIOUS TRANSFER 
: END 6 (END OF SECTOR SELECTION LOOP) 

: END 5 (END OF TEST FOR AN ACTIVE UNIT) 

: END 4 (END OF TESTLOOP) 

: END 3 (END OF LOGICAL UNIT SELECTION LOOP) 

: END 2 (END OF COMPLEMENT FLAG SELECTION LOOP) 

RETURN 

END 1 (END OF ROUTINE) 

6.2 OPTION 2 (0PT2) 

PURPOSE: TO CHECK ON DATA RELIABILITY USING THE PATTERNS FROM 

THE PATTERN TABLE. 

THE CODE FOR ’0PT2’ IN BRIEF: 

BEGIN 1 (START OF ROUTINE) 

SAY THE ROUTINE IS RUNNING 
CHOOSE A MAXIMUM PATTERN NUMBER 
I NCR COUNT FROM 1 TO (2»MAX> 

: BEGIN 2 (START OF PATTERN SELECTION LOOP) 

: GENERATE THE PATTERN 
: I NCR LUN FROM 0 TO LAST 
: BEGIN 3 (START OF LOGICAL UNIT SELECTION LOOP) 

: TESTLOOP: 

: BEGIN 4 (START OF LOOP THAT COMPLETELY TESTS 1 UNIT) 

: IF UNIT IS ACTIVE 
: THEN 

: : : : BEGIN 5 (START OF TEST FOR AN ACTIVE UNIT) 

: : : : INITIALIZE THE WRITE AND READ BUFFER POINTERS 

: : SECTOR = LOWEST 

: : : : WHILE SECTOR LEO HIGHEST DO 

: BEGIN 6 (START OF SECTOR SELECTION LOOP) 

: GET WRDCNT 

: : : : SET UP BUFFER POINTERS BEFORE TRANSFER 
: : : : WRITE 

: LOOK FOR ERRORS (IF DROP UNIT. LEAVE TESTLOOP) 

: CHOOSE WHETHER TO WRITE CHECK OR READ 

: DO THE WRITE CHECK OR READ 

: LOOK FOR ERRORS (IF DROP UNIT, LEAVE TESTLOOP) 

: CHANGE BUFFER POINTERS AFTER TRANSFER 

: UPDATE SECTOR NUMBER BY NUMBER OF SECTORS IN PREVIOUS TRANSFER 
: : : : : END 6 (END OF SECTOR SELECTION LOOP) 

: END 5 (END OF TEST FOR AN ACTIVE UNIT) 

: END 4 (END OF TESTLOOP) 

: END 3 (END OF LOGICAL UNIT SELECTION LOOP) 

: IF NOT THE QUICK VERIFY PASS THEN ’LOOP READ' (DESCRIBED BELOW) 

: END 2 (END OF PATTERN SELECTION LOOP) 

RETURN 

END 1 (END OF ROUTINE) 


j 
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THE 'LOOP READ' CODE IN BRIEF: 

BEGIN 11 (START OF LOOP READING SECTION) 

INCR LUN FROM 0 TO LAST 

: BEGIN 12 (START OF LOGICAL UNIT SELECTION LOOP) 

: TESTLOOP2: 

: BEGIN 13 (START OF LOOP THAT COMPLETELY TESTS 1 UNIT) 

: IF UNIT IS ACTIVE 
: : THEN 

: BEGIN 14 (START OF TEST FOR AN ACTIVE UNIT) 

: : : INITIALIZE THE WRITE AND READ BUFFER POINTERS 
: SECTOR = LOWEST 
: WHILE SECTOR LEO HIGHEST DO 
: : : : BEGIN 15 (START OF SECTOR SELECTION LOOP) 

: : : : 6ET.WRDCNT 

: : : : SET UP BUFFER POINTERS BEFORE TRANSFER 

: : : : CHOOSE WHETHER TO WRITE CHECK OR READ 

: : : : INCR KOUNT FROM 1 TO TIMES 

: BEGIN 16 (START OF COUNTING LOOP FOR LOOP READING) 

: DO THE WRITE CHECK OR READ 
: LOOK FOR ERRORS (IF DROP UNIT, LEAVE TESTLOOP2) 

: END 16 (END OF COUNTING LOOP FOR LOOP READING) 

: : : : CHANGE BUFFER POINTERS AFTER TRANSFER 

: : : : UPDATE SECTOR NUMBER BY # SECTORS IN PREVIOUS TRANSFER 

: END 15 (END OF SECTOR SELECTION LOOP) 

: END 14 (END OF TEST FOR AN ACTIVE UNIT) 

: END 13 (END OF TESTL00P2) 

: END 12 (END OF LOGICAL UNIT SELECTION LOOP) 

END 11 (END OF LOOP READING SECTION) 

6.3 OPTION 3 (GPT3) 

PURPOSE: TO DO A UNIQUE DATA CHECK ON ALL AVAILABLE UNITS. 

THE CODE FOR '0PT3' IN BRIEF: 

BEGIN 1 (START OF ROUTINE) 

SAY ROUTINE IS RUNNING 

INCR COMPLEMENT FLAG FROM 0 TO 1 

: BEGIN 2 (START OF COMPLEMENT FLAG SELECTION LOOP) 

: GENERATE THE PATTERN 
: INCR LUN FROM 0 TO LAST 
: BEGIN 3 (START OF LOGICAL UNIT SELECTION LOOP) 

: : TESTLOOP: 

: BEGIN 4 (START OF LOOP THAT COMPLETELY TESTS 1 UNIT) 

: IF UNIT IS ACTIVE 
: : THEN 

: BEGIN 5 (START OF TEST FOR AN ACTIVE UNIT) 

: : : : INITIALIZE THE WRITE AND READ BUFFER POINTERS 
: SECTOR * LOWEST 
: WHILE SECTOR LEO HIGHEST DO 
: : : : BEGIN 6 (START OF SECTOR SELECTION LOOP) 

: GET WRDCNT 

: SET UP BUFFER POINTERS BEFORE TRANSFER 
: WRITE 

: LOOK FOR ERRORS (IF DROP UNIT, LEAVE TESTLOOP) 


SEO 0025 
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SEQ 0026 


: : : : : CHOOSE WHETHER TO WRITE CHECK OR READ 
: : DO THE WRITE CHECK OR READ 
: : : : : LOOK FOR ERRORS (IF DROP UNIT, LEAVE TESTLOOP) 

: CHANGE BUFFER POINTERS AFTER TRANSFER 

: UPDATE SECTOR NUMBER BY NUMBER OF SECTORS IN PREVIOUS TRANSFER 
: : END 6 (END OF SECTOR SELECTION LOOP) 

: : END 5 (END OF TEST FOR AN ACTIVE UNIT) 

: END 4 (END OF TESTLOOP) 

: END 3 (END OF LOGICAL UNIT SELECTION LOOP) 

: END 2 (END OF COMPLEMENT FLAG SELECTION LOOP) 

RETURN 

END 1 (END OF ROUTINE) 

6.4 OPTION 4 (0PT4) 

PURPOSE: TO LOOK FOR 1NTEREACTI0NS BETWEEN SECTORS 

USING A MARCH TEST. 

THE CODE FOR '0PT4' IN BRIEF: 

BEGIN 1 (START OF ROUTINE) 

SAY ROUTINE IS RUNNING 
WORD COUNT = 256 
GENERATE A BUFFER OF DATA 
GENERATE A BUFFER OF COMP 

INITIALIZE POINTERS TO 4 BUFFERS FOR WRITE/READ DATA/COMP 
INCR LUN FROM 0 TO LAST 

: BEGIN 2 (START OF LOGICAL UNIT SELECTION LOOP) 

: TESTLOOP: 

: BEGIN 3 (START OF LOOP THAT COMPLETELY TESTS 1 UNIT) 

: IF UNIT IS ACTIVE 
: THEN 

: BEGIN 4 (START OF TEST FOR AN ACTIVE UNIT) 

: INCR SECTOR FROM LOWEST TO HIGHEST 
: : : : BEGIN 4A (START OF 1ST SECTOR SELECTION LOOP) 

: WRITE 'DATA' 

: LOOK FOR ERRORS (IF DROP UNIT, LEAVE TESTLOOP) 

: END 4A (END OF 1ST SECTOR SELECTION LOOP) 

: CHOOSE WHETHER TO WRITE CHECK OR READ 'DATA' 

: INCR SECTOR FROM LOWEST TO HIGHEST 
: : : : BEGIN 46 (START OF 2ND SECTOR SELECTION LOOP) 

: : : : DO THE WRITE CHECK OR READ OF 'DATA* 

: LOOK FOR ERRORS (IF DROP UNIT, LEAVE TESTLOOP) 

. . . . urjte 'COMP* 

: LOOK FOR ERRORS (IF DROP UNIT, LEAVE TESTLOOP) 

: END 4B (END OF 2ND SECTOR SELECTION LOOP) 

: CHOOSE WHETHER TO WRITE CHECK OR READ 'COMP' 

: DECR SECTOR FROM HIGHEST TO LOWEST 
: BEGIN 4C (START OF 3RD SECTOR SELECTION LOOP) 

: : : : DO THE WRITE CHECK OR READ OF 'COMP* 

: LOOK FOR ERRORS (IF DROP UNIT, LEAVE TESTLOOP) 

: WRITE DATA 

: LOOK FOR ERRORS (IF DROP UNIT. LEAVE TESTLOOP) 

: END 4C (END OF 3RD SECTOR SELECTION LOOP) 

: CHOOSE WHETHER TO WRITE CHECK OR READ 7 DATA' 

: INCR SECTOR FROM LOWEST TO HIGHEST 
: : : : BEGIN 4D (START OF 4TH SECTOR SELECTION LOOP) 
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: DO THE URITE CHECK OR READ OF ’DATA 1 
: : : LOOK FOR ERRORS (IF DROP UNIT, LEAVE TESTLOOP) 

: : : : END 4D (END OF 4TH SECTOR SELECTION LOOP) 

: END 4 (END OF TEST FOR AN ACTIVE UNIT) 

: END 3 (END OF TESTLOOP) 

: END 2 (END OF LOGICAL UNIT SELECTION LOOP) 

RETURN 

END 1 (END OF ROUTINE) 

6.5 OPTION 5 (OPT5) 

PURPOSE: TO EXERCISE THE ML11 SYSTEMS UNDER TEST IN A RANDOM 

MANNER. SO AS TO SIMULATE THE FLEXIBILITY OF TESTING 
THAT WOULD BE DONE BY AN OPERATING SYSTEM. 

THERE ARE 4 RANDOM TESTS WHICH ARE CALLED BY 'OPT5' 
TO ACCOMPLISH ALL TESTING. IT IS THE RESPONSIBILITY 
OF THIS ROUTINE TO DECIDE HOW MANY TIMES THOSE 4 
RANDOM TESTS WILL BE EXECUTED. REFER TO 'RAND1 ' TO 
'RAND4* BELOW FOR MORE INFORMATION. 


6.5.1 RAND1 ROUTINE 

PURPOSE: TO TEST USING RANDOM DATA 

THE CODE FOR 'RAND1 ' IN BRIEF: 

BEGIN 1 (START OF ROUTINE) 

SAY ROUTINE IS RUNNING 
INCR COUNT FROM 1 TO REPEAT 

: BEGIN 2 (START OF REPEAT LOOP FOR THE ROUTINE) 

: GENERATE THE RANDOM PATTERN 
: INCR LUN FROM 0 TO LAST 
: BEGIN 3 (START OF LOGICAL UNIT SELECTION LOOP) 

: TESTLOOP: 

: BEGIN 4 (START OF LOOP THAT COMPLETELY TESTS 1 UNIT) 

: IF UNIT IS ACTIVE 
: THEN 

: BEGIN 5 (START OF TEST FOR AN ACTIVE UNIT) 

: INITIALIZE THE WRITE AND READ BUFFER POINTERS 
: SECTOR = LOWEST 
: WHILE SECTOR LEO HIGHEST DO 
: BEGIN 6 (START OF SECTOR SELECTION LOOP) 

: GET WRDCNT 

: SET UP BUFFER POINTERS BEFORE TRANSFER 
WRITE 

: LOOK FOR ERRORS (IF DROP UNIT, LEAVE TESTLOOP) 

: CHOOSE WHETHER TO WRITE CHECK OR READ 

: DO THE WRITE CHECK OR READ 

: LOOK FOR ERRORS (IF DROP UNIT, LEAVE TESTLOOP) 

: CHANGE BUFFER POINTERS AFTER TRANSFER 

: UPDATE SECTOR NUMBER BY NUMBER OF SECTORS IN PREVIOUS TRANSFER 
: END 6 (END OF SECTOR SELECTION LOOP) 

: END 5 (END OF TEST FOR AN ACTIVE UNIT) 

: END 4 (END OF TESTLOOP) 

: END 3 (END OF LOGICAL UNIT SELECTION LOOP) 


SEQ 0027 
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: END 2 (END OF REPEAT LOOP FOR THIS ROUTINE) 

RETURN 

END 1 (END OF ROUTINE) 

6.5.2 RAND 2 ROUTINE 

PURPOSE: TO TEST USING RANDOM DATA AND WORD COUNTS 

THE CODE FOR 'RAND2' IN BRIEF: 

BEGIN 1 (START OF ROUTINE) 

SAY ROUTINE IS RUNNING 
INCR COUNT FROM 1 TO REPEAT 

: BEGIN 2 (START OF REPEAT LOOP FOR THE ROUTINE) 

: INCR LUN FROM 0 TO LAST 
: BEGIN 3 (START OF LOGICAL UNIT SELECTION LOOP) 

: GENERATE THE RANDOM PATTERN 
: : TESTLOOP: 

: BEGIN 4 (START OF LOOP THAT COMPLETELY TESTS 1 UNIT) 

: IF UNIT IS ACTIVE 
: : : THEN 

: : : : BEGIN 5 (START OF TEST FOR AN ACTIVE UNIT) 

* * * * SECTOR ~ LOWEST 

! INITIALIZE THE WRITE AND READ BUFFER POINTERS 
: : : : WHILE SECTOR LEO HIGHEST DO 

: BEGIN 6 (START Of A PASS THROUGH ALL SECTORS) 

: : : : : CHOOSE A RANDOM WORD COUNT 

: SET UP BUFFER POINTERS BEFORE TRANSFER 
: CALCULATE NEXT STARTING SECTOR (BASED ON WORD COUNT) 

: IF NEXT STARTING SECTOR GTR HIGHEST 
:::::: THEN ADJUST THE WORD COUNT ANO NEXT SECTOR SO THEY FIT 
WITHIN THE TESTABLE SECTOR LIMITS 

: WRITE 

: LOOK FOR ERRORS (IF DROP UNIT, LEAVE TESTLOOP) 

: CHOOSE WHETHER TO WRITE CHECK OR READ 
: DO THE WRITE CHECK OR READ 
: : : : : LOOK FOR ERRORS (IF DROP UNIT, LEAVE TESTLOOP) 

: SECTOR = THE CALCULATED NEXT STARTING SECTOR 
: : : : CHANGE BUFFER POINTERS AFTER TRANSFER 

: END 6 (END OF A PASS THROUGH ALL SECTORS) 

: END 5 (END OF TEST FOR AN ACTIVE UNIT) 

: END 4 (END TESTLOOP) 

: END 3 (END OF LOGICAL UNIT SELECTION LOOP) 

: END 2 (END OF REPEAT LOOP FOR THIS ROUTINE) 

RETURN 

END 1 (END OF ROUTINE) 

6.5.3 RAND3 ROUTINE 

PURPOSE: TO TEST USING RANDOM DATA, WORD COUNTS AND SECTORS 

THE CODE FOR 'RAND3' IN BRIEF: 

BEGIN 1 (START OF ROUTINE) 

SAY ROUTINE IS RUNNING 
INCR COUNT FROM 1 TO REPEAT 

: BEGIN 2 (START OF REPEAT LOOP FOR THIS ROUTINE) 

: GENERATE THE RANDOM PATTERN 
: I NCR LUN FROM 0 TO LAST 


SEO 0028 
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SEQ 0029 

: BEGIN 3 (START Of LOGICAL UNIT SELECTION LOOP) 

: INITIALIZE BUFFER POINTERS 
: TESTLOOP: 

: BEGIN 4 (START OF LOOP THAT COMPLETELY TESTS 1 UNIT) 

. : IF UNIT IS ACTIVE 
: THEN 

: : : : BEGIN S (START OF TEST FOR AN ACTIVE UNIT) 

: : : : TIMES = (HIGHEST - L0WEST)/2 ♦ 1 
: : : : NCR KOUNT FROM 1 TO TIMES 

: : : : : BEGIN 6 (START OF COUNTING LOOP FOR SECTOR SELECTION) 

: CHOOSE A RANDOM WORD COUNT 
: SET UP BUFFER POINTERS BEFORE TRANSFER 
: CHOOSE A RANDOM SECTOR 

: CALCULATE WHERE TRANSFER WILL END (BASED ON WORD COUNT) 

: IF CALCULATED VALUE GTR HIGHEST 
: THEN ADJUST THE WORD COUNT SO IT FITS 
WITHIN THE TESTABLE SECTOR LIMITS 

: : : : : WRITE 

: : : : LOOK FOR ERRORS (IF DROP UNIT. LEAVE LABEL) 

: : : : : CHOOSE WHETHER TO WRITE CHECK OR READ 
: DO THE WRITE CHECK OR READ 
: LOOK FOR ERRORS (IF DROP UNIT. LEAVE LABEL) 

: : : : : CHANGE BUFFER POINTERS AFTER TRANSFER 

: END 6 (END OF COUNTING LOOP FOR SECTOR SELECTION) 

: END 5 (END OF TEST FOR AN ACTIVE UNIT) 

: END 4 (END OF TESTLOOP) 

: END 3 (END OF LOGICAL UNIT SELECTION LOOP) 

: END 2 (END OF REPEAT LOOP FOR THIS ROUTINE) 

RETURN 

END 1 (END OF ROUTINE) 

6.5.4 RAND4 ROUTINE 

PURPOSE: TO TEST USING RANDOM DATA. WORD COUNTS. SECTORS 

AND UNITS 

THE CODE FOR ’RAND4' IN BRIEF: 

BEGIN 1 (START OF ROUTINE) 

SAY ROUTINE IS RUNNING 
I NCR COUNT FROM 1 TO REPEAT 

: BEGIN 2 (START OF REPEAT LOOP FOR THIS ROUTINE) 

: GENERATE THE RANDOM PATTERN 
: TIMES = NUMBER OF UNITS * 4 
: INCR KOUNT FROM 1 TO TIMES 
: BEGIN 3 (START OF COUNTING LOOP FOR UNIT SELECTION) 

: CHOOSE A RANDOM LOGICAL UNIT WHICH IS ACTIVE 
: : INITIALIZE BUFFER POINTERS 
: : TESTLOOP: 

: BEGIN 4 (START OF LOOP THAT COMPLETELY TESTS 1 UNIT) 

: INCR K0UNT2 FROM 1 TO 10 

: BEGIN 5 (START OF COUNTING LOOP FOR SECTOR SELECTION) 

: CHOOSE A RANDOM WORD COUNT 
: SET UP BUFFER POINTERS BEFORE TRANSFER 
: CHOOSE A RANDOM SECTOR 

: : : : CALCULATE WHERE TRANSFER WILL END (BASED ON WORD COUNT) 

: : : : IF CALCULATED VALUE GTR HIGHEST 

: THEN ADJUST THE WORD COUNT SO IT FITS 
WITHIN THE TESTABLE SECTOR LIMITS 


WRITE 
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: : : : LOOK FOR ERRORS (IF DROP UNIT. LEAVE TESTLOOP) 

: CHOOSE WHETHER TO WRITE CHECK OR READ 
: DO THE WRITE CHECK OR READ 
: : : : LOOK FOR ERRORS (IF DROP UNIT. LEAVE TESTLOOP) 

: CHANGE BUFFER POINTERS AFTER TRANSFER 
: END 5 (END OF COUNTING LOOP FOR SECTOR SELECT 'ON) 
: END 4 (END OF TESTLOOP) 

: END 3 (END OF COUNTING LOOP FOR UNIT SELECTION) 

: END 2 (END OF REPEAT LOOP FOR THIS ROUTINE 
RETURN 

END 1 (END OF ROUTINE) 


7.0 MAINTENANCE HISTORY 
MODIFIED BY: D.W. NEALE 


DATE: 18-FEB-82 


VERSION: 8 


ALL FUNCTIONAL CHANGES TO THIS DIAGNOSTIC ARE LABLED 
WITH A COMMENT LINE OF 'VER CZMLBB' PRECEEDING ANY 
MODIFIED OR ADDED LINE/BLOCK OF CODE. 

FUNCTIONAL CHANGES TO THIS DIAGNOSTIC INCLUDE: 

1. MODIFING CODE TO ENSURE QUALITY TESTING OF ML-118 
AND HL-11A BLOCK MODE MEMORY SYSTEMS. 

2 . CORRECT EXERCISER FUNCTIONALITY TO CALL OUT ML11 
PROM MAINTENANCE PROGRAM AFTER 10 UNIOUE FAILING 
SINGLE BIT ERRORS (SBE'S) HAVE BEEN DISCOVERED 
PER ARRAY MODULE. 

VERSION 'A' PROM MAINTENANCE CALL OUT OCCURES AFTER 
ANY TEN SBE'S ARE DISCOVERED PER ARRAY MOOULE. 

3. PER REQUEST OF F/S AND MEMORY EN61NEER1N6. THE REPORTING 
OF *MDPE* ERRORS DURIN6 SBE'S CORRECTION WILL BE IGNORED. 

4. ADDING TO THE REPORT SUMMARY CODE SECTION A TABLE OF S8E 
LOCATIONS AND PRINTING OF THIS TABLE DURING REPORT CODE 
PRINTING. 


SEQ 0030 
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1 

33 

35 OOOOOO 

36 

38 

39 002000 

AO 

41 

42 

43 

44 

45 

46 002000 

47 

64 

65 002000 
002000 
002000 
002001 
002002 
002003 
002004 
002005 
002006 
002007 
002010 
002010 
002011 
002011 
002012 
002012 
002014 
002014 
002016 
002016 
002020 
002020 
002022 
002022 
002024 
002024 
002026 
002026 
002030 
002030 
002032 
002032 
002034 
002034 
002036 
002036 
002040 
002040 
002042 
002042 
002044 
002044 


002000 


OOOOOO 

003410 

002266 

002450 

002210 

002222 

105050 

OOOOOO 

OOOOOO 

000001 

OOOOOO 

002204 

OOOOOO 

OOOOOO 
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.S8TTL PROGAAH HEADER AND TABLES 

.ENA8L A8S.AHA 
. = 2000 

BGNMOD 

•THE PROGRAM HEADER IS THE INTERFACE BETWEEN 
; THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR. 


POINTER ALL 


HEADER CZHL8.B. 0.1800. ,1 


SEQ 0031 


LSNAME : : 

.ASCII 

/c/ 

.ASCII 

m 

.ASCII 

m/ S 

.ASCII 

/L/ 1 

.ASCII 

/8/ 

.BYTE 

0 

• BYTE 

0 

.BYTE 

0 

LSREV: : 

.ASCII 

/B/ 

LSDEPO:: 

.ASCII 

/O/ 

LJUNIT:: 

.WORD 

TSPTHV 

LtTIHL:: 

.WORD 

i 

1800. 

L$HPCP: : 

.WORD 

LSHARD 

LJSPCP:: 

.WORD 

LSSOFT 

LSHPTP:: 

.WORD 

LSHW 

LfSPTP: : 

.WORD 

LSSW 

LSLADP : : 

.WORD 

LSLAST 

LSSTA: : 

.WORD 

0 

LSCO: : 

.WORD 

o i 

LSDTYP: : 

.WORD 

1 

L$APT : : 

.WORD 

0 

L*OTP: : 

.yoRD 

LSDISPATCH ! 

LSPRIO: : 

.WORD 

0 

LSENVI:: 

.WORD 

0 ' 


t 
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PROGRAM HEADER 

AND TAB! 

002046 


002046 

000000 

002050 


002050 

003 

002051 

003 

002052 


002052 

000000 

002054 

000000 

002056 


002056 

000000 

002060 


002060 

002122 

002062 


002062 

005474 

002064 


002064 

000000 

002066 


002066 

000000 

002070 


002070 

005652 

002072 


002072 

005640 

002074 


002074 

000000 

002076 


002076 

002130 

002100 


002100 

104035 

002102 


002102 

002172 

002104 


002104 

04C722 

002106 


002106 

105034 

002110 


002110 

005506 

002112 


002112 

004126 

002114 


002114 

000000 

002116 


002116 

000000 

002120 


002120 

000000 

66 


77 


78 


79 


80 002122 


002122 


002122 

115 


SEQ 0032 


NAMES OF DEVICES SUPPORTED BY THIS PROGRAM 
DEVTYP <ML11> 


LSEXP1 : : 
LSMREV: : 

LSEF : : 


.WORD 

•BYTE 

.BYTE 


LSSPC:: 
LSD EVP:: 
LSREPP:: 
LSEXP4 : : 
LSEXP5: : 
LSAUT: : 
LSDUT : : 
LSLUN:: 
LSDESP: : 
LSLOAD: : 
LSETP: : 
LSICP: : 
LSCCP: : 
ISACP: : 
LSPRT : : 
LSTEST:: 
LSDLY:: 
LSH1ME: : 


.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

EMT 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 


CSREV1S10N 

CSEDIT 

0 

0 

0 

LSDVTYP 

LSRPT 

0 

0 

LiAU 

LSDU 

0 

LSDESC 

ESLOAD 

LSERRTBL 

LSI NIT 

LSCLEAN 

IS AUTO 

LSPROT 

0 

0 

0 


114 


061 


LSDVTYP:: 

.ASCIZ /ML11/ 
.EVEN 
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82 

83 

84 

85 002130 
002130 
002130 
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TEST DESCRIPTION 


SEO 0033 


DESCRIPT <C2MIBB Mill PERFORMANCE EXERCISER> 


103 132 


LSDESC : : 


86 

87 

88 

89 

90 

91 

92 

93 

94 002172 
002172 
002172 
002174 
002176 
002200 

95 

96 

97 

98 

99 

100 

101 002202 
002202 
002204 
002204 

102 

109 

110 

111 

112 

113 

114 

115 

116 

117 002206 
002206 
002210 
002210 

118 

128 

129 002210 

130 002212 

131 002214 

132 002216 

133 

134 002220 
002220 


000000 

000000 

000000 

000000 


000001 

102712 


000004 


176400 

000204 

000005 

000000 


.ASCIZ /CZMLB6 ML11 PERFORM 
.EVEN 


THE GLOBAL ERROR TABLE (INFORMATION 
USED IN A CALL TO THE MACRO "ERROR") 


LSERRTBL: 


ERRTBL 

ERRTYP: 

ERRNBR: 

ERRMSG: 

ERRBLK: 


THE DISPATCH TABLE CONTAINS THE STARTING ADDRES OF EACH TEST. 
IT IS USED BY THE SUPERVISOR TO DISPATCH TO EACH TEST. 


DISPATCH 1 


.WORD 

LSDISPATCH: : 

.WORD 


THE DEFAULT HARDWARE P- TABLE CONTAINS DEFAULT VALUES OF 
THE TEST-DEVICE PAP~"1ETERS. THE STRUCTURE OF THIS TABLE 
IS IDENTICAL TO THE STRUCTURE OF THE HARDWARE P-TABLES. 
AND IS USED AS A ’TEMPLATE" FOR BUILDING THE P-TABLES. 


8GNHW DFPTBL 


.WORD 176400 
.WORD 204 
.WORD 5 
.WORD 0 

ENDHW 


LSHW: : 
DFPTBL:: 


.WORD L10000-LSHW/2 


;CSR ADDRESS 
;RH VECTOR ADDRESS 
;BR LEVEL FOR INTERRUPT 
;ML11 DRIVE NUMBER 


L10000: 


J 


SEQ 0034 
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136 

137 

138 

139 

140 

141 

142 

143 002220 
002220 
002222 
00C222 

144 

152 

153 002222 

154 

155 002224 

156 

157 002226 

158 002230 

159 002232 

160 002234 

161 002236 

162 002240 

163 002242 

164 002244 

165 002246 

166 002250 

167 002252 

168 

169 002254 

170 

171 

172 

173 

174 

175 

176 

177 

178 

179 

180 
181 
182 

183 

184 

185 

lt£ 

188 002256 

189 

190 002260 

191 

192 002262 
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000021 


000000 

000000 


000000 

000000 

000000 

000000 

000000 


000001 


000000 


000000 

000000 

000000 


194 

195 

196 002264 


THE DEFAULT SOFTWARE P-TABLE CONTAINS VARIOUS DATA USED BY THE 
PROGRAM AS OPERATIONAL PARAMETERS. THESE PARAMETERS ARE SET 
UP AT ASSEMBLE TIME AND MAY BE VARIED BY THE OPERATOR AT RUN 
TIME. 


BGNSU SFPTBL 


LIMIT:: .WORD 0 


.WORD L10001-LSSW/2 


RANGE:: 

LSECT: : 

TSECT:: 

ONLY:: 

DROPNE:: 

DR0P1 : : 

DR0P2 : : 

DR0P3 : : 

DR0P4:: 

MARPAT:: 

DR0P5 : : 

REFRESH: 


.WORD 0 
.WORD 0 
.WORD 0 
.WORD 0 
.WORD 0 
.WORD 0 
.WORD 0 
.WORD 0 
.WORD 1 
.WORD 0 
.‘.WORD 0 


ECCDIS: : .WORD 0 


LSSW:: 

SFPTBL:: 


LIMIT RANGE OF SECTORS TO BE TESTED 
0 = NO 1 * YES 

DOES OPERATOR KNOW EXACT SECTOR NUMBERS? 

0 * NO 1 = YES 
LOW SECTOR NUMBER 
TOP SECTOR NUMBER 

ONLY BOARD TO TEST (BOARD A'S ARE 0 TO 15) 
DROP ANY OPTIONS? 0 = NO 1 = YES 
DROP OPTION #1? 0 = NO 1 = YES 

DROP OPTION #2? 0 = NO 1 = YES 

DROP OPTION #3? 0 = NO 1 = YES 

DROP OPTION #4? 0 * NO 1 = YES 

PATTERN NUMBER USED FOR MARCH TEST 


DROP OPTION #5? 
ENABLE MARGINING? 

DISABLE ECC? 


0 = NO 1 = YES 

0 * NO (LEAVE DISABLED) 

1 = YES (ENABLE IT) 

0 = NO (LEAVE ENABLED) 

1 = YES (DISABLE IT) 


>****«**»•* important note •*•*•****« 

THE FOLLOWING 2 SOFTWARE PARAMETERS 
HAVE NON-STANDARD DEFAULTS. ERRORS 
AND END OF PASS PERFORMANCE SUMMARY 
REPORTS WILL *♦ N 0 T ** BE PRINTED 
UNLESS THE OPERATOR SPECIFICALLY 
REOUESTS THE PRINTOUTS VIA SUITABLE 
ANSWERS TO THE SOFTWARE QUESTIONS. 

THIS OPERATING FEATURE WAS INCLUDED 
IN THE ML11 PERFORMANCE EXERCISER'S 
FUNCTIONAL SPECIFICATION AT THE RE- 
QUEST OF FIELD SERVICE. 


EOPSUM: : .WORD 0 
ERROUT:: .WORD 0 
EFNS21 : : .WORD 0 


ENDSW 


ENABLE EOP SUMMARIES? 


NO PRINTOUT 
YES 

ENABLE ERROR PRINTOUTS? 0 - NO PRINTOUT 

1 = YES 

ENABLE SOFT ERROR TESTING 0 = NO (DEFAULT) 

1 = YES 

THIS OPTION IS DESIGNED FOR MEMORY ENGINEERING 
FOR DMT PURPOSES 
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002264 

197 

222 

248 

249 

250 

251 

252 

253 

254 

255 

256 

257 

258 

259 002264 
002264 
002266 

260 

270 

271 

272 002266 
002266 
002270 
002272 
002274 

273 002276 
002276 
002300 
002302 
002304 

274 002306 
002306 
002310 
002312 
002314 
002316 

275 002320 
002320 
002322 
002324 
002326 
002330 

276 

277 002332 
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SEO 0035 


000022 


000031 

002332 

000000 

177777 

001031 

002351 

000000 

000377 

002032 

002374 

000007 

000001 

000007 

003032 

002425 

000007 

000000 

000007 


002332 

278 

285 

286 002332 

287 002351 

288 002374 

289 002425 

290 

291 

292 

293 

294 


LI 0001 


THE HARDWARE PARAMETER CODING SECTION CONTAINS MACROS 
THAT ARE USED BY THE SUPERVISOR TO BUILD P-TA8LES. THE 
MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
WITH THE OPERATOR. 


BGNHRD 


GPRMA QHl, 0,0. 0,1 77777, YES 


GPRMA 0H2. 2, 0,0, 377, YES 


GPRMD QH3,4,0,7,1.7,YES 


GPRMD QH4, 6, 0,7, 0,7, YES 


L SHARD; 


.WORD L10002-L SHARD/2 


TIC ODE 
0H1 

TSLOLIM 

TSHILIM 

T SC ODE 
QH2 

TSLOLIM 

TSHILIM 

TSCODE 

QH3 

7 

TSLOLIM 

TSHILIM 


.WORD 

.WORD 

.WORD 

.WORD 

.WORD 


ENDHRD 


L 10002: 


103 

123 

122 

QHl: 

.ASCIZ 

/CSR ADDRESS 

?/ 

111 

116 

124 

0H2: 

.ASCIZ 

/INTERRUPT VECTOR 
/BR LEVEL FOR INTERRUPT 

?/ 

102 

1 22 

040 

QH3: 

.ASCIZ 

?/ 

104 

122 

111 

0H4: 

.ASCIZ 

/DRIVE NUMBER 

?/ 


.EVEN 


THE SOFTWARE PARAMETER CODING SECTION CONTAINS MACROS 


TSlODE 

OH. 

7 

TSLOLIM 

TSHILIM 


t 



K 3 
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SEO 0036 

; THAT ARE USED BY THE SUPERVISOR TO BUILD P-TA8LES. THE 
; MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
; INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
; MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
; WITH THE OPERATOR. 


BGNSFT 

GPRML 051,0.1, YES 

XFERF 6S 
GPRML QS2,2,1,YE$ 

XFERF 5$ 

GPRMD QS3, 4, 0,1 77777, 0,1 77777, YES 

GPRMD QS4, 6,0, 177777,0,177777, YES 

XFER 6$ 

5$: GPRMD QS5, 10,0,37.0,15., YES 


6$: GPRML 056,12.1, YES 

XFERT 75 

GPRMD 0S11. 24.0,77,1, 10.. YES 


XFER 135 


.WORD L10003-L5SOFT/2 

ISSOFT : : 


.WORD T5C0DE 
.WORD QS1 
.WORD 1 

.WORD T5C0DE 

.WORD T5C0DE 
.WORD QS2 
.WORD 1 

.WORD T5C0DE 

.WORD T5C0DE 
.WORD QS3 
•WORD 177777 
.WORD T5L0LIH 
.WORD T5HILIM 

.WORD T5C0DE 
.WORD QS4 
.WORD 177777 
.WORD T5L0LIH 
.WORD TSHILIM 

.WORD T5C0DE 


.WORD 

.WORD 

.WORD 

.WORD 

.WORD 


T5C0DE 

QS5 


37 


T5L0LIH 


TSHILIM 


.WORD T5C0DE 
.WORD QS6 
.WORD 1 


.WORD TSCODE 


.WORD TSCODE 
.WORD QS1 1 
.WORD 77 
.WORD TSLOUM 
.WORD TSHILIM 







CZMLB80 PERFORMANCE EXERCISER 
PROGRAM HEADER AND TABLES 


347 002664 

548 002732 

549 005007 

550 003047 

351 003107 

352 003147 
553 003203 

354 003231 

355 003256 

356 003310 

357 003333 

358 003364 

359 003454 

360 003474 

361 003514 

362 003534 

363 003554 

364 003637 

365 003657 

366 003724 

367 003763 

368 004030 

369 004066 

370 

371 

372 

373 

374 

375 

376 

377 

378 

379 004126 
004126 

380 

381 004126 

382 004130 

383 004132 

384 

385 004134 

386 

400 

401 

402 004134 

403 

410 

411 004234 
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SEQ 0038 


177777 

177777 

177777 


114 

111 

115 

QS1 


104 

117 

040 

QS2 


106 

111 

122 

QS3 


114 

101 

123 

QS4 


127 

110 

111 

QS5 


124 

110 

105 

QS6 


012 

015 

040 



012 

015 

040 



012 

015 

040 



012 

015 

040 



012 

015 

040 



01 2 

015 

104 



104 

122 

117 

QS7 


104 

122 

117 

QS8 


104 

122 

117 

QS9 


104 

122 

117 

QS10: 

120 

101 

124 

osr 

1: 

104 

122 

117 

QSlj 

?: 

105 

116 

101 

QS1. 

5: 

104 

111 

123 

OSH 


105 

116 

101 

QS1! 

5: 

105 

116 

101 

QS1( 

S: 

105 

116 

101 

QS17: 


.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.EVEN 


/LIMIT RANGE OF SECTORS TO BE TESTED ?/ 

/DO YOU KNOW EXACT RANGE OF SECTORS TO TEST ?/ 

/FIRST SECTOR TO BE TESTED ?/ 

/LAST SECTOR TO BE TESTED ?/ 

/WHICH BOARD <0-1 5} TESTED ?/ 

/THE PROGRAM OPTIONS INCLUDE:/ 

<12x15>/ 1. ADDRESS CHECK/ 

<12><1 5>/ 2. PATTERN TEST/ 

<12x15>/ 3. UNIQUE DATA CHECK/ 

<12X15>/ 4. MARCH TEST/ 

<12x15>/ 5. RANDOMNESS TESTS/ 

<12><15>/D0 YOU WANT TO DROP ANY OF THESE FROM 1HE EXERCISER ?/ 
/DROP OPTION 1 ?/ 

/DROP OPTION 2 ?/ 

/DROP OPTION 3 ?/ 

/DROP OPTION 4 ?/ 

/PATTERN NUMBER <1-10> TO BE USED WITH MARCH TEST ?/ 

/DROP OPTION 5 ?/ 

/ENABLE REFRESH MARGINING ?/ 

/DISABLE ERROR CORRECTION ?/ 

/ENABLE END OF PASS SUMMARY PRINTOUT?/ 

/ENABLE ERROR PRINTOUTS ?/ 

/ENABLt SOFT ERROR TESTING ?/ 


THE PROTECTION TABLE IS USED BY THE RUNTIME 
SERVICES TO PROTECT THE LOAD MEDIA. 


BGNPROT 


LfPROT:: 


.•OFFSET INTO P-TABLE FOR CSR ADDRESS 
.•OFFSET INTO P-TABLE FOR MASS8US ADDRESS 
; OFFSET INTO P-TABLE FOR DRIVE NUMBER 


ENDPROT 


(PATCH: : .BLKW 32. .‘THIS LEAVES ROOM FOR THE 22 HL-11 REGISTERS TOO 


ENDMOD 


i 

i 


CZMLBBO PERFORMANCE EXERCISER 
'RANDOM NUMBER GENERATOR* 
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SEQ 0039 


.SBTTL 'RANDOM NUMBER GENERATOR* 

.•ROUTINE TO GENERATE 16-BIT PSEUDO RANDOM NUMBERS 


.•INPUTS; 

.•IMPLIED INPUTS: 

•OUTPUTS: 

.•IMPLIED OUTPUTS: 
.•CALLING SEQUENCE: 


NONE 

SEED1, SEED2. SEED3 are 


SEEDi , SEED*. SEED3 are global values which will 
be used by, but not Input to the generator. 


•RANDOM'— WORD CONTAINING RANDOM 
NONE 

JSR PC.RN 


-BIT INTEGER VALUE 


12 005370 

010046 

RN:: 

MOV 

RO.-(SP) 

13 005372 

016700 

000062 

MOV 

SEED2.R0 

14 005376 



CLC 


15 005400 

005367 

000052 

DEC 

SEEDI 

16 005404 

006100 


ROL 

RO 

17 005406 

006100 


ROL 

RO 

18 005410 

066700 

000042 

ADD 

SEED1.R0 

19 005414 

066700 

000042 

ADD 

SEED3.R0 

20 005420 

010067 

000034 

MOV 

R0.SEED2 

21 005424 

006100 


ROL 

RO 

22 005426 

006100 


ROL 

RO 

23 005430 

066700 

000026 

ADD 

SEED3.R0 

24 005434 

006100 


ROL 

RO 

25 005436 

006100 


ROL 

RO 

26 005440 

010067 

000016 

MOV 

R0.SEED3 

27 005444 

016767 

000010 000012 

MOV 

SEED2, RANDOM 

28 005452 

012600 


MOV 

<SP)+,RO 

29 005454 

000207 


RTS 

PC 


; SAVE NEW R.N. 


30 

31 

32 

33 005456 

34 005460 

35 005462 

36 

37 005464 


000000 

001233 

007622 

000000 


SEEDI 

SEED2 

SEED3 


: .WORD 0 

: .WORD 1233 

: .WORD 7622 


RANDOM:: .WORD 0 




SEO 0040 
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'RANDOM NUMBER GENERATOR' 


;MLX3 


25-Mar-1982 22:23:37 
25-Mar-" 982 22:21:30 


0001 MODULE MLX3 = 

0002 BEGIN 

0003 

0004 REOUIRE 'BLSMAC.REO'; 

1494 

1495 XSBTTL 'REPORT CODING SECTION' 

1496 

1497 EXTERNAL ROUTINE 

1498 EOP: NOVALUE; 

1499 

1500 BGNRPT; 

1501 

1502 EOPO; 

1503 

1504 RETURN; 

1505 

1506 ENDRPT; 


.GLO0L EOP 


.SBTTL LRPT REPORT CODING SECTION 

005466 004767 075234 LRPT: JSR PC. EOP 

005472 000207 RTS PC 

; Routine Size: 3 words 
; Maximum stack depth per invocation: 0 words 


005474 004767 177766 

005500 104425 
005502 000207 


.SBTTL LSRPT REPORT CODING SECTION 
LSRPT : : JSR PC. LRPT 
*MLX3 

; REPORT CODING SECTION 

TRAP 25 

RTS PC 

; Routine Size: 4 words 

; Maximum stack depth per invocation: 0 words 


TOPS-20 Bliss-16 V2(212) 
PA : <NEALE>MLX3.BLI . 1 (1) 


1502 

1498 


25-Mar-1982 22:23:37 TOPS 
25-Mar-1982 22:21:30 PA:< 


CZMLB80 PERFORMANCE EXERCISER 
LSRPT REPORT CODING SECTION 
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SEQ 0041 


74 ;MLX3 

75 ; 

76 

77 ; 

78 ; 

79 ; 

80 ; 

31 ; 

82 ; 

83 ; 

84 . 

85 ; 

86 ; 

87 ; 

88 ; 

89 ; 

90 ; 

91 ; 

92 ; 

96 

97 

101 005504 

102 

103 

104 

109 

110 

114 

115 

119 005506 

120 005512 

121 005514 

122 

123 

124 


AUTODROP SECTION 
XSBTTL ’AUTODROP SECTION’ 


25-Mar- 1982 22:23:37 TOPS-20 Bllss-16 V2(212) 
25-Mar-1982 22:21:30 PA:<NEALE>MLX3.BU.1 (2) 


THIS SECTION IS OPTIONALLY EXECUTED IMMEDIATELY AFTER THE INITIALIZATION 
CODE IF THE /ADR FLAG WAS SET. THE INTENT IS TO EXAMINE THE UNITS UNDER 
TEST TO SEE IF THEY WILL RESPOND. THOSE THAT DON’T RESPOND ARE DROPPED. 

THIS FUNCTION IS AN INTEGRAL PART OF THE INITIALIZATION CODE ITSELF, AND 
THEREFORE A SEPARATE AUTODROP SECTION IS REDUNDANT AND NOT PROVIDED. 


BGNAUTO; 

RETURN; 

ENDAUTO; 


000207 


.S8TTL LAUTO AUTODROP SECTION 
LAUTO: RTS PC 

; Routine Size: 1 word 

; Maximum stack depth per Invocation: 0 words 


004767 

104461 

000207 


177772 


.S8TTL 
LSAUTO: :JSR 
TRAP 
RTS 


LSAUTO AUTODROP SECTION 
PC, LAUTO 
61 
PC 


; Routine Size: 4 words 

; Maximum stack depth per Invocation: 0 words 


UMLBBO PERFORMANCE EXERCISER 
LSAUTO AUTOOP Of SECTION 
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SEO 0042 


DROP UNIT SECTION 
XS8TTL 'DROP UNIT SECTION' 


25-Mar-1982 22:23:37 
25-M»r-1982 22:21:30 


TOPS-20 Btiss-16 V2(212) 
PA:<K'EALE>MLX3.BLl.1 (3) 


THE DROP-UNIT SECTION CONTAINS THE COOING THAT CAUSES A DRIVE TO NO 
LONGER BE TESTED. WHEN THIS HAPPENS. THE FOLLOWING ACTIONS WILL BE 
TAKEN: 

(1) SET THE DRIVE STATUS TO INACTIVE AND SET THE DRIVE'S DROP FLAG. 

(2) DECREMENT THE NUMBER OF ACTIVE DRIVES, AND IF ZERO ABORT PASS. 


BGNDU; 


DELCARE THE EXTERNAL SUMMARY REPORT CODE 
DATA STORAGE LOCATIONS TO THIS SECTION 


EXTERNAL 

LSLUN, 

DRI VE.STATUS :Bi TVECT0RC8J , 
DROPT’DRIVES :B1 T VECTOR [83 . 
NUM.DRlVES; 


LITERAL 

INACTIVE = 0. 
ACTIVE = 1; 


[DEFINES NUMBER OF UUT'S ATTACHED 

[DRIVE STATUS FLAG REGISTER 

[DRIVE DROP STATUS FLAG REGISTER 

[INDICATES THE NUMBER OF ATTACHED UUT'S TO TEST 


[CODE TO DESELECT UUT'S 
[CODE TO SELECT UUT'S 


! THIS SECTION IS CALLED FOR THE PURPOSE OF 
! DROPPING THIS UUT FROM FURTHER TESTING. 

i 

j THEREFORE CLEAR THIS UUT'S DRIVE ACTIVE FLAG BIT 
! AND SET THIS UUT'S DRIVE DROPPED FLAG. 


DRIVE.STATUSC.LSLUN3 * INACTIVE; 
DROPT.DRIVESC.LSLUNJ = ACTIVE; 


[CLEAR THE DRIVE ACTIVE FLAG 
[SET THE DRIVES DROPPED FLAG 


I DECRIMENT THE GLOBAL VARIABLE ‘NUM DRIVES' WHICH 
! STORES THE NUMBER OF UUT'S WHICH ARE TESTED BY THIS 
! EXERCISER. 

i 

! IF THE NUMBER OF DRIVES REMAINING TO TEST IS ZERO 
! THEN CALL THE CLEAN UP CODE SECTION AND EXIT THIS 
! PROGRAM ELSE CONTINUE TESTING THE REMAINING ACTIVE 
! UUT'S. 


DROP UNIT SECTION 


25-Mar-1982 22:23:37 TOPS-20 BUss-16 V2C212) 
25-Mar-1982 22:21:30 PA:<NEALE>MLX3.BLI.1 (3) 


| CZMLBBO PERFORMANCE EXERCISER MACRO N1113 29-MAR-82 13:41 PAGE 46-1 
LSAUTO AUTOOROP SECTION 


SEQ 0043 


1576 NUM DRIVES = .NU1.DRIVES - 1; 

1577 

1578 

1579 IF .Ntfl DRIVES EQL 0 THEN DOCLN; 

1580 

1581 RETURN; 

1582 

1583 ENODU; 


iDECRIMENT THE NUMBER OF DRIVES REMAINING TO TEST 


! DO CLEAN UP CODE AND EXIT PROG IF ZERO 


.GLOBL LSLUN, DRIVE. STATUS. DROPT. DRIVES 
.GLOBL NUM. DRIVES 


.S8TTL LDU DROP UNIT SECTION 


j 


i CZWLB80 PERFORMANCE EXERCISER 
LDU DROP UNIT SECTION 


210 005516 

211 005522 

212 005524 

213 005526 

214 005530 

215 005534 

216 005536 

217 005542 

218 005546 

219 005552 

220 005554 

221 005560 

222 005564 

223 005566 

224 005570 

225 005572 

226 005576 

227 005600 

228 005604 

229 005610 

2 30 005614 
2i1 005616 

2 32 005622 

233 005626 

234 005630 

235 005632 

236 005636 

237 

238 

239 

247 

248 

252 

253 

257 005640 

258 005644 
2)9 005646 
260 

261 

262 

267 

268 


016700 

006200 

006200 

006200 

062700 

010046 

016746 

042716 

012746 

005046 

004767 

016700 

006200 

006200 

006200 

062700 

010016 

016746 

042716 

012746 

011646 

004767 

005367 

001001 

104444 

062706 

000207 


004767 

104453 

000207 


174352 


034442 

174332 

177770 

000001 

177034 

174310 


034444 

174270 

177770 

000001 

176772 

026630 


000016 


177652 


f i, 
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LOU: NOV LSLCM.ro 

ASR RO 

ASR RO 

ASR RO 

ADD #DRIVE. STATUS. RO 

NOV RO.-(SP) 

NOV LSLUN.-(SP) 

BIC #1777*0. (SP) 

NOV #1,-(SP> 

CLR *(SP) 

JSR PC.BLSPU2 

NOV LSLUN.RO 

ASR RO 

ASR RO 

AS R RO 

ADD #DR0PT. DRIVES, RO 

NOV RO.(SP) 

NOV LSLUN.-(SP) 

BIC #177770, (SP) 

NOV #1,-<SP) 

NOV (SP).-(SP) 

JSR PC,BLSPU2 

DEC NUN. DRIVES 

BNE IS 

TRAP 44 

1$: ADD #16, SP 

RTS PC 

; Routine Size: 41 words 

; Maximum stack depth per invocation: 7 words 


.S6TTL LSDU DROP UNIT SECTION 
LSDU: : JSR PC.LDU 

TRAP 53 

RTS PC 

; Routine Site: 4 words 

; Maximum stack depth per invocation: 0 words 




SEQ 0044 
1562 


1563 


1576 

1579 

1522 


1581 
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DROP UNIT 

SECTION 


270 ;MLX3 

271 ; 

272 


ADD UNIT 

273 ; 

1584 

XS8TTL ' 

274 ; 

1585 


275 ; 

1586 


276 ; 

1587 

! THE A 

277 ; 

1588 

! TO BE 

278 ; 

1589 

! TO TH 

279 ; 

1590 

! TO BE 

280 ; 

1591 

! FOR A 

281 ; 

1592 

J — 

282 ; 

1593 


283 ; 

1594 

8GNAU; 

284 ; 

1595 


285 ; 

1596 

RETURN; 

286 ; 

1597 


?8 7 ; 

291 

292 

1598 

ENDAU; 

296 005650 

297 

000207 



warm imi 


4J UNCTION WITH THE ADDING OF A UNIT BACK 
SINCE THE INITIALIZATION CODE WILL HAVE 
IATEL V AFTER an 'ADD\ THERE IS NO NEED 


LAU: 


.SSTTL LAU ADD UNIT SECTION 
RTS PC 


SEO 0045 

TOPS-20 Bliss-16 V2<212> 
PA:<NEALE>MLX3.8LI.1 (4) 


1583 


i 


t 


CZMLBBO PERFORMANCE EXERCISER 

LAU ADD UNIT SECTION 

299 

300 

305 

306 

310 

311 


315 005652 

004767 

177772 

316 005656 

104452 


317 005660 

318 

319 

320 

000207 


325 ; 

326 ;MLX3 

1599 


327 ; 

328 


ADD UNIT 

329 ; 

1600 


330 ; 

1601 

END 

331 ; 

1602 


332 ; 

336 

1603 

ELUDOM 


MACRO H1113 29-MAR-82 13:41 


H 4 
PAGE 49 


SEQ 0046 


Routine Size: 1 word 

Maximum stack depth per invocation: 0 words 


LSAU: 


.S8TTL 

JSR 

TRAP 

RTS 


LSAU ADD UNIT SECTION 
PJ.LAU 

PC 


1596 


Routine Size: 4 words 

Maximum stack depth per invocation: 


0 words 


25-Mar-1982 22:23:37 
25-Mar-1982 22:21:30 


T0PS-20 Bliss-16 V2(212> 
PA:<NEALE>MLX3.BLI.1 (4) 



C2MLB80 PERFORMANCE EXERCISER 
LSAU ADD UNIT SECTION 
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SEQ 0047 


338 

339 

340 

341 

342 

343 

344 

345 

346 

347 

348 

349 

350 

351 

352 

353 


OTS external references 
.GL08L BLSPU2 


1604 

1605 

Size: 62 code ♦ 0 data words 

Run Tine: 00:03.3 

Elapsed Tine: 00:05.2 
Nenory Used: 26 pages 
Conpilation Complete 


CZHLB80 PERFORMANCE EXERCISER 
LSAU ADD UNIT SECTION 
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SEQ 0048 


27-Mer-1982 19:24:42 
27-Mar-1982 19:23:44 


TOPS-20 Bliss-16 V21212) 
PA:<NEALE>MLX4.B11.5 (1) 


0003 

0004 

0005 

0006 

0007 

0008 

0009 

0010 
1500 


1501 

1502 

1503 

1504 

1505 

1506 

1507 

1508 

1509 

1510 

1511 

1512 

1513 

1514 

1515 

1516 

1517 

1518 

1519 

1520 

1521 

1522 

1523 

1524 

1525 

1526 

1527 

1528 


MODULE MLX4 = 
BEGIN 


PERTTY BLF COMMANDS 

<8LF/N0ERR0RS> 

<BLF /LOWERCASE J<EY> 


require 'BLSMAC.REQ' ; 


VARIABLES AND CONSTANTS 2 

Zsbttl 'VARIABLES AND CONSTANTS' 

literal 

i 

.' VER CZMLBB ADDED LITERJAL TRUE. FALSE AND ZERO 

i 

ZERO - Xo'OOOOOO'. 

TRUE - 1. 

FALSE = 6. 

I 

I OTHER LITERIAL DEFINITIONS 

t 

ONE * 1, 

SIX = 6. 

NLH.PATS = 10. 

MM REGS = 22. 


27-Mar-1982 19:24:4 2 
27-Mar-1982 19:23:44 


TOPS-20 Bliss-16 V2 (212) 
PA:<NEALE>MLX4.BLI .5 (2) 


TIMES TO LOOP * 

BUFSJl = 256*f. 

•256 - NUMBER OF WORDS IN A SECTOR 
! 8 = NUMBER OF SECTORS IN THE BUFFER 

i 

j HL11 DRIVE TYPES: 

ML11A = Xo'000110', 

ML118 = Xo'000111'. 

i 

j FUNCTION CODES: 

i 

DRV CLR = Xo'll*. 

WC.tMD * Xo'51 ’ . 

UFrCHD = Xo’61'. 

RD^CMD = Xo'/I ' , 

j STATUS CODES: 

i 

INACTIVE = 0. 

ACTIVE = 1. 

i 

) ERROR THRESHOLD VALUES: 


•DEFINE ZERO DATA 
.'LOGICAL TRUE INDICATOR 
•LOGICAL FALSE INDICATOR 


•NUMBER OF TIMES TO RETRY FOR DATA ERROR 
.'NUMBER OF TIMES TO RETRY FOR SYSTEM ERROR 
•NUMBER OF REGULAR PATTERNS 
•NUMBER OF Mill REGISTERS 


•LOOP READING CONSTANT 
•2048 16-BIT WORDS IN A FULL BUFFER 


J16K CHIPS 
!64K CHIPS 


g§ 


SEO 0049 




CZHLBBO PERFORMANCE EXERCISER 
LtAU ADD UNIT SECTION 
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SEQ 0050 


76 

MLX4 

77 


78 


79 

1553 

80 

1554 

81 

1555 

82 

1556 

83 

1557 

84 

1558 

85 

1559 

86 

1560 

87 

1561 

88 

1562 

89 

1563 

90 

1564 

91 

1565 

92 

1566 

93 

1567 

94 

1568 

95 

1569 

96 

1570 

97 

1571 

98 

1572 

99 

1573 

100 

1574 

101 

1575 

102 

1576 

103 

1577 

104 

1578 

105 

1579 

106 

1580 

107 

1581 

108 

1582 

109 

1583 

110 

1584 

111 

1585 

11 2 

1586 

113 

1587 

114 

1588 

115 

1589 

116 

1590 

117 

1591 

118 

1592 

119 

1593 

120 

1594 

121 

1595 

1 22 

1596 

123 

1597 

124 

1598 

125 

1599 

126 

1600 

127 

1601 

128 

1602 

129 

1603 

130 

1604 


VARIABLES AND CONSTANTS 

! ERRDF (2.MSG1.0); ! 

! ERRDF ( i.MSGI ,0); ! 

.'READ COMMAND: 
!ERRDF(4,MSG1,0); ! 

!ERRDF(5.M$G1.0); ! 

1ERRDF (6.MSG1 ,0); ! 

.'ERRDF (7.MSG1.0); ! 

!ERRDF (8.MSG2.0); .' 

! E RRHRD ( v .MSG4 ,0 J ; ! 
!ERR$OFT(10.MSG3,0);.' 
! ERRSOF T ( 1 1 # MSG3 , 1 ) ; .' 
! WRITE CHECK COMMAND: 
! ERRDF (12 # MSG1 # 0); ! 

!ERRDF(13,MSG1 ,0); .' 

!ERRDF(14 # MSG1 ,0); 

! ERRDF (15 ,MSG2 ,0) -* ! 
! E RRHRD ( 1 o.MSGh . 05 : ! 
.'ERRS0FT(17,MSG3,8>;.' 
! ERRSOF T ( 1 8,MSG3, 1 ) ; J 

t 

S OPT JON 1: 

i 

.'WRITE COMMAND: 

! ERRDF (101 # MSG1 # 0); 

J ERRDF (102 ,MSG1,0> ; 

! ERRDF (103.MSG1,0>; 

! CHECK OR READ: 

! ERRDF (1 04 ,MSG1,0>; 

.' ERRDF (105 ,MSG1 ,0) ; 
!ERRDF(106 # MSG1 # 0); 

.' ERRDF (107,MSG1 ,0); 

.' ERRDF ( 1 08.MSG2.0) ; 
!ERRHRD(109 t MSG4,0> : 
iERRSOFT (11u,M5?33,0); 
! ERRSOF T( 111, «SG3,0); 

! OPTION 2: 

i 

!' WRITE COMMAND: 

J ERRDF (201 # HSG1,0); 
.‘ERRDF (202 ,MSG1,0); 

! ERRDF ( 203 ,MSG1.0>; 
.'CHECK OR READ: 

.'ERRDF ( 204, MSG1 ,0); 
‘ERRDF (205 ,MSG1 ,0); 

! ERRDF (206, MSG1 # 0) ; 
.'ERRDF (207, MSG1 ,0); 

! ERRDF ( 208.MSG2 ,0) : 

! ERRHRD (209,MSG4,05 • 
!ERRSOFT(210,MSG3 # 05; 
.' ERRSOF T(211,MSG3.1>; 
.'LOOP CHECK OR READ: 


27-M«r-1982 19:24:42 
27-M«r-1982 19:23:44 


TOPS-20 Blltt-16 2(212) 
PA:<NEALE>MLX4.BLI.5 (2) 


INTEGRITY ROUTINE ERROR 02 
INTEGRITY ROUTINE ERROR 03 


INTEGRITY 

INTEGRITY 

INTEGRITY 

INTEGRITY 

INTEGRITY 

INTEGRITY 

INTEGRITY 

INTEGRITY 

INTEGRITY 

INTEGRITY 

INTEGRITY 

INTEGRITY 

INTEGRITY 

INTEGRITY 

INTEGRITY 


ROUTINE 

ROUTINE 

ROUTINE 

ROUTINE 

ROUTINE 

ROUTINE 

ROUTINE 

ROUTINE 

ROUTINE 

ROUTINE 

ROUTINE 

ROUTINE 

ROUTINE 

ROUTINE 

ROUTINE 


ERROR 04 
ERROR 05 
ERROR 06 
ERROR 07 
ERROR 08 
ERROR 09 
ERROR 10 
ERROR 10 

ERROR 12 
ERROR 13 
ERROR H 
ERROR 15 
ERROR 16 
ERROR 17 
ERROR 18 


•*** OPTION 1 ERROR 01 * 
•*•* OPTION 1 ERROR 02 * 
**** OPTION 1 ERROR 03 * 


**** OPTION 1 
**** OPTION 1 
**** OPTION 1 
**** OPTION 1 
**** OPTION 1 
**** OPTION 1 
**** OPTION 1 
**** OPTION 1 


ERROR 04 * 
ERROR 05 * 
ERROR 06 * 
ERROR 07 * 
ERROR 08 * 
ERROR 09 * 
ERROR 10 * 
ERROR 11 * 


!**** OPTION 2 ERROR 01 **** 
•***• OPTION 2 ERROR 02 **** 
»**•* OPTION 2 ERROR 03 **** 

***** OPTION 2 ERROR 04 **** 
***** OPTION 2 ERROR 05 **** 
***** OPTION 2 ERROR 06 **** 
***** OPTION 2 ERROR 07 **** 
!***• OPTION 2 ERROR 08 **** 
***** OPTION 2 ERROR 09 **** 
***** OPTION 2 ERROR 10 **** 
***** OPTION 2 ERROR 10 **** 


SEQ 0051 


H 4 

iCZMLBBO PERFORMANCE EXERCISER MACRO Ml 1 13 29-MAR-82 13:41 PAGE 55 
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132 

NLX4 



27-Mar-1982 

19:24:42 

T0PS-20 Bliss-16 V2(2 12) 

133 

1 Xl 


VARIABLES AND CONSTANTS 


27-Mar-1982 

19:23:44 

PA:<NEALE>MLX4.8LI.5 (2) 

1 j*» 

135 

1605 

! ERRDF (21 2.MSG1.0); 

***** 

OP'iION 2 ERROR 12 

**** 



136 

1606 

JERRDF (213.HSG1 #0) ; 

***** 

OPTION 2 ERROR 13 

**** 



137 

1607 

!ERRDF(214,MS61.0); 

j *•** 

OPTION 2 ERROR 14 

*•** 



138 

1608 

!ERRDF(215,MSG1,0); 

* **** 

OPTION 2 ERROR 15 

**** 



139 

1609 

! ERRDF ( 21 6.MSG2.0); 

| **** 

OPTION 2 ERROR 16 

**** 



140 

1610 

! ERRHRD (21 Z.HSGA.O) : 

* **** 

OPTION 2 ERROR 17 

**** 



141 

1611 

!ERRS0FT(218,MSG3,0>; 

j **** 

OPTION 2 ERROR 18 

**** 



142 

1612 

!ERRSOFT(219,MSG3.0>; 

j **** 

OPTION 2 ERROR 19 

**** 



143 

1613 

t 






144 

1614 

! OPTION 3: 






145 

1615 

1 






146 

1616 

.'WRITE COMMAND: 






14 7 

1617 

J ERRDF (301, MSGI.O) ; 

> **** 

OPTION 3 ERROR 01 

**** 



148 

1618 

!ERRDF(30^,MSG1,0>; 

• **** 

OPTION 3 ERROR 02 

**** 



149 

1619 

JERRDF (303, MSG1 ,0); 

J **** 

OPTION 3 ERROR 03 

**** 



150 

1620 

! CHECK OR READ: 






151 

1621 

!ERRDF(304,MSG1.vT); 

J **** 

OPTION 3 ERROR 04 

•*** 



152 

1622 

JERRDF (SOS.MSGI.Oj.- 

! **** 

OPTION 3 ERROR 05 

**** 



153 

1623 

JERRDFUOd.MSGI.O); 

* **** 

OPTION 3 ERROR 06 

**** 



154 

1624 

JERRDF (307.MSG1 ,0); 

j **** 

OPTION 3 ERROR 07 

**** 



155 

1625 

JERRDF (308.MSG2.0); 

* **** 

OPTION 3 ERROR 08 

**** 



156 

1626 

f E RRHRD ( 309 t MS 64 -0 ) ; 

* **** 

OPTION 3 ERROR 09 

**** 



157 

1627 

!ERRS0FT(310.MSG3.0>; 

* **** 

OPTION 3 ERROR 10 

***• 



158 

1628 

! ERRS0FT(31 1 ,MSG3,C) ; 

j **** 

OPTION 3 ERROR 11 

**** 



159 

1629 

1 






160 

1630 

1 OPTION 4: 






161 

1631 

1 






162 

1632 

! MARCHING UP: 






163 

1633 

.'WRITE DATA: 






164 

1634 

JERRDF (401 ,MSG1 ,0); 

***** 

OPTION 4 ERROR 01 

**** 



165 

1635 

JERRDF (402 ,MSG1 .0); 

j **** 

OPTION 4 ERROR 02 

**** 



166 

1636 

JERRDF (403.MSG1.0); 

j **** 

OPTION 4 ERROR 03 

**** 



167 

1637 

! MARCHING UP: 






168 

1638 

! CHECK OR READ DATA: 






169 

1639 

! ERRDF (404 # MSG1 ,0) ; 

j**** 

OPTION 4 ERROR 04 

**** 



170 

1640 

! ERRDF (405 ,H5G1 ,0) ; 

j**** 

OPTION 4 ERROR 05 

**** 



171 

1641 

! ERRDF (406.MSG1 .0) ; 

» **** 

OPTION 4 ERROR 06 

**** 



172 

1642 

JERRDF (407, MSG1 ,0); 

***** 

OPTION 4 ERROR 07 

**** 



173 

1643 

! ERRDF (408.HSG2.0); 

J**** 

OPTION 4 ERROR 08 

**** 



174 

1644 

! E RRHRD ( 40$ -MSG4 , o5 ; 

;***• 

OPTION 4 ERROR 09 

**** 



175 

1645 

!ERR$OFT(410.MS63.0S; 

***** 

OPTION 4 ERROR 10 

**** 



176 

1646 

JERRS0FT(411 .MSG3.0); 

***** 

OPTION 4 ERROR 11 

**** 



177 

1647 

! WRITE COMP: 






178 

1648 

!ERRDF(412,MSG1 ,0); 

***** OPTION 4 ERROR 12 

**** 



179 

1649 

J ERRDF (413,MSG1,0); 

***** 

OPTION 4 ERROR 13 

**** 



180 

1650 

JERRDF (414,M$G1,0>; 

***** 

OPTION 4 ERROR 14 

•*** 



181 

1651 

.'MARCHING DOWN: 






182 

1652 

J CHECK OR READ COMP: 






183 

1653 

! ERRDF (415. MSG1.0); 

***** 

OPTION 4 ERROR 15 

**** 



184 

1654 

JERRDF (416, MSG1 ,0); 

***** 

OPTION 4 ERROR 16 

**** 



185 

1655 

JERRDF (417.MSG1.0); 

***** 

OPTION 4 ERROR 17 

**** 



186 

1656 

! ERRDF (418, MSG1.0); 

***** 

OPTION 4 ERROR 18 

• **• 




CZMLBBO PERFORMANCE EXERCISER 
ttAU ADD UNIT SECTION 


MACRO Ml 113 29-MAA-82 13:41 


N 4 
PAGE 56 


SEQ 0052 


VARIABLES AND CONSTANTS 


27-Mar-1982 19:2**:42 
2 7-Mar- 1982 19:23:44 


T0PS-20 Bliss-16 V2(212) 
PA : <NEALE >MLX4 .BLI . 5 (2) 


ERRDF(419,MSG2.0); ! 

ERRHRD(420,M$G4,0): ! 

ERRSOFT (42 i .MSG3.0) ; ! 
ERRSOF T ( 422 ,MSG3 , 0) ; ! 
WRITE DATA: 

ERRDF (423.MSG1.0); ! 

ERRDF (424 ,MSG1 , 0) ; ! 
ERRDF (425.MSG1 ,0); ! 

MARCHING UP: 

CHECK OR READ DATA: 
ERRDF (426 ,MSG1 , 0) ; 
ERRDF (427.MSG1 ,0) ; 
ERRDF (428 .MSG1.0); 
ERRDF (429.MSG1 ,0); 
ERRDF (430,NSG2 f 0); 

E RRHRD (431 ,MSG4 ,0 ) ; 
ERRSOFT(432.MSG3,0>; 
ERRSOF T (433.MSG3.0) ; 

OPTION 5: 

'RAND1 ' ROUTINE: 

WRITE COMMAND: 

ERRDF (5101 .MSG1.0); 
ERRDF (5102,MSG1,0); 
ERRDF (5103. MSG1,0); 
CHECK OR READ: 

ERRDF (5104.MSG1 .0); 
ERRDF (5105.MS61.0); 
ERRDF (5106 .MSG1.0); 
ERRDF (5107.MSG1.0); 
ERRDF (51 08 ,MSG2 . 0) ; 
ERRHRD (51 09 . MSG4 , 05 ; 
ERRSOF T(51 l6,MS 63, 05; 
ERRSOF T (5111, MSG3.0); 
'RAND2' ROUTINE: 

WRITE COMMAND: 

ERRDF (5201 .MSG1.0); 
ERRDF (5202.MSG1 ,0) ; 
ERRDF (5203, MSG1, 0); 
CHECK OR READ: 

ERRDF (5204,MSG1.0); 
ERRDF (5205 ,M$G1,0); 
ERRDF (5206 .MSG1.0); 
ERRDF (5207.MS61.0); 
ERRDF (5|08,MSG2,0) ; 
ERRHRD (5200,MS64.0); 
ERRS0FT(521o,MS63,0); 


ERRS0FT(521o,MSG|,0); 
ERRSOFT (5211, MS G3,0); 
'RAND3' ROUTINE: 

WRITE COMMAND: 

ERRDF (5301 ,MSG1 ,0) ; 


!***• OPTION 4 ERROR 19 **** 
.'**** OPTION 4 ERROR 20 **** 
.'**** OPTION 4 ERROR 21 **** 
! **** OPTION 4 ERROR 22 **** 

***** OPTION 4 ERROR 23 **** 
.'**** OPTION 4 ERROR 24 **** 
!***• OPTION 4 ERROR 25 **** 


**** OPTION 4 ERROR 26 **** 
**** OPTION 4 ERROR 27 **** 
**** OPTION 4 ERROR 28 **** 
**** OPTION 4 ERROR 29 **** 
**** OPTION 4 ERROR 30 **** 
**** OPTION 4 ERROR 31 **** 
**** OPTION 4 ERROR 32 **** 
**** OPTION 4 ERROR 33 **** 


!***• OPTION 5, RAND1 ERROR 01 **** 
!**•* OPTION 5. RAND1 ERROR 02 •*** 
!>-*** OPTION 5, RAN01 ERROR 03 *•** 


***** OPTION 5, RAN01 
***** OPTION 5. RAND1 
***** OPTION 5, RAND1 
***** OPTION 5, RAND1 
<•*** OPTION 5. HANOI 
***** OPTION 5, RAND1 
***** OPTION 5, HANOI 
***** OPTION 5, RAND1 


***** OPTION 5, RAND* 
.'**** OPTION 5, RAND 
***** OPTION 5, RAND! 


***** OPTION 5, 
***** OPTION 5, 
***** OPTION 5, 
***** OPTION 5, 
***** OPTION f, 
***** OPTION 5, 
***** OPTION 5, 
***** OPTION 5, 


ERROR 04 
ERROR 05 
ERROR 06 
ERROR 07 
ERROR 08 
ERROR 09 
ERROR 10 
ERROR 11 


ERROR 01 **** 
ERROR 02 **** 
cRROR 03 **** 


14 **** 

15 **** 

16 **** 
\7 **** 

•*** 

9 **** 

? **** 
•*** 


RAND2 ERROR 1 


***** OPTION 5, RAND3 ERROR 01 **** 
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SEO 0053 


244 ;MLX4 

245 ; 


1709 

1710 

1711 

1712 

1713 

1714 

1715 

1716 

1717 

1718 

1719 

1720 

1721 

1722 

1723 

1724 

1725 

1726 

1727 

1728 

1729 

1730 

1731 

1732 

1733 

1734 

1735 

1736 

1737 

1738 

1739 

1740 

1741 

1742 

1743 

1744 

1745 

1746 

1747 

1748 

1749 

1750 

1751 

1752 

1753 

1754 

1755 

1756 

1757 

1758 

1759 

1760 


VARIABLES AND CONSTANTS 

!ERRDF(5302,MSG1,0); 
!ERRDF (5303.MSG1 ,0) ; 

! CHECK OR READ: 

.'ERRDF (5304, MSG 1 .0); 
!ERRDF(5305,MSG1,0); 
.'ERRDF (5306,MSG1 ,0) ; 

) ERRDF (5307, MSG1 ,0) ; 

! ERRDF (5308. HSG2.0) ; 

! ERRHRD (5309.MSG4 ,0) : 

! ERRSOFT(53l0,MSG3,0; ; 
! ERRSOF T (531 1 ,NSG3,0); 
! * RAND4 * ROUTINE: 

! WRITE COMMAND: 

.'ERRDF (5401 ,MSG1,0>; 

! ERRDF (5402,M$G1,0> ; 

! ERRDF ( 5403, MSG1.0); 
.'CHECK OR READ: 

! ERRDF (5404, MSG 1 ,0); 

! ERRDF (5405,MS61 ,0); 

! ERRDF ( 5406, MSG1.0); 

! ERRDF (5407, MS61,0> ; 

! ERRDF ( 5408 .MSG2.0) ; 

.' ERRHRD (5409,MSG4,0) ; 

! ERRSOF T( 5410. MSG3,0>; 
! ERRSOF T(5411,MSG3,0>; 


27-Mar-1982 19:24:42 
27-M§r-1982 19:23:44 


T0PS-20 Bliss-16 V2 (212) 
PA:<NEALE>MLX4.BLI.5 (2) 


!»*** OPTION 5, RAND3 ERROR 02 **** 
!•*** OPTION 5, RAND3 ERROR 03 **** 


**** OPTION 5, RAND3 
»*«» OPTION 5, RAND3 
**** OPTION 5, RAND3 
**** OPTION 5, RANDS 
*«** OPTION 5. RAND 3 
**** OPTION 5, RAND 3 
**** OPTION 5. RAND3 
**** OPTION 5. RAND3 


ERROR 04 **** 
ERROR 05 **** 
ERROR 06 **** 
ERROR 07 **** 
E'ROR 08 **** 
EHROR 09 **** 
ERPOR 10 **** 
fcRROR 11 **** 


!•*** OPTION 5. RAND4 ERROR 01 **** 
.'**** OPTION 5, RAND4 ERROR 02 **** 
***** OPTION 5, RAND4 ERROR 03 **** 


.'**** OPTION 5, RAND4 
***** OPTION 5, RAND4 
***** OPTION 5, RAND4 
!**•* OPTION 5, RAND4 
.' **** OPTION 5, RAND4 
!**•* OPTION 5, RAND4 
***** OPTION 5. RAND4 
***** OPTION 5. RAND4 


ERROR 04 **** 
ERROR 05 ***** 
ERROR 06 **** 
ERROR 07 **** 
ERROR 08 **** 
ERROR 09 **•* 
ERROR 10 **** 
ERROR 11 **** 


! CODES FOR WHY A UNIT WAS DROPPED: 

I 

C0DE.1 = 1. 

C00E.2 = 2, 

C0DE.3 = 3, 

C0DE.4 = 4. 

C0DE.5 = 5. 

C00E.6 - 6, 

C0DE.7 = 7, 

C00E.8 = 8; 


FIELD DECLARTIONS 


field 

i 

) VER C2MLBB ADD FIELD DECLARATION 

i 

• FIELD DECLARATION TO MAP THE SINGLE BIT 
! ERROR LOG TABLE. 


'DRIVE NOT POWERED UP 

! DRIVE NOT AN ML11 UNIT 

! OPERATOR SET TEST LIMITS INCORRECTLY 

.'FAILED ALL RETRIES FOR A NON-FATAL ERROR 

.'CONTROLLER FATAL ERROR 

.'DRIVE FATAL ERROR 

•ECC HARD ERROR 

!ECC LOGIC FAILED TO DETECT ERROR 


S8E.TBL.MAP = 
set 

BNKS.SBE ; 
BRDS.SBE = 


CO, 0. 2, 03, 
CO, 2. 4, 03. 


! LOG BANK OF SBE 
! LOG BOARD OF SBE 


J 


CZMLBBO PERFORMANCE EXERCISER 
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SEQ 0054 


27-Mar-1982 19:24:42 
27-Mar-1982 19:23:44 


TOPS-20 Bliss-16 V2(212) 
PA:<NEALE>MLX4.BLl.5 (2> 


.'LOG BIT OF SBE 
! LOG UNIT OF SBE 
! LOG NUMBER OF TINES OCCURiNG 
; ACCESS FIRST WORD OF TABLE 
2 ACCESS SECOND WORD OF TABE 


.'ACCESS NUMBER OF SBE PER ARRAY 


VARIABLES AND CONSTANTS 

BITS SBE = CO- 6. 7, 03. 

UNITS SBE = CO. 13, 3. 03. 
SUMS.58E = Cl. 0. 16. 03, 

URDS.O = CO. 0. 16. 03, 

WRDS1 = Cl, 0, 16, 03 
tes. 

1 

2 VER C2MLBB ADDED FIELD DECLARATION 

i 

.' FIELD DECLARATION FOR PROM MAINTENANCE 
! SUM TABLE 

i 

PM.SBE^MAP = 

PM_S8ES_SUM = CO. 16. 03 
tes. 

t 

j FIELD DECLARATION FOR PATTERN TABLE 

i 

PATMAP = 
set 

COUNT1 = CO, 0. 16. 03. 

COUNT2 = Cl. 0. 16, 03 
tes; 


! Single bit error logging and Prom Maint 
.' program storage structures 

.' VER CZMLB8 ADDED FOLLOWING THREE DATA DECLARATIONS 

SBE LOG : blockvector C128. 2. word3 field (SBE.T8L.MAP). 1 SBE LOCATION TABLE 

PM SBE CNT : blockvector C6. f6. word! field (PRSBEHAP) . 'ARRAY SBE COUNT TALBE 
$ BiS COUNT : word, '.COURTS RUMBER OF SBE LOCATION TABLE ENTRIES 

bjt Rum. istors failing sbe chip number 


ML-11 EXERCISER ST0RA6E ALLOCATION 


UBUFF : vector CBUFSIZ3 volatile. 
RBUFF : vector CBUFSIZ3 volatile, 
UPTR : volatile, 

RPTR : volatile. 

OUICK : volatile. 

PATTERN : volatile, 

DATA COUNT : volatile, 

COMP COUNT : volatile, 

EOP TOUNT : volatile. 

BASf.ADDR. 

VEC, 

BR.LEVEL, 

SOFTS : blockvector C8. 163. 


•IMPORTANT — UBUFF AND RBUFF MUST 
2 BE CONTIGUOUS AND IN THAT ORDER!! 


! COUNTS FOR 8 LUNS, 16 ARRAYS EACH 
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SEO 0055 


1813 

1814 

1815 

1816 

1817 

1818 

1819 

1820 
1821 
1822 

1823 

1824 

1825 

1826 

1827 

1828 

1829 

1830 

1831 

1832 

1833 

1834 

1835 

1836 

1837 

1838 

1839 

1840 

1841 

1842 

1843 

1844 
M 1845 

1846 
M 1847 

1848 

1849 

1850 

1851 

1852 
M 1853 

1854 

1855 

1856 

1857 
M 1858 

1859 
M 1860 
1861 
M 1862 
1863 
M 1 


VARIABLES AND CONSTANTS 

HARDS : blockvector [8, 163. 

TRIES : blockvector [8. 163. 

UR COUNT. 

UR* THOUSANDS. 
yR.MlLlIONS, 

RD COUNT. 

RDlTMOU SANDS. 

RD MILLIONS. 

UC.COUNT. 

UC THOUSANDS. 

UC MILLIONS, 

I HM DONE. 

RETRYING, 

BOARD, 

BANK; 

global 

ML REG : vector [NUM.REGS3 volatile. 
PT&LE ADDR : vector [83 volatile, 
DRIVE STATUS : bitvector C83 volatile, 
DROPT*DRIVES : bitvector [83 volatile. 
UHY dRopt : vector [8, bytej, 
NUM_DRIVES, 

LOU SECT : vector [83 volatile, 
TOP.SECT : vector [83 volatile; 

EQUALS; 


27-Mar-1982 19:24:42 
27-Mar-198? 19:23:44 


TOPS-20 Bllss-16 V2C212) 
Pa:<NEALE>MLX4.BLI.5 (2) 


•COUNTS FOR 8 LUNS, 16 ARRAYS EACH 
! COUNTS FOR 8 LUNS, 16 ARRAYS EACH 
!# BYTES TRANSFERED VIA ’URITE ' 
•THOUSANDS OF BYTES 
.'MILLIONS OF BYTES 
!# BYTES TRANSFERED VIA 'READ' 


!M BYTES TRANSFERED VIA ‘URITE CHECK 1 


macro 


TO CALCULATE THE TEST RANGES FOR A PARTICULAR LOGICAL UNIT: 


LOUEST = 

.LOW SECTC.LUN3X, 
HIGHEST = 
.TOP_SECTE.LUN3X, 


•THE FIRST SECTOR TO TEST 
!THE LAST SECTOR TO TEST 


• ADDRESS IN MAIN MEMORY THAT CONTAINS THE PHYSICAL DRIVE 

• NUMBER THAT CORRESPONDS TO A PARTICULAR LOGICAL UNIT: 

i 

DRIVE = 

(.PTA8LE ADORE. LUN3 ♦ 6)X. 

i 

! ML-11 REGISTER NAMES: 


MLCS1 = 
•ML REGC03X, 

Mluc = 

.ML.REGE13X, 
Mlba = 

.ML REGC23X. 


.'CONTROL AND STATUS REGISTER 1 
•WORD COUNT REGISTER 
•UNIBUS ADDRESS REGISTER 
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412 

413 

414 

415 
4'6 
41 i' 

418 

419 

420 

421 

422 

423 

424 

425 

426 

427 

428 

429 

430 

431 

432 

433 

434 

435 

436 

437 

438 

439 

440 

441 

442 

443 

444 

445 

446 

447 

448 

449 

450 

451 

452 

453 

454 

455 

456 

457 

458 

459 

460 

461 

tel 

464 

465 

466 


MLX4 


VARIABLES AND CONSTANTS 


1865 

.ML REGC33X, 

M 1866 

ALCS2 = 

1867 

•ML REGC43X. 

M 1868 

alds = 

1869 

•ML REGC53X. 

N 1870 

Aler * 

1871 

.ML REGC63X. 

H 1872 

Alas = 

1873 

.ML REGC7JX, 

H 1*74 

Alpa = 

1875 

.ML REGC83X, 

M 1876 

Aldb = 

1877 

.ML REGC93X. 

M 1878 

Almr = 

1879 

.ML REGC103X, 


Aldt = 

tnl 

.ML REGC113X. 


Alsn = 

1883 

.ML REGC123X. 

M 1884 

Alei = 


.ML REGC133X. 

Ob 

ALE2 = 

■ 

.ML REGC143X, 

Ob \ 

Aldi = 

1889 

•ML.REGC153X. 

M 1890 

ALD2 = 

1891 

.ML REGC163X. 

M 1892 

Alee = 

1893 

.ML REGC173X, 

M 1894 

Alel = 


.ML REGC183X. 

M 1896 

Alpd = 

1897 

.ML REGC193X. 

H 1898 

Albae = 


.ML RE6C203X, 


ALCS3 = 

1901 

.ML.REGC213X. 

1902 

i 

1903 

• BIT ASSIGNMENTS: 


j 

1905 

i 


• MLCS1 BITS: 

i 


SC = 

1909 

<NLCS1K15.1>X, 

M 1910 

TRE = 

1911 

<MLCS1X14,1>X. 

M 1912 

M CPE = 

1913 

<MLCS1X13,1>X. 

M 1914 

DVA = 

1915 

<MLCS1X11,1>X. 

M 1916 

RDY * 


E 
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27-Mar-1982 19:24:42 TOPS-20 Bliss-16 V2(212) 
27-Mar-1982 19:23:44 PA:<NEALE>MLX4.BLI .5 (2) 

.'DESIRED ADDRESS REGISTER 

! CONTROL AND STATUS REGISTER 2 

.'DRIVE STATUS REGISTER 

•ERROR REGISTER 

•ATTENTION SUMMARY REGISTER 

!PR0M ADDRESS REGISTER 

•DATA BUFFER REGISTER 

.'MAINTENANCE REGISTER 

•DRIVE TYPE REGISTER 

•SERIAL NUMBER REGISTER 

•ECC REGISTER 1 

•ECC REGISTER 2 

!DATA DIAGNOSTIC REGISTER 1 

•DATA DIAGNOSTIC RE6ISTER 2 

•ECC ERROR REGISTER 

.•ECC ERROR LOCATION REGISTER 

•PROM DATA REGISTER 

•BUS ADDRESS EXTENSION REGISTER 

•CONTROL AND STATUS REGISTER 3 


•SPECIAL CONDITION 
•TRANSFER ERROR 

•MASS8US CONTROL BUS PARITY ERROR 
•DRIVE AVAILABLE 
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468 ;MLX4 

469 ; 

470 

471 

472 

473 

474 

475 

476 

477 

478 

479 

480 

481 

482 

483 

484 

485 

486 

487 

488 

489 

490 

491 

492 

493 

494 

495 

496 

497 

498 

499 

500 

501 

502 

503 

504 

505 

506 

507 

508 

509 

510 

511 

512 

513 

514 

515 

516 

517 

518 

519 

520 

521 


1917 
N 1918 
1919 
M 1920 

1921 

1922 

1923 

1924 
N 1925 

1926 
M 1927 
1928 
N 1929 
193-0 
M 1931 
1932 
M 1933 
1934 
H 1935 
1936 
M 1937 
1938 
H 1939 
1940 
M 1941 
1942 
M 1943 
1944 
M 1945 
1946 
M 1947 
1948 
M 1949 
1950 
M 1951 

1952 

1953 

1954 

1955 
M 1956 

1957 
M 1958 
1959 
M 1960 
1961 
M 1962 
1963 
ft 1964 
1965 
ft 1966 
1967 

- *OAA 


VARIABLES AND CONSTANTS 

<MLCS1X7,1>X, 

IE = 

<MLCS1X6,1>X, 

FUNC = 

(MLCS1X0,6>X, 

I 

! HLCS2 BITS: 

6lt = 

<MLCS2X15,1>X, 

WCE = 

(MLCS2X14.1>X. 

PE = 

<MLCS2X13.1>X. 

NED = 

<MLCS2X12,1>X. 

|£ft = 

(MLCS2X11,1>X, 

PGE = 

(MLCS2X10.1>X. 
ftXF = 

<MLCS2X9.1>X, 

ftDPE * 

<MLCS2X8.1>X. 

ORDY = 

<MLCS2X7.1>X. 

IRDY = 

(ftLCS2X6.1>X, 

CLR - 

(MLCS2X5,1>X. 

PAT = 

<MLCS2X4.1>X. 

BAI = 

(MLCS2X3.1>X. 

UNIT = 

(HLCS2X0,3>X, 

i 

• MLDS BITS: 

i 

ATA = 

(MLDSX15,1>X, 

ERR = 

(MLDSX14,1>X, 

PWL = 

<MLDSX12,1>X. 

LBT - 

(MLDSX10.1>X. 

DPR = 

(MLDSX8,1>X, 

DRY * 

(ftLDS X7,1>X, 

Ui t 


SEQ 0057 


27-ft»r-1982 19:24:42 TCPS-20 Bliss-16 V2(21 2) 
27-Mar-1982 19:23:44 PA:<NEALE>ftLX4.BlI .5 (2) 

! READY 

! INTERRUPT ENABLE 

{FUNCTION (COMMAND) CODE AND GO BIT 


{DATA LATE 

.'WRITE CHECK ERROR 

{PARITY ERROR 

{NON-EXISTENT DRIVE 

{NON-EXISTENT MEMORY 

{PROGRAM ERROR 

.'MISSED TRANSFER 

{MAS SOUS DATA BUS PARITY ERROR 

{OUTPUT READY 

•INPUT READY 

•CONTROLLER CLEAR 

{PARITY TEST 

! UNIBUS ADDRESS INCREMENT INHIBIT 
{UNIT SELECT 


{ATTENTION ACTIVE 
{ERROR SUMMARY 
•MEDIUM ON LINE 
{LAST BLOCK TRANSFERRED 
{DRIVE PRESENT 
{DRIVE READY 


CZML880 PERFORMANCE EXERCISER MACRO Ml 113 29-MAR-82 13:41 
LSAU ADD UNIT SECTION 


SEQ 005? 


6 5 

PA6E 62 


524 

;MLX4 



27-Mar~1982 19:24:42 TOPS-20 Bliss-16 V21212) 

525 

c54 

• 


VARIABLES AN 0 CONSTANTS 

27-Mar-1982 19:23:44 PA:<NEALE>MLX4.BLI.5 (2) 

jCO 

527 


1969 

(MLDSX6.1>X, 

! VOLUME VALID 

528 


1970 

• 


529 


1971 

! MLER BITS: 


530 


1972 

i 


531 

H 

1973 

DCK = 


532 


1974 

(ML£RX15,1>X. 

!DATA CHECK 

533 

M 

1975 

UNS = 


534 


1976 

(MLERX14,1>X, 

•DRIVE UNSAFE 

535 

M 

1977 

OPI = 


536 


1978 

<MLERX13.1>X. 

•OPERATION INCOMPLETE 

537 

M 

1979 

IAE = 


53S 


1980 

(MLERX10.1>X. 

•INVALID ADDRESS ERROR 

539 

M 

1981 

AOE = 


540 


1982 

(MLERX9,1>X, 

! ADDRESS OVERFLOW ERROR 

541 

M 

1983 

ECH * 


542 


1984 

<MLER)<6.1>X, 

•ECC HARD ERROR 

543 

M 

1985 

DPAR = 


544 


1986 

<MLERX5.1>X. 

•DATA PARITY ERROR 

545 

M 

1987 

CPAR = 


546 


1988 

<NLERX3,1>X. 

•CONTROL PARITY ERROR 

547 

M 

1989 

RMR = 


548 


1990 

(MLERX2,1>X, 

•REGISTER MODIFICATION REFUSED 

549 

M 

1991 

HR = 


550 


1992 

(MLERX1 ,1>X, 

•ILLEGAL REGISTER 

551 

M 

1993 

ILF = 


552 


1994 

(MLERX0,1>X. 

•ILLEGAL FUNCTION 

553 


1995 

i 

• 


554 


1996 

! mm BITS: 


555 


1997 

1 

• 


556 

M 

1998 

sz = 


557 


1999 

<MLMRX11,5>X, 

•SYSTEM SIZE (# ARRAY CARDS) 

558 

M 

2000 

ARR TYP = 


559 


2001 

<MLMRX10,1>X, 

‘ARRAY TYPE (0=16K;1=64* CHIPS) 

560 

M 

2002 

TRT = 


561 


2003 

<MLMRX8,2>X, 

! TRANSFER RATE 

562 

M 

2004 

REF MAR ~ 


563 


2005 

<MLMR)?7,1>X, 

•REFRESH MARGIN 

564 

M 

2006 

PROM RW = 


565 


2007 

<MLMR)<8.1>X, 

•PROM READ/UR I TE 

566 

M 

2008 

PROM DIS = 


567 


2009 

<MLMR)<5.1>X, 

•PROM DISABLE 

568 

M 

2010 

DAT CLK = 


569 


2011 

<MLMR)*4,1>X, 

!DATA CLOCK 

570 

M 

2012 

DAT DM = 


571 


2013 

(MLNRX3.1>X, 

•DATA DIAGNOSTIC MODE 

572 

M 

2014 

DCKEN = 


573 


2015 

<MLMRX2,1>X. 

•DATA CHECK ENABLE 

574 

M 

2016 

ECC DIS = 


575 


2017 

<MLMR)?1,1>X, 

•ECC DISABLE 

576 

M 

2018 

ECC DM = 


577 


2019 

(MLMRX0.1>X, 

•ECC DIAGNOSTIC MODE 

578 


2020 

i 





SCO 0059 


27-N*r-198 

27-H«r-198 


! 


19:24:42 

19:23:44 


T0PS-20 Bliss-16 V2(212) 
PA:<NEALE>flLX4.8Ll.5 (2) 


.'HIGH ORDER DECADE 
.'THIRD DECADE 
•SECOND DECADE 
•LOU ORDER DECADE 


•UNCORREC TABLE ERROR 
! SINGLE ERROR 
•CRC ERROR 
•CHANNEL IN ERROR 
•ERROR FUNCTION 


• VER CZMLB8 EVENT FLAG TO TURN ON SBE TESTING 


ICZHLBBO PERFORMANCE EXERCISER 
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SEQ 0060 


636 ;MLX4 

637 ; 


2073 

2074 

2075 

2076 

2077 

2078 

2079 

2080 
2081 
2082 

2083 

2084 

2085 

2086 

2087 

2088 

2089 

2090 

2091 

2092 

2093 

2094 

2095 

2096 

2097 

2098 

2099 

2100 
2101 
2102 

2103 

2104 

2105 

2106 

2107 

2108 

2109 

2110 
2111 
2112 

2113 

2114 

2115 

2116 

2117 

2118 

2119 

2120 
2121 
2122 

2123 

2124 


VARIABLES AND CONSTANTS 

I 

SEED1 , 

SEED2. 

SEEC3, 

RANDOM; 

external routine 
RN : novalue; 


27-Mar-1982 19:24:42 
27-Mar-1982 19:23:44 


TOPS-20 Bliss-16 V2(212) 
PA:<NEALE>MLX4.BL1.5 (2) 


IFOR 16-BIT RANDOM NUMBER Cf'FE RATION 


THE PATTERN TABLE: 


PATTERN 

NUMBER 


REGULAR PATTERNS 


THE TWO ASSOCIATED COUNTS 


1 NIBBLE OF DATA, 1 NIBBLE OF COMP 

4 NIBBLES OF DATA, 4 NIBBLES OF COMP 

9 NIBBLES OF DATA, 9 NIBBLES OF COMP 

1024 NIBBLES OF DATA, 1024 NIBBLES OF COMP 


1 NIBBLE OF DATA, 
4 NIBBLES OF DATA, 
9 NIBBLES Of DATA, 


1 NIBBLE 



VALUE OF 

VALUE OF 


DATA 

COMP 

COMP 

0101 

1010 

COMP 

0101 

1010 

COMP 

0101 

1010 

COMP 

0101 

1010 

COMP 

0101 

1010 

COMP 

0000 

1111 

COMP 

0000 

1111 

COMP 

0000 

1111 

COMP 

0000 

1111 

COMP 

0000 

1111 


COMPLEMENT PATTERNS 


PATTERN 

NUMBER 


THE TWO ASSOCIATED COUNTS 


VALUE OF 
DATA 


VALUE OF 
COMP 


0 NIBBLES OF DATA, 1024 NIBBLES OF COMP 

1 NIBBLE OF DATA, 1 NIBBLE OF COMP 
4 NIBBLES OF DATA, 4 NIBBLES OF COMP 
9 NIBBLES OF DATA, 9 NIBBLES OF COMP 


1024 NI8BLES OF DATA, 1024 NIBBLES OF COMP 

0 NIBBLES OF DATA, 1024 NIBBLES OF COMP 

1 NIBBLE OF DATA, 1 NIBBLE OF COMP 

4 NIBBLES OF DATA, 4 NIBBLES OF COMP 

9 NIBBLES OF DATA, 9 NIBBLES OF COMP 

1024 NIBBLES OF DATA, 1024 NIBBLES OF COMP 


global 


iCZMLBBO PERFORMANCE EXERCISER 
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SEQ 0061 


692 

MLX4 

693 


694 


o95 

2125 

696 

2126 

697 

2127 

698 

2128 

699 

2129 

700 

2130 

701 

2131 

702 

2132 

703 

2133 

704 

2134 

705 

2135 

706 

2136 

707 

2137 

708 

2138 

709 

2139 

710 

2140 

711 

2141 

712 

2142 

713 

2143 

714 

2144 

715 

2145 

716 

2146 

717 

2147 

718 

2148 

719 

2149 

720 

2150 


VARIABLES AND CONSTANTS 


27-Mar-1982 19:24:42 
27-Mar-1982 19:23:44 


TOPS-20 Bliss-16 V2(212) 
PA : <NE ALE >MLX4.BL I. 5 (2) 


!<BLf/N0E0RMAT> 

PATTBL: blockvector CNUN.PATS/ 2. 23 f ield(PATMAP) 
preset ( 


CO.COUNT13 
CO.COUNT23 
Cl ,C0UNT13 
Cl ,COUNT23 
C2.COUNT13 
C2.COUNT23 
C3,COUNT13 
C3.COUNT23 
C4.COUNT13 
C4,COUNT23 
); 

!<BLF/FORMAT> 


{decimal 'O' 
{decimal' 1024* 
{dec imal'l' 
{decimal'!' 
{decimal' 4' 
{decimal' 4' 
{decimal' 9' 
{decimal '9' 
{decimal '1024' 
{decimal '1024' 


! FOR PATTERNS 1, -1, 6, -6 
i FOR PATTERNS 2, - 2 . 7, -7 
IFOR PATTERNS 3, -3, 8. -8 
.'FOR PATTERNS 4, -4. 9. -9 
.'FOR PATTERNS 5, -5, 10, -10 


bind 


DEFINITIONS OF LOCATIONS WITHIN THE WRITE AND READ BUFFERS: 


WD6UFF = WBUFF. 

WC8UFF = WBUFF ♦ 512, 

RDBUFF = RBUFF. 

RC3UFF = RBUFF ♦ 512, 

END WBUFF = (WBUFF ♦ EUFSIZ*2). 
END RBUFF = (RBUFF ♦ BUFSIZ*2), 


! 256-WORD WRITE DATA BUFFER 
.'256-WORD WRITE COMP BUFFER 
.'256-WORD READ DATA BUFFER 
1256-WORD READ COMP BUFFER 
! JUST BEYOND END OF FULL WRITE BUFFER 
.'JUST BEYOND END OF FULL READ BUFFER 



CZMLBBO PERFORMANCE EXERCISER 
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SEQ 0062 


722 

723 

724 

725 

726 

727 

728 

729 

730 

731 

732 

733 

734 

735 

736 

737 

738 

739 

740 

741 

742 

743 

744 

745 

746 

747 

748 

749 

750 

751 

752 

753 

754 

755 

756 

757 

758 

759 

760 

761 

762 

763 

764 

765 

766 

767 

768 

769 

770 

771 

772 

773 

774 

775 

776 


;MLX4 


2151 

2152 

2153 

2154 

2155 

2156 

2157 

2158 

2159 

2160 
2161 
2162 

2163 

2164 

2165 

2166 

2167 

2168 

2169 

2170 

2171 

2172 

2173 

2174 

2175 

2176 

2177 

2178 

2179 

2180 
2181 
2182 

2183 

2184 

2185 

2186 

2187 

2188 

2189 

2190 

2191 

2192 

2193 

2194 

2195 

2196 

2197 

2198 

2199 

2200 
2201 
2202 


MESSAGES AND PRINT FORMATS 
Xsbttl ’MESSAGES AND PRINT FORMATS’ 


27-Mar-1982 19:24:42 
27-Mar-1982 19:23:44 


TOPS-20 Bliss-16 V2(212> 
PA : <NE ALE >MLX4 .611.5 (3) 


SINGLE BIT ERROR LOGGING TABLE MESSAGE STRINGS 


PHR21 = uplit (Xasciz' 

FMT16 = up lit (Xasciz’XNXDIXA(D) 
SBESHEADER = uplit (Xasciz'UNIT Mi 


SINGLE BIT ERROR LOG SUMMARY REPORT’). 

XD2XAID) XDIXA(D) XD2XACD) XD6XAID) * ) , 


ARRAY Mi BANK Mi BIT Mi 


COUNT Mi*) , 


I • 
I • 
I • 

i • 
i • 
i • 
i • 
i • 
i • 


! SPECIAL PURPOSE FORMATS (WITH SAMPLE PRINTOUTS) : 

FMT1A = up l i t (Xasciz ’XNXTXS2XD2’), 

! ’PATTERN NUMBER XX* 

FMT18 = uplit (Xasciz'XS7XTXSXA-XD2 ) , 

! ' PATTERN NUMBER -XX' 

FMT2 = uplit (Xasciz’XS2XT’), 

! ’ (NOT POWERED UP)' 

(NOT AN ML11 UNIT)’ 

(OPERATOR SELECTED TEST LIMITS INCORRECTLY)’ 

(ALL RETRIES FAILED FOR A NON-FATAL ERROR)’ 

(CONTROLLER FATAL ERROR)’ 

(DRIVE FATAL ERROR)' 

(ECC HARD ERROR)' 

UP’ 

DOWN' 

— > RUN ML 11 PROM MAINTENANCE PROGRAM’ 

FMT3 = uplit ( Xasc i z * XNXA**XSXTXSXTXD3XSXA** ' ) , 

!’** END PASS X **' 

FMT4A = uplit (Xasciz’XN2XTXA:XSXD1XS4XTXA:XSXDT), 

."LOGICAL UNIT: X DRIVE: Y* 

FMT48 = uplit (Xasciz’XS4XTXA:XSX06' ), 

! ’ SERIAL Ml nmv 

! * CSR ADDRESS: XXXXXX’ 

FMT4C = uplit ( Xasc i z * XS4XTXA : XSXDl XDl XD1 XDl ' ) , 

" SERIAL #' DDDD' 

FMT5 - uplit ( Xasc iz’XNXTXS3XASEC TORS UNDER TEST:XSX06XSXAT0XSX06') . 

! ’ML11-X SECTORS UNDER TEST: XXXXXX TO YVYYYV 

FMT6 = uplit ( Xasc iz'XNXABE GAN XD4XA WORDXSXTXA ATXSXTXSX06), 
."BEGAN VYYY WORD WRITE AT SECTOR ZZZZZZ’ 

2 ’BEGAN YYYY WORD READ AT SECTOR ZZZZZZ' 

."BEGAN YYYY WORD WRITE CHECK AT SECTOR ZZZZZZ' 

FMT7 = uplit ( Xasc i z ' XNX52X TXA : XSXD5 ) , 

!' SOFT ERROR COUNT: DDDDD ' 

2’ HARD ERROR COUNT: DDDDD* 

!’ TRANSFER RETRIES: DDDDD* „ 4 

FMT8 = uplit ( Xasc i Z * XNXATRANSF ER RATE: XTU MBYTES/SECOND' ) . 

•’TRANSFER RATE: X MBYTES/SECOND’ , . ri 

FMT9 r uplit ( Xasc iz ’ XNXS4XAARRAY XD3XA : XSXD5 ) , 

" ARRAY XX* YYYYY* 

FMT10A = uplit' (Xasciz’XNXTXA:XS2XTXSX06XS2XAB0ARDXD3XS2XABANKXD2’>, 
."FAILED: SECTOR XXXXXX BOARD YY BANK Z 
FMT10B = uplit (Xasciz’XS2XABlTXD3’), 

." BIT 00’ 
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SEQ 0063 


778 

779 

780 

781 

782 

783 

784 

785 

786 

787 

788 

789 

790 

791 

792 

793 

794 

795 

796 

797 

798 

799 

800 
801 
802 

803 

804 

805 

806 

807 

808 

809 

810 
811 
812 

813 

814 

815 

816 

817 

818 

819 

820 
821 
822 

823 

824 

825 

826 

827 

828 

829 

830 

831 
83 2 


;MLX4 


MESSAGES AND PRINT FORMATS 


27-Mar-1982 19:24:42 
27-Mar-1982 19:23:44 


TOPS-20 Bliss-16 V2C212) 
PA:<NEALE>MLX4.BLI.5 (3) 


2203 

2204 

2205 

2206 

2207 

2208 

2209 

2210 
2211 
2212 

2213 

2214 

2215 

2216 

2217 

2218 

2219 

2220 
2221 
2222 

2223 

2224 

2225 

2226 

2227 

2228 

2229 

2230 

2231 

2232 

2233 

2234 

2235 

2236 

2237 

2238 

2239 

2240 

2241 

2242 

2243 

2244 

2245 

2246 

2247 

2248 

2249 

2250 

2251 

2252 

2253 

2254 


FMT11 = uplit 


uplit ( Zasc i z ' XNXTXSX06XA EXCEEDS XTXSX06'). # 

.’TOP SECTOR OF XXXXXX EXCEEDS SYSTEM LIMIT OF YYYVyV 
••LOW SECTOR OF XXXXXX EXCEEDS TOP SECTOR OF YYYYYY 
FMT12A = uplit (Xasciz'XNXAGOOD DATA: X06XA AT LOCATION X06'>. 
."GOOD DATA: XXXXXX AT LOCATION YYYYYY' „ „ 

FMT12B = uplit (Xasciz'XNXABAD DATA: X06XA AT LOCATION X06'>, 
!’BAD DATA: XXXXXX AT LOCATION YYYYYY' 

FNT13 = uplit (Xasciz'XNZAARRAYXD3X$2XT ) . 

XX — > RUN ML11 PROM MAINTENANCE PROGRAM' 
uplit (Xasciz'XNZD5XSXT'), 

WYTES WRITTEN* 

MBYTES READ' 

MBYTES WRITE CHECKED' 
uplit (Xasciz'XS2ZT'). 


'ARRAY 
FMT14 = 

! 'XXXXX 
."XXXXX 
! 'XXXXX 
FMT15 = 

! ' ECH' 

! ' NED* 
.'(ANY OF THE 
CRLF = uplit 


ERROR BITS) 
(Xasciz'XN*), 


MESSAGE MAPS: 


SAY1 = uplit (Xasciz'XNZT') , 

SAY 2 = uplit (Zasc iz ' XNXTXSXT ) , 

SAY3 = uplit (Xasciz'XNXTXSXTXSZT’), 

SAY4 = uplit (Zasciz'ZNXTZSZTZSZTZSiT'), 

SAY5 = uplit ( Zasc iz 1 ZNZTZSZTZSZTZSZTZSZT ) # 

WORDS: 

WRD2 = uplit (Zasciz'BEGIN*), 

WRD3 = uplit (Zasciz'END'). 

WRD4 = uplit (Zasciz'PASS'L 
WRD6 = uplit (Zasciz*MLl1-A') # 

WRD 7 = uplit (Zasc iz'MLl 1-8'), 

URD11 = uplit (Zasciz'DRIVE')- 
WRD15 = uplit (Zasciz 'SECTOR'), 

WRD 16 = uplit (Zascfz'WRITE'), 

WRD17 = uplit (Zasciz 'READ'), 

WRD18 = uplit (Zasciz 'RETRY'), 

WRD19 = uplit (Zasciz 'SUCCEEDED'), 

WRD20 = uplit (Zasciz'FAILED'), 

WRD21 = uplit (Zasciz'DROPPED ), 

WRD24 = uplit (Zasciz 'UP'), 

WRD25 = uplit (Zasciz'DOWN') , 

WRD34 - uplit (Zasciz 'RUNNING'), 

WRD35 = uplit ( Zasc i Z 'MARCHING : '), 

WRD36 = uplit (Zasciz 'ENABLED'), 

WRD37 * uplit (Zasciz' DISABLED'), 

WRD38 = uplit (Xasciz'ECC). 

WRD40 = uplit (Zasciz'WITH'J, 

WRD41 = uplit (Zasciz'AND') , 


CZMLB80 PERFORMANCE EXERCISER 
L$AU ADD UNIT SECTION 


MACRO Mil 13 29-MAR -82 13:41 


M 5 

PAGE 68 


SEO 0064 


MESSAGES AND PRINT FORMATS 


-11 BITS: 


27-Mar-1982 19:24:42 
27-Mar-1982 19:23:44 


TOPS-20 Bliss-16 V2(212) 
PA:<NEALE>MLX4.BLl .5 (3) 


2255 

! ML 

2256 

1 

2257 

MLB2 

2258 

ML83 

2259 

MLB4 

2260 

ML85 

2261 

MLB6 

2262 

MLB 7 

2263 

MLB8 

2264 

MLB9 

2265 

MLB10 

2266 

MLB11 

2267 

ML812 

2268 

ML813 

2269 

MLS 14 

2270 

MLB15 

2271 

ML816 

2272 

HL817 

2273 

HL618 

2274 

HLB19 

2275 

MLB20 

2276 

NLB21 

2277 

MLB22 

2278 

MLB23 

2279 

ML824 

2280 

* 

2281 

1 RCM 

2282 

i 

2283 

RTNO 

2284 

RTN1 

2285 

RTN2 

2286 

RTN3 

2287 

RTN4 

2288 

RTN5 

2289 

RTN5A 

2290 

RTN56 

2291 

RTN5C 

2292 

RTN5D 

2293 

i 

2294 

! PHI 

2295 

i 

2296 

PHR1 

2297 

PHR2 

2298 

PHR3 

2299 

PHR4 

2300 

PHR5 

2301 

PHR6 

2302 

PHR7 

2303 

PHR8 

2304 

PHR9 

2305 

PHR10 

2306 

PHR11 


uplit (Zasciz'NED') , 
uplit (Xasciz’NEM'). 
uplit (Xasciz'PGE ’) , 
uplit (Xasciz'DLT') , 
uplit (Xasciz'UCE’) , 
uplit (Xasciz'PE'), 
uplit (Zasciz'MXP '), 
uplit (Xasciz'MDPE'5. 
uplit (Xasciz'MCPE'J, 
uplit (Zasciz'l^iS'), 
uplit (Zasciz'IAE'), 
uplit (Zasciz'AOE') , 
uplit (Xasciz'RMR'), 
uplit (Xasciz'ILR'). 
uplit (Xasciz'ILF*) , 
uplit (Xasciz'OPI*), 
uplit (Xasciz'DPAR*), 
uplit (XascIz'CPAR*), 
uplit (Xasciz'DCK'), 
uplit (Xasciz'ECH*), 
uplit (Zasciz'CRC), 
uplit (Xasciz'SGL'), 
uplit (Zasciz'UNC'), 


ROUTINE NAMES: 


! RANDOM DATA 

•DATA i WORD COUNTS 

!DATA, UORD COUNTS t SECTORS 

.'DATA, UORD COUNTS, SECTORS ft UNITS 


uplit (Zasciz'URITE CHECK'), 
uplit (Zasciz'OUICK VERIFY'), 
uplit (Zasc iz 'REFRESH MARGINING'), 
uplit (Zasc iz'CSR ADDRESS'), 
uplit (Zasciz'SOFT ERROR COUNT'), 
uplit (Zasc iz' TRANSFER RETRIES'), 
uplit (Zasc iz' LOGICAL UNIT'), 


SYSfEM ERRORS FOUND'), 
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SEC 0065 


;MLX4 


MESSAGES AND PRINT FORMATS 


27-Mar-1982 19:24:42 
27-Mar- 1982 19:23:44 


T0PS-20 Bliss-16 V2(212) 
PA:<NEALE>»LX4.BLI.5 (3) 


2307 

2308 

2309 

2310 

2311 

2312 

2313 

2314 

2315 

2316 

2317 

2318 

2319 

2320 

2321 

2322 

2323 

2324 

2325 

2326 

2327 

2328 

2329 

2330 

2331 

2332 

2333 

2334 

2335 

2336 

2337 

2338 

2339 

2340 

2341 

2342 

2343 


PHR12 = uplit (Xasciz'NUMBER OF MBYTES TRANSFERED: ’ ) , 
PHR13 = uplit (Xasciz'MBYTES WRITE CHECKED 1 >, 

PHR14 = uplit (Xasciz'TOP SECTOR OF'), 

PHR15 = uplit (Zasciz'LOW SECTOR OF'), 

PHR16 = uplit (Zasciz'SYSTEM LIMIT 0F f ), 

PHR17 = uplit (Xasciz 'PERFORMANCE SUMMARY'), 

PHR18 = uplit (Xasciz'HARD ERROR COUNT'), 

PHR19 = uplit (Xasciz’MBYTES WRITTEN'), 

PHR20 = uplit (Xasciz'MBYTES READ'), 

j TRANSFER RATES: 

i 

TRTOO = uplit (Xasciz'2'), 

TRT01 = uplit (Xasciz'1 '). 

TRT10 = uplit (Xasciz'. 5'). 

TRT11 = uplit (Xasciz'. 25'), 


DROP MESSAGES: 


CAUSE 1 > uplit 
CAUSE 2 - uplit 
CAUSE3 = uplit 
CAUSE4 = uplit 
CAUSE 5 = uplit 
CAUSE6 = uplit 
CAUSE 7 = uplit 
CAUSE8 = uplit 

i 

! DIAGNOSES: 


(Xasciz' (NOT POWERED UP)'). 

(Xasciz' (NOT AN ML11 UNIT)*), 

(Xasciz' (OPERATOR SELECTED TEST LIMITS INCORRECTLY) ') , 
(Xasciz’ (ALL RETRIES FAILED FOR A NON-FATAL ERROR)'), 
(Xasciz' (CONTROLLER FATAL ERROR)'), 

(Xasciz' (DPIVE FATAL ERROR)'), 

(Xasciz' (ECC HARD ERROR)'). 

(Zasciz'(ECC LOGIC FAILURE)'), 


THE TRANSFER IS COMPLETE'), 


MSGO = uplit (Xasciz 'INTERRUPT DID NOT OCCUR. BUT THE TRANSFE 
MSG1 = uplit (Xasciz'— > RUN NL11 LOGIC TEST*), 

MSG2 = uplit (Xasciz'— > RUN HL11 PROM MAINTENANCE PROGRAM'), 
MSG3 = uplit (Xasciz 'SOFT ERROR'), 

MSG4 = uplit (Xasciz'HARD ERROR'), 

MSG5 = uplit (Xasciz'ECC LOGIC FAILED TO DETECT DATA ERROR'); 
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931 ;NLX4 

932 ; 

933 

934 ; 


Mill INTERRUPT SERVICE 

ROUTINE 

1*1 

Zsbttl 'NL11 INTERRUPT 

SERVICE ROUTINE' 

935 ; 

BGNSRV (SERVICE); 


936 ; 

2>«6 

I AN DONE * ACTIVE; 


937 ; 

z:a7 

'RDSRV; 



941 

942 


944 005662 

040 

040 

040 

P.AAA: 

.ASCII 

/ / 

945 005665 

040 

040 

Oil 


.ASCII 

/ /<11> 

946 005670 

Oil 

123 

111 


.ASCII 

<11>/SI/ 

947 005673 

116 

107 

114 


.ASCII 

/NGl/ 

948 005676 

105 

040 

102 


.ASCII 

/E 0/ 

949 005701 

111 

124 

040 


.ASCII 

/IT / 

950 005704 

105 

122 

122 


.ASCII 

/ERR/ 

951 005707 

117 

122 

040 


.ASCII 

/OR / 

952 005712 

114 

117 

107 


.ASCII 

/LOG/ 

953 005715 

040 

123 

125 


.ASCII 

/ SU/ 

954 005720 

115 

115 

101 


.ASCII 

/NBA/ 

955 005723 

122 

131 

040 


.ASCII 

/RY / 

956 005726 

1 22 

105 

120 


.ASCII 

/REP/ 

957 005731 

117 

122 

124 


.ASCII 

/ORT/ 

958 005734 

000 

000 



.ASCII 

<00><00> 

959 005736 

045 

116 

045 

P.AAB: 

.ASCII 

/XNX/ 

960 005741 

104 

061 

045 


.ASCII 

/D 11/ 

961 005744 

101 

050 

104 


.ASCII 

/A(D/ 

962 005747 

051 

040 

040 


.ASCII 

/) / 

963 005752 

040 

040 

040 


.ASCII 

/ / 

964 005755 

040 

045 

104 


.ASCII 

/ 10/ 

965 005760 

062 

045 

101 


.ASCII 

/2XA/ 

966 005763 

050 

104 

051 


.ASCII 

/(D)/ 

967 005766 

040 

040 

040 


.ASCII 

/ / 

968 005771 

040 

040 

040 


.ASCII 

/ / 

969 005774 

045 

104 

061 


.ASCII 

/XD1/ 

970 005777 

045 

101 

050 


.ASCII 

/XA (/ 

971 006002 

104 

051 

040 


.ASCII 

/D) / 

972 006005 

040 

040 

040 


.ASCII 

/ / 

973 006010 

040 

040 

045 


.ASCII 

/ X/ 

974 006013 

104 

06 2 

045 


.ASCII 

/D2X/ 

975 006016 

101 

050 

104 


•ASCII 

/A(D/ 

976 006021 

051 

040 

040 


.ASCII 

/) / 

977 006024 

040 

040 

040 


.ASCII 

/ / 

978 006027 

040 

040 

045 


.ASCII 

/ X/ 

979 006032 

104 

066 

045 


.ASCII 

/D6X/ 

Y • 'I' Vj'MW 

101 

050 

104 


.ASCII 

/A(D/ 


051 

000 



.ASCII 

/)/<Q0> 

98 2 006042 

125 

116 

111 

P.AAC: 

.ASCII 

/UNI/ 

983 006045 

124 

040 

043 


.ASCII 

/T #/ 

984 




;NLX4 



98S 




• 


ML11 INTERRUPT 

986 







987 006050 

072 

040 

040 


.ASCII 

/: / 

98 8 006053 

040 

101 

122 


.ASCII 

/ AR/ 

989 006056 

122 

101 

131 


.ASCII 

/RAY/ 

990 006061 

040 

043 

072 


.ASCII 

/ #:/ 


SEQ 0066 

27-N*r-1982 19:24:4 2 TOPS-20 BtTss-16 V2<212> 

27-N*r-1982 19:23:44 PA:<NEALE>«LX4.BLl.5 (4) 


SERVICE ROUTINE 


27-Nar-1982 19:24:42 TCN 
27-Nar-1982 19:23:44 PA 



& 

■1 

SEQ 0067 
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SEQ 0068 


1040 




;MLX4 



1041 




• 

• 


Mill INTERRUPT SERVICE ROUTINE 

1042 

1043 006276 

101 

072 

045 


.ASCII 

/A:*/ 

1044 006301 

123 

045 

104 


.ASCII 

/SXD/ 

1045 006304 

1046 006307 

061 

045 

104 


.ASCII 

/1XD/ 

061 

045 

104 


.ASCII 

/1XD/ 

1047 006312 

061 

045 

104 


.ASCII 

/1XD/ 

1048 006315 

061 

000 

000 


.ASCII 

/1/<00><00> 

1049 006320 

045 

116 

045 

P.AAK: 

.ASCII 

/XNX/ 

1050 006323 

124 

045 

123 


.ASCII 

/TXS/ 

1051 006326 

063 

045 

101 


.ASCII 

/3XA/ 

1052 006331 

123 

105 

103 


.ASCII 

/SEC/ 

1053 006334 

124 

117 

122 


.ASCII 

/TOR/ 

1054 006337 

123 

040 

125 


.ASCII 

/S U/ 

1055 006342 

116 

104 

105 


.ASCII 

/NOE/ 

1056 006345 

122 

040 

124 


.ASCII 

/R T/ 

1057 006350 

105 

123 

124 


.ASCII 

/EST/ 

1058 006353 

072 

045 

123 


.ASCII 

/:XS/ 

1059 006356 

045 

117 

066 


.ASCII 

/X06/ 

1060 006361 

045 

123 

045 


.ASCII 

/XSX/ 

1061 006364 

101 

124 

117 


.ASCII 

/ATO/ 

1062 006367 

045 

123 

045 


.ASCII 

/XSX/ 

1063 006372 

117 

066 

000 


.ASCII 

/06/<00> 

1064 006375 

000 




.ASCII 

<00> 

1065 006376 

045 

116 

045 

P.AAl: 

.ASCII 

/XNX/ 

1066 006401 

101 

102 

105 


.ASCII 

/ABE/ 

iTtr.wy.CTT— 

107 

101 

116 


.ASCII 

/GAN/ 

1068 006407 

040 

045 

104 


.ASCII 

/ XO/ 

1069 006412 

064 

045 

101 


.ASCII 

/4XA/ 

1070 006415 

040 

127 

117 


.ASCII 

/ WO/ 

1071 006420 

122 

104 

045 


.ASCII 

/RDX/ 

1072 006423 

123 

045 

124 


.ASCII 

/SXT/ 


045 

101 

040 


.ASCII 

/XA / 

1074 006431 

101 

124 

045 


.ASCII 

/ATX/ 

1075 006434 

123 

045 

124 


.ASCII 

/SXT/ 

1076 006437 

045 

123 

045 


.ASCII 

/XSX/ 

1077 006442 

117 

066 

000 


.ASCII 

/06/<00> 

1078 006445 

000 




.ASCII 

<00> 

1079 006446 

045 

116 

045 

P.AAM: 

.ASCII 

/XNX/ 

1080 006451 

123 

062 

045 


.ASCII 

/S2X/ 

1081 006454 

124 

045 

101 


.ASCII 

/TXA/ 

1082 006457 

072 

045 

123 


.ASCII 

/i%S/ 

1083 006462 

045 

104 

065 


.ASCII 

/XD5/ 

1084 006465 

000 




.ASCII 

<00> 

1085 006466 

045 

116 

045 

P.AAN: 

.ASCII 

/XNX/ 

1086 006471 

101 

124 

122 


.ASCII 

/AT R/ 

1087 006474 

101 

116 

123 


.ASCII 

/ANS/ 

1088 006477 

106 

105 

122 


.ASCII 

/FER/ 

1089 006502 

040 

122 

101 


.ASCII 

/ RA/ 

1090 006505 

124 

105 

072 


.ASCII 

/TE:/ 

1091 006510 

040 

045 

124 


.ASCII 

/ XT/ 

1092 006513 

045 

101 

040 


.ASCII 

/XA / 

1093 006516 

115 

102 

131 


.ASCII 

/MB V/ 

1094 006521 

124 

105 

123 


.ASCII 

ms/ 


27-H*r-1982 19:24:42 TOP 
27-Mar-1982 19:23:44 PA: 
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1096 




.MIX* 


1097 

1098 

1099 006524 

057 

123 

105 

• 

.ASCII 

1100 006527 

103 

117 

116 


.ASCII 

1101 006532 

104 

000 



.ASCII 

1102 006534 

045 

116 

045 

P.AAO: 

.ASCII 

1103 006537 

123 

064 

045 


.ASCII 

1104 006542 

101 

101 

122 


.ASCII 

1105 006545 

122 

101 

131 


.ASCII 

*106 006550 

045 

104 

063 


.ASCII 

1107 006553 

045 

101 

072 


.ASCII 

1108 006556 

045 

123 

045 


.ASCII 

1109 006561 

104 

065 

000 


.ASCII 

1110 006564 

045 

116 

045 

P.AAP: 

.ASCII 

1111 006567 

124 

045 

101 


.ASCII 

1112 006572 

072 

045 

123 


.ASCII 

1113 006575 

062 

045 

124 


.ASCII 

1114 006600 

045 

123 

045 


.ASCII 

1115 006603 

117 

066 

045 


.ASCII 

1116 006606 

123 

062 

045 


.ASCII 

1117 006611 

101 

102 

117 


.ASCII 

1118 006614 

101 

122 

104 


.ASCII 

1119 006617 

045 

104 

063 


.ASCII 

1120 006622 

045 

123 

062 


.ASCII 


045 

101 

101 

116 

102 

113 


.ASCII 

.ASCII 

1123 006633 

045 

104 

062 


.ASCII 

1124 006636 

000 

000 



.ASCII 


045 

123 

062 

P.AAO: 

.ASCII 

1126 006643 

045 

101 

102 


.ASCII 

1127 006646 

111 

124 

045 


.ASCII 

1128 006651 

104 

063 

000 


.ASCII 

1129 006654 

045 

116 

045 

P.AAR: 

.ASCII 

1130 006657 

124 

045 

123 


.ASCII 

1131 006662 

045 

117 

066 


.ASCII 

1132 006665 

045 

101 

040 


.ASCII 

1133 006670 

105 

130 

103 


.ASCII 

1134 006673 

105 

105 

104 


.ASCII 

1135 006676 

123 

040 

045 


.ASCII 

1136 006701 

124 

045 

123 


.ASCII 


045 

117 

066 


.ASCII 

1138 006707 

000 




.ASCII 

1139 006710 

045 

116 

045 

P.AAS: 

.ASCII 

1140 006713 

101 

107 

117 


.ASCII 

1141 006716 

117 

104 

040 


.ASCII 

1142 006721 

1143 006724 

104 

101 

124 


.ASCII 

101 

072 

040 


.ASCII 

1144 006727 

045 

117 

066 


.ASCII 

1145 006732 

045 

101 

040 


.ASCII 

1146 006735 

101 

124 

040 


.ASCII 

1147 006740 

114 

117 

103 


.ASCII 

1148 006743 

101 

124 

111 


.ASCII 

1149 006746 

117 

116 

040 


.ASCII 

1150 006751 

045 

117 

066 


.ASCII 



CZMLBBO PERFORMANCE EXERCISER 
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SEG 0070 


152 

153 

154 

155 006754 

156 006756 

157 006761 

158 006764 

159 006767 

160 00677? 

161 006775 

162 007000 

163 007003 

164 007006 

165 007011 

166 007014 

167 007017 

168 007022 

169 007024 

170 007027 

171 007032 

172 007035 

173 007040 

174 007043 

175 007046 

176 007051 

177 007054 
173 007057 

179 007060 

180 007063 

181 007066 

182 007071 

183 007072 

184 007075 

185 007100 

186 007103 

187 007106 

188 007111 

189 007112 

190 007115 

191 007U 



7141 

198 007144 

199 007147 
715, 



715 
7160 
7163 

0071 $1 
007174 


f 6 
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;MIX4 






0 


Mill INTERRUPT SERVICE ROUTINE 

000 

000 



.ASCII 

<00><00> 

045 

116 

045 

P.AAT: 

.ASCII 

/XNX/ 

101 

102 

101 


.ASCII 

/ASA/ 

104 

040 

104 


.ASCII 

/D 0/ 

101 

124 

101 


.ASCII 

/ATA/ 

072 

040 

040 


.ASCII 

/: / 

045 

117 

066 


.ASCII 

/X06/ 

045 

101 

040 


.ASCII 

/XA / 

101 

12 4 

040 


.ASCII 

/AT / 

114 

117 

103 


.ASCII 

/IOC/ 

101 

124 

111 


.ASCII 

/ATI/ 

117 

116 

040 


.ASCII 

/ON / 

045 

117 

066 


.ASCII 

/X06/ 

000 

000 



.ASCII 

<00><00> 

045 

116 

045 

P.AAU: 

.ASCII 

/m/ 

101 

101 

122 


.ASCII 

/AAR/ 

122 

101 

131 


.ASCII 

/RAV/ 

045 

104 

063 


.ASCII 

/XD3/ 

045 

123 

062 


.ASCII 

/*S2/ 

045 

124 

000 


.ASCII 

/XT/<00> 

045 

116 

045 

P.AAV: 

.ASCII 

/XNX/ 


065 

045 


.ASCII 

/D5X/ 

\y±m 

045 

124 


.ASCII 

/SXT/ 





.ASCII 

<00> 


123 

062 

P.AAW: 

.ASCII 

/XS2/ 


124 

000 


.ASCII 

/XT/<00> 


116 

000 

P.AAU: 

.ASCII 

/XN/< 00> 





.ASCII 

<00> 

si 

116 

045 

P.AAT: 

.ASCII 

/XNX/ 

rj 

000 

000 


.ASCII 

/T/<00><00> 


116 

045 

P.AAZ: 

.ASCII 

/XNX/ 


045 

123 


.ASCII 

ms/ 


124 

000 


.ASCII 

/XT/<00> 





.ASCII 

<00> 


116 

045 

P.ABA: 

.ASCII 

/XNX/ 

124 


123 


.ASCII 

ms/ 


124 

045 


.ASCII 

/XIX/ 



124 


.ASCII 

/SXT/ 





.ASCII 

<00><00> 

116 

045 

P.ABB: 

.ASCII 

/XNX/ 



123 


.ASCII 

ms/ 


124 

045 


.ASCII 

/XT X/ 

123 


124 


.ASCII 

/SXT/ 


$ 

045 


.ASCII 

/xsx/ 

124 

000 


.ASCII 

/T/<00><00> 


116 

045 

P.ABC: 

.ASCII 

/XNX/ 

124 


123 


.ASCII 

ms/ 


124 

045 


.ASCII 

/XIX/ 

123 


124 


.ASCII 

/SXT/ 

045 

123 

045 


.ASCII 

/xsx/ 

mm 


123 


.ASCII 

ms/ 

iRm 

124 

000 


.ASCII 

/XT/<00> 


27-Mar-1982 19:24:42 TOP 
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I 
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$4 


1208 




;MLX4 



1209 

1210 

1211 007177 




• 


Mill INTERRUPT SERVICE ROUTINE 

000 




.ASCII 

<00> 

1212 007200 

102 

105 

107 

P.ABD: 

.ASCII 

/BEG/ 

1213 007203 

111 

116 

000 


.ASCII 

/IN/<00> 

1214 007206 

105 

116 

104 

P.ABE: 

.ASCII 

/END/ 

1215 007211 

000 




.ASCII 

<00> 

1216 007212 

120 

101 

123 

P.ABF: 

.ASCII 

/PAS/ 

1217 007215 

123 

000 

000 


.ASCII 

/S/<00><00> 

1218 007220 

115 

114 

061 

P.A8G: 

.ASCII 

/MU/ 

1219 007223 

061 

055 

101 


.ASCII 

/I -A/ 

1220 007226 

000 

000 



.ASCII 

<00><00> 

1221 007230 

115 

114 

061 

P.A8H: 

.ASCII 

/Mil/ 

1222 007233 

061 

055 

102 


.ASCII 

/i-e/ 

1223 007236 

000 

000 



.ASCII 

<00><00> 

1224 007240 

104 

122 

111 

P.ABJ : 

.ASCII 

/DRI/ 

1225 007243 

126 

105 

000 


.ASCII 

/VE/<00> 

1226 007246 

123 

105 

103 

P.ABJ: 

.ASCII 

/SEC/ 

1227 007251 

124 

117 

122 


.ASCII 

/TOR/ 

1228 007254 

000 

000 



.ASCII 

<00><00> 

1229 007256 

127 

122 

111 

P.ABK: 

.ASCII 

/WRI/ 

1230 007261 

124 

105 

000 


.ASCII 

/TE/<00> 

1231 007264 

122 

105 

101 

P.ABl: 

.ASCII 

/REA/ 

1232 007267 

104 

000 

000 


.ASCII 

/9/<00x00> 

1233 007272 

122 

105 

124 

P.ABM: 

.ASCII 

/RET/ 

1234 007275 

122 

131 

000 


.ASCII 

/RV/<00> 

1235 007300 

123 

125 

103 

P.A6N: 

.ASCII 

/sue/ 

1236 007303 

103 

105 

105 


.ASCII 

/CEE/ 

1237 007306 

104 

105 

104 


.ASCII 

/DED/ 

1238 007311 

000 




.ASCII 

<00> 

1239 007312 

106 

101 

111 

P.A80: 

.ASCII 

n AI/ 

1240 007315 

114 

105 

104 


.ASCII 

/LED/ 

1241 007320 

000 

000 



.ASCII 

<00><00> 

1242 007322 

104 

122 

117 

P.ABP: 

.ASCII 

/DRO/ 

1243 007325 

120 

120 

105 


.ASCII 

/PPE/ 

1244 007330 

104 

000 



.ASCII 

/D/<00> 

1245 007332 

125 

120 

000 

P.A8Q: 

.ASCII 

/UP/<00> 

1246 007335 

000 




.ASCII 

<00> 

1247 007336 

104 

117 

127 

P.ABR: 

.ASCII 

/DOW/ 

1248 007341 

116 

000 

000 


.ASCII 

/N/<00><00> 

1249 007344 

122 

125 

116 

P.ABS: 

.ASCII 

/RUN/ 

1250 007347 

116 

111 

116 


.ASCII 

/NIN/ 

1251 007352 

107 

000 



.ASCII 

/6/<00> 

1252 007354 

115 

101 

122 

P.ABT : 

.ASCII 

/MAR/ 

1253 007357 

103 

110 

111 


.ASCII 

/CHI/ 

1254 007362 

116 

107 

072 


.ASCII 

/NG:/ 

1255 007365 

1256 007370 

040 

040 

000 


.ASCII 

/ /<00> 

105 

116 

101 

P.ABU: 

.ASCII 

/ENA/ 

1257 007373 

102 

114 

105 


.ASCII 

/8LE/ 

1258 007376 

104 

000 



.ASCII 

/D/<00> 

1259 007400 

104 

111 

123 

P.ABV: 

.ASCII 

/DIS/ 

1260 007403 

101 

102 

114 


.ASCII 

/ABl/ 

1261 007406 

105 

104 

000 


.ASCII 

/ED/<00> 

1262 007411 

000 




.ASCII 

<00> 


SEO 0071 

>7-M»r-1982 19:24:42 TOP 
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SEQ 

0072 

1264 




;MLX4 


27-M«r-1982 

19:24:42 

TOPS 

1265 




• 


ML 11 INTERRUPT SERVICE ROUTINE 27-Mar-1982 

19:23:44 

PA:< 

1266 

1267 007412 

105 

103 

103 

P.A9W: 

.ASCII 

/ECU 



1268 007415 

18 




•ASCII 

<00> 



1269 007416 

111 

124 

P.A8X: 

.ASCII 

/WIT/ 



1270 007421 

110 

000 

000 


.ASCII 

/H/<00><00> 



1271 007424 

101 

116 

104 

P.ABY: 

.ASCII 

/AND/ 



1272 007427 

000 




.ASCII 

<00> 



1273 007430 

116 

105 

104 

P.ABZ : 

.ASCII 

/NED/ 



1274 007433 

000 




.ASCII 

<00> 



1275 007434 

116 

105 

115 

P.ACA: 

.ASCII 

/HE M/ 



1276 007437 

000 




.ASCII 

<00> 


| 

1277 007440 

120 

107 

105 

P.AC8: 

.ASCII 

/PGE/ 


1 

1278 007443 

000 




.ASCII 

<00> 



1279 007444 

104 

114 

124 

P.ACC: 

.ASCII 

/Dl T/ 



1280 007447 

000 




•ASCII 

<00> 



1281 007450 

127 

103 

105 

P.ACO: 

.ASCII 

/UCE/ 



1282 007453 

000 




.ASCII 

<00> 



1233 007454 

120 

105 

000 

P.ACE : 

.ASCII 

/PE/< 00> 



1284 007457 

000 




.ASCII 

<00> 



1285 007460 

115 

130 

106 

P.ACF: 

.ASCII 

/m/ 




1286 007463 

000 




.ASCII 

<00> 




1287 007464 

115 

104 

120 

P.ACG: 

.ASCII 

/M DP/ 




1288 007467 

105 

000 

000 


.ASCII 

/E/<00><00> 




1289 007472 

115 

103 

120 

P.ACH: 

.ASCII 

/MCP/ 




1290 007475 

105 

000 

OOC 


.ASCII 

/E/<00><00> 




1291 007500 

125 

116 

123 

P.ACI : 

.ASCII 

/UNS/ 




1292 007503 

000 




.ASCII 

<00> 




1293 007504 

111 

101 

105 

P,ACJ: 

.ASCII 

/IAE/ 




1294 007507 

000 




.ASCII 

<00> 




1295 007510 

101 

117 

105 

P.ACK: 

.ASCII 

/AOE/ 




1296 007513 

000 




.ASCII 

<00> 




1297 007514 

122 

115 

122 

P.ACL: 

.ASCII 

/RMR/ 




1298 007517 

000 




.ASCII 

<00> 




1299 007520 

111 

114 

122 

P.ACM: 

.ASCII 

/ILR/ 




1300 007523 

000 




.ASCII 

<00> 




1301 007524 

111 

114 

106 

P.ACN: 

.ASCII 

/ILF/ 




1302 007527 

000 




.ASCII 

<00> 




1303 007530 

117 

120 

111 

P.ACO: 

.ASCII 

/O PI/ 




1304 007533 

000 




.ASCII 

<00> 




1305 007534 

104 

120 

101 

P.ACP: 

.ASCII 

/DPA/ 




1306 007537 

122 

000 

000 


.ASCII 

/R/<00><00> 




1307 007542 

1308 007545 

103 

120 

101 

P.ACO: 

.ASCII 

/CPA/ 




122 

000 

000 


.ASCII 

/R/<00><00> 




1309 007550 

1310 007553 

104 

103 

113 

P.ACR: 

•ASCII 

/DCK/ 




000 




.ASCII 

<00> 




1311 007554 

105 

103 

110 

P.ACS: 

.ASCII 

/EC H/ 




1312 007557 

000 




.ASCII 

<00> 




mi m 

103 

1 22 

103 

P.ACT: 

.ASCII 

/CRC/ 




000 




.ASCII 

<00> 




1315 007564 

123 

107 

114 

P.ACU: 

.ASCII 

/SGL/ 




m p 

18 

116 

103 

P.ACV: 

.ASCII 

.ASCII 

<00> 

/UNC/ 




1318 007573 

000 




.ASCII 

<00> 


1 

i 




. /►c3B0 PERFORMANCE EXERCISER MACRO M1113 
»*U ADO UNIT SECTION 


1320 

1321 

1322 




;MLX4 




» 

1323 007574 

103 

117 

115 

P.ACW: 

1324 007577 

115 

101 

116 


1325 007602 

104 

040 

111 


1326 007605 

116 

124 

105 


1327 007610 

107 

122 

111 


1328 007613 

124 

131 

040 


1329 007616 

122 

117 

125 


1330 007621 

124 

111 

116 


1331 007624 

105 

000 



1332 007626 

117 

120 

124 

P.ACX: 

1333 007631 

061 

000 

000 


1334 007634 

117 

120 

124 

P.ACY: 

1335 007637 

062 

000 

000 


1336 007642 

117 

120 

124 

P.ACZ: 

1337 007645 

063 

000 

000 


1338 007650 

117 

120 

124 

P.ADA: 

1339 007653 

064 

000 

000 


1340 007656 

117 

120 

124 

P.AD8: 

1341 007661 

065 

000 

COO 


1342 007664 

122 

101 

116 

P.ADC: 

1343 007667 

104 

061 

000 


1344 007672 

122 

101 

116 

P.ADD: 

1345 007675 

104 

062 

000 


1346 007700 

122 

101 

116 

P.ADE: 

1347 007703 

104 

063 

000 


1348 007706 

122 

101 

116 

P.ADF: 

1349 007711 

104 

064 

000 


1350 007714 

127 

122 

111 

P.ADG: 

1351 007717 

124 

105 

040 


1352 007722 

103 

110 

105 


1353 007725 

103 

113 

000 


1354 007730 

1 21 

125 

111 

P.ADH: 

1355 007733 

103 

1 13 

040 


1356 007736 

126 

105 

122 


1357 007741 

111 

106 

131 


1358 007744 

000 

000 



1359 007746 

122 

105 

106 

P.ADJ : 

1360 007751 

122 

105 

123 


1361 007754 

110 

040 

115 


1362 007757 

101 

122 

107 


1363 007762 

111 

116 

111 


1364 007765 

116 

107 

000 


1365 007770 

103 

123 

122 

P.ADJ: 

1366 007773 

040 

101 

104 


1367 007776 

104 

122 

105 


1368 010001 

123 

123 

000 


1369 010004 

123 

117 

106 

P.ADK: 

1370 010007 

124 

040 

105 


1371 010012 

122 

122 

117 


1372 010015 

122 

040 

103 


1373 010020 

11 7 

125 

116 


1374 010023 

124 

000 

000 



29-MAR-82 13:41 PAGE $6 6 


.ASCII 

Mill INTERRUPT SERVICE ROUTINE 

/COM/ 

.ASCII 

/MAN/ 

.ASCII 

/D 1/ 

.ASCII 

/NTE/ 

.ASCII 

/GRI/ 

.ASCII 

/TY / 

.ASCII 

/ROU/ 

.ASCII 

/TIN/ 

.ASCII 

/E/<00> 

.ASCII 

/OPT/ 

.ASCII 

/1/<00><00> 

.ASCII 

/OPT/ 

.ASCII 

/2/<00><00> 

.ASCII 

/OPT/ 

.ASCII 

/3/<00><00> 

.ASCII 

/OPT/ 

.ASCII 

/4/<00><00> 

.ASCII 

/OPT/ 

.ASCII 

/5/<00><00> 

.ASCII 

/RAN/ 

.ASCII 

/D1/<00> 

.ASCII 

/RAN/ 

.ASCII 

/D2/<00> 

.ASCII 

/RAN/ 

.ASCII 

/D3/<00> 

.ASCII 

/RAN/ 

.ASCII 

/D4/<00> 

.ASCII 

/URI/ 

.ASCII 

/TE / 

.ASCII 

/CHE/ 

.ASCII 

/CK/<00> 

.ASCII 

/QUI/ 

.ASCII 

/CK / 

.ASCII 

/VER/ 

.ASCII 

/IFY/ 

.ASCII 

<00><00> 

.ASCII 

/REF/ 

.ASCII 

/RES/ 

.ASCII 

/H N/ 

.ASCII 

/AR6/ 

.ASCII 

/INI/ 

.ASCII 

/N6/<00> 

.ASCII 

/CSR/ 

.ASCII 

/ AD/ 

.ASCII 

/DRE/ 

.ASCII 

/SS/< 00> 

.ASCII 

/SOF/ 

.ASCII 

/T E/ 

.ASCII 

/RRO/ 

.ASCII 

/R C/ 

.ASCII 

/OUN/ 

.ASCII 

/T/<00><00> 


SEG 0073 

27-tUr-1982 19:24:42 TOPS 

27-M*r-1982 19:23:44 PA:< 


CZMLB80 PERFORMANCE EXERCISER 
LSAU ADD UNIT SECTION 


SEQ 0074 


J 6 

MACRO Mil 13 29-MAR-82 13:41 PAGE 77 


1376 




;MLX4 


ML11 INTERRUPT SERVICE ROUTINE 

1377 




• 


1378 

1379 010026 

124 

122 

101 

P.ADL: 

.ASCII 

/TRA/ 

1380 010031 

1381 010034 

116 

105 

123 

122 

106 

040 


.ASCII 

•ASCII 

/NSF/ 

/ER / 

1382 010037 

122 

105 

124 


.ASCII 

/RET/ 

1383 010042 

122 

111 

105 


.ASCII 

/RIE/ 

1384 010045 

123 

000 

000 


•ASCII 

/S/<00><00> 

1385 010050 

114 

117 

107 

P.ADM: 

.ASCII 

/LOG/ 

1386 010053 

111 

103 

101 


.ASCII 

/ICA / 

1387 010056 

114 

040 

125 


.ASCII 

/L U/ 

1388 010061 

116 

111 

124 


.ASCII 

/NIT/ 

1389 010064 

000 

000 

122 


.ASCII 

<00><00> 

1390 010066 

123 

105 

P.ADN: 

.ASCII 

/SER/ 

1391 010071 

111 

101 

114 


.ASCII 

/IAl/ 

1392 010074 

040 

043 

000 


.ASCII 

/ #/<00> 

1393 010077 

000 




.ASCII 

<00> 

1394 010100 

120 

101 

124 

P.ADO: 

.ASCII 

/PAT/ 

1395 010103 

124 

105 

122 


.ASCII 

/TER/ 

1396 010106 

116 

040 

116 


.ASCII 

/N N/ 

1397 010111 

125 

115 

102 


.ASCII 

/UMB/ 

1398 010114 

105 

122 

000 


.ASCII 

/ER/<00> 

1399 010117 

000 




.ASCII 

<00> 

1400 010120 

105 

122 

122 

P.ADP: 

.ASCII 

/ERR/ 

1401 010123 

117 

122 

040 


.ASCII 

/OR / 

1402 010126 

102 

111 

124 


.ASCII 

/BIT/ 

1403 010131 

123 

040 

123 


.ASCII 

/S S/ 

1404 010134 

105 

124 

072 


.ASCII 

/ET :/ 

1405 010137 

000 




.ASCII 

<00> 

1406 010140 

123 

103 

040 

P.ADQ: 

•ASCII 

/SC / 

1407 010143 

123 

105 

124 


.ASCII 

/SET/ 

1408 010146 

040 

102 

125 


.ASCII 

/ BU/ 

1409 010151 

124 

040 

116 


.ASCII 

/T N/ 

1410 010154 

117 

040 

123 


.ASCII 

/O S/ 

1411 010157 

131 

123 

124 


.ASCII 

/VST/ 

1412 010162 

105 

115 

040 


.ASCII 

/EH / 

1413 010165 

105 

122 

122 


.ASCII 

/ERR/ 

1414 010170 

117 

122 

123 


.ASCII 

/OHS/ 

1415 010173 

040 

106 

117 


.ASCII 

/ FO/ 

1416 010176 

125 

116 

104 


.ASCII 

/UND/ 

1417 010201 

000 




.ASCII 

<00> 

1418 010202 

116 

125 

115 

P.ADR: 

.ASCII 

/NUM/ 

1419 010205 

102 

105 

122 


.ASCII 

/BfR/ 

1420 010210 

040 

117 

106 


.ASCII 

/ OF/ 

1421 010213 

040 

115 

102 


.ASCII 

/ MB/ 

1422 010216 

131 

124 

105 


.ASCII 

/VTE/ 

1423 010221 

123 

040 

124 


.ASCII 

/S T/ 

1424 010224 

122 

101 

116 


.ASCII 

/RAN/ 

1425 010227 

1426 010232 

123 

106 

105 


.ASCII 

/SFE/ 

122 

105 

104 


.ASCII 

/RED/ 

1427 010235 

072 

000 

000 


.ASCII 

/:/<OOxOO> 

1428 010240 

115 

102 

131 

P.ADS: 

.ASCII 

/HBV/ 

1429 010243 

124 

105 

123 


.ASCII 

ms/ 

1430 010246 

040 

127 

122 


.ASCII 

/ UR/ 


27-Mar-1982 19:24:42 
27-Mar-1982 19:23:44 


TOPS 
PA: < 



\n V 
















CZML8B0 PERFORMANCE EXERCISER MACRO H1113 29-MAR-82 
LSAU ADO UNIT SECTION 


1488 ;MLX4 

1489 

1490 


1491 010 '66 

117 

127 

105 


.ASCII 

1492 010471 

122 

105 

104 


•ASCII 

1493 010^74 

040 

125 

120 


.ASCII 

1494 010477 

051 

000 

000 


.ASCII 

1495 010502 

050 

116 

117 

P.AEF: 

.ASCII 

1496 010505 

124 

040 

101 


.ASCII 

1497 010510 

116 

040 

115 


.ASCII 

1498 010513 

114 

061 

061 


•ASCII 

1499 010516 

040 

125 

116 


.ASCII 

1500 010521 

111 

124 

051 


.ASCII 

1501 010524 

000 

000 



.ASCII 

1502 010526 

050 

117 

120 

P.AEG: 

.ASCII 

1503 010531 

105 

122 

101 


.ASCII 

1504 010534 

124 

117 

122 


•ASCII 

1505 010537 

040 

123 

105 


.ASCII 

1506 010542 

114 

105 

103 


.ASCII 

1507 010545 

124 

105 

104 


.ASCII 

1508 010550 

040 

124 

105 


.ASCII 

1509 010553 

123 

124 

040 


.ASCII 

1510 010556 

114 

111 

115 


.ASCII 

1511 010561 

111 

124 

123 


.ASCII 

1512 010564 

040 

111 

116 


.ASCII 

1513 010567 

103 

117 

122 


.ASCII 

1514 010572 

122 

105 

103 


.ASCII 

1515 010575 

124 

114 

131 


.ASCII 

1516 010600 

051 

000 



.ASCII 

1517 010602 

050 

101 

114 

P.AEH: 

.ASCII 

1518 010605 

114 

040 

122 


.ASCII 

1519 010610 

105 

124 

122 


.ASCII 

1520 010613 

111 

105 

123 


•ASCII 

1521 010616 

040 

106 

101 


.ASCII 

1522 010621 

111 

114 

105 


.ASCII 

1523 010624 

104 

040 

106 


.ASCII 

1524 010627 

117 

122 

040 


.ASCII 

1525 010632 

101 

040 

116 


.ASCII 

1526 010635 

117 

116 

055 


.ASCII 

1527 010640 

106 

101 

124 


.ASCII 

1528 010643 

101 

114 

040 


.ASCII 

1529 010646 

105 

122 

122 


.ASCII 

1530 010651 

117 

122 

051 


.ASCII 

1531 010654 

000 

000 

117 


.ASCII 

1532 010656 

050 

103 

P.AEI : 

.ASCII 

1533 010661 

116 

124 

122 


.ASCII 

1534 010664 

117 

114 

114 


.ASCII 

1535 010667 

105 

122 

040 


.ASCII 

1536 010672 

106 

101 

124 


.ASCII 

1537 010675 

101 

114 

040 


.ASCII 

1538 010700 

105 

122 

122 


.ASCII 

1539 010703 

117 

122 

051 


.ASCII 

1540 010706 

000 

000 



.ASCII 

1541 010710 

050 

104 

122 

P.AEJ : 

.ASCII 

1542 010713 

111 

126 

105 


.ASCII 


SEO 0076 



A V> 


iUMLBBO PERFORMANCE EXERCISER 

MACRO Ml 113 29-MAR-82 

M 6 

13:41 PAGE 80 




L*AU ADD UNIT : 

SECTION 







SEG 

0077 

1 544 




;MLX4 



27-M*r-1982 

19:24:42 

TOPS 

1 545 




0 


ML 1 1 INTERRUPT SERVICE ROUTINE 

27-M*r-1982 

19:23:44 

PA: < 

1546 

1547 010716 

040 

106 

101 


.ASCII 

/ FA/ 




1548 010721 

124 

101 

114 


.ASCII 

/TAl/ 




1549 010724 

040 

105 

122 


.ASCII 

/ ER/ 




1550 010727 

122 

117 

122 


.ASCII 

/ROR/ 




1551 010732 

051 

000 



.ASCII 

/)/<00> 



1 

1552 010734 

050 

105 

103 

P.AEK: 

.ASCII 

/(EC/ 




1553 010737 

103 

040 

110 


.ASCII 

/C H/ 





1554 010742 

101 

122 

104 


.ASCII 

/ARD/ 





1555 010745 

040 

105 

122 


.ASCII 

/ ER/ 





1556 010750 

122 

117 

122 


•ASCII 

/ROR/ 





1557 010753 

051 

000 

000 


.ASCII 

/)/<00><00> 




1558 010756 

050 

105 

103 

P.AEL: 

.ASCII 

/(EC/ 




1559 010761 

103 

040 

114 


.ASCII 

/C L/ 




1560 010764 

117 

107 

111 


.ASCII 

/OGI/ 




1561 010767 

103 

040 

106 


.ASCII 

/C F/ 




1562 010772 

101 

111 

114 


.ASCII 

/AIL/ 




1563 010775 

125 

122 

105 


.ASCII 

/URE/ 




1564 011000 

051 

000 



•ASCII 

/)/<00> 




1565 011002 

111 

116 

124 

P.AEM: 

.ASCII 

/INT/ 




1566 011005 

105 

122 

122 


.ASCII 

/ERR/ 




1567 011010 

125 

120 

124 


.ASCII 

/U PI/ 




1568 011013 

040 

104 

111 


.ASCII 

/ 01/ 




1569 011016 

104 

040 

116 


.ASCII 

/O N/ 




1570 011021 

117 

124 

040 


.ASCII 

/OT / 




1571 011024 

117 

103 

103 


.ASCII 

/OCC/ 





1572 011027 

125 

122 

054 


.ASCII 

/UR./ 





1573 011032 

040 

102 

125 


.ASCII 

/ BU/ 





1574 011035 

124 

040 

124 


.ASCII 

/T T/ 





1575 011040 

110 

105 

040 


.ASCII 

/HE / 





1576 011043 

124 

122 

101 


.ASCII 

/TRA/ 





1577 011046 

116 

123 

106 


.ASCII 

/NSf/ 





1578 011051 

105 

122 

040 


.ASCII 

/ER / 





1579 011054 

111 

123 

040 


.ASCII 

/IS / 





1580 011057 

103 

117 

115 


.ASCII 

/COM/ 





1581 011062 

120 

114 

105 


.ASCII 

/PLE/ 





1582 011065 

124 

105 

000 


.ASCII 

/TE/<00> 





1583 011070 

055 

055 

076 

P.AEN: 

.ASCII 

/-->/ 





1584 011073 

040 

122 

125 


.ASCII 

/ RU/ 





1585 011076 

116 

040 

115 


.ASCII 

/N M/ 





1586 011101 

114 

061 

061 


.ASCII 

/Li 1 / 





1587 011104 

040 

114 

117 


.ASCII 

/ 10/ 





1588 011107 

107 

111 

103 


.ASCII 

/GIC/ 





1589 011112 

040 

124 

105 


.ASCII 

/ TE/ 





1590 011115 

123 

124 

000 


.ASCII 

/$T/<00> 





1591 011120 

055 

055 

076 

P.AEO: 

.ASCII 

/-->/ 





1592 011123 

040 

122 

125 


.ASCII 

/ RU/ 





1593 011126 

116 

040 

1 1 j 


.ASCII 

/N H/ 





1594 011131 

114 

061 

061 


.ASCII 

/L 11/ 





1595 011134 

040 

120 

122 


.ASCII 

/ PR/ 





1596 011137 

117 

115 

040 


.ASCII 

/OM / 





1597 011142 

115 

101 

111 


.ASCII 

/MAI/ 





1598 011145 

116 

124 

105 


.ASCII 

/NTE/ 



- - . J 

I 



CZMLBBO PERFORMANCE EXERCISER 
LSAU ADD UNIT SECTION 


SEQ 0078 


1600 

1601 

1602 

1603 011150 

1604 011153 

1605 011156 

1606 011161 

1607 011164 

1608 011166 

1609 011171 

1610 011174 

1611 011177 

1612 011202 

1613 011205 

1614 011210 

1615 011213 

1616 011216 

1617 011221 

1618 011224 

1619 011227 

1620 011232 

1621 011235 

1622 011240 

1623 011243 

1624 011246 

1625 011251 

1626 011254 

1627 011257 

1628 011262 

1629 

1630 

1631 

1632 011264 

1633 012264 

1634 012264 

1635 012664 

1636 012664 

1637 012666 

1638 012670 

1639 022670 

1640 032670 

1641 032672 

1642 032674 

1643 032676 

1644 032700 

1645 032700 

1646 032702 

1647 032702 

1648 032704 


1649 

1650 

1651 

1652 

1653 


>704 
,>706 
032706 
032710 


1653 032712 


N 6 
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;MLX4 
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116 

101 

116 


.ASCII 

/NAN/ 

103 

105 

040 


.ASCII 

/CE / 

120 

122 

117 


.ASCII 

/PRO/ 

107 

122 

101 


.ASCII 

/GRA/ 

115 

000 



.ASCII 

/M/<00> 

123 

117 

106 

P.AEP: 

.ASCII 

/SOF/ 

124 

040 

105 


.ASCII 

/T E/ 

122 

122 

117 


.ASCII 

/RRO/ 

122 

000 

000 


.ASCII 

/R/<00><00> 

110 

101 

122 

P.AEQ: 

.ASCII 

/HAH/ 

104 

040 

105 


.ASCII 

/D E/ 

122 

122 

117 


.ASCII 

/RRO/ 

122 

000 

000 


.ASCII 

/R/<00><00> 

105 

103 

103 

P.AER: 

.ASCII 

/ECC/ 

040 

114 

117 


.ASCII 

/ LO/ 

107 

111 

103 


.ASCII 

/GIC/ 

040 

106 

101 


.ASCII 

/ FA/ 

111 

114 

105 


.ASCII 

/ILE/ 

104 

040 

124 


.A'CII 

/D T/ 

117 

040 

104 


.ASCII 

/O 0/ 

105 

124 

105 


.ASCII 

/ETE/ 

103 

124 

040 


.ASCII 

/CT / 

104 

101 

124 


.ASCII 

/DAT/ 

101 

040 

105 


.ASCII 

/A E/ 

122 

122 

117 


.ASCII 

/RRO/ 

122 

000 



.A SCII 

/R/<00> 


SBE. LOG: .BLKW 400 
PM.SBE.CNT: 

.BLKW 200 
SBES. COUNT: 

.BLKW 1 
BIT.NUM: .BLKW 1 
WBUFF: .BLKW 4000 

RBUFF : .BLKW 4000 

WPTR: .BLKW 1 

RPTR: .BLKW 1 

QUICK: .BLKW 1 

PATTERN: .BLKW 1 
DATA. COUNT: 

.BLKW 1 
COMP. COUNT: 

.BLKW 1 
E OP. COUNT: 

.BLKW 1 
BASE. ADDA: 

.BLKW 1 
VEC: .BLKW 1 

BR. LEVEL: 


27-Mar-1982 19:24:42 
27-Mar-1982 19:23:44 


TOPS 
PA: < 


IZM188Q PERFORMANCE EXERCISER 

MACRO Ml 113 29-MAR-82 

13:41 PAGE 82 



LSAU add unit section 




SEO 0079 

1655 

;MLX4 


2 7-Mar- 1982 

19:24:42 TOPS 

1656 

• 

# 

ML 11 INTERRUPT SERVICE ROUTINE 

27-Mar-198 2 

19:23:44 PA:< 

1657 





1658 032712 

.8LKW 

1 



1659 032714 

SOFTS: .BLKU 

200 



1660 033314 

HARDS: .BLKW 

200 



1661 033714 

TRIES: .BLKW 

200 



1662 034314 

UR. COUNT : 




1663 034314 

.BLKW 

1 



1664 034316 

WR. THOUSANDS: 




1665 034316 

.BLKW 

1 



1666 034320 

UR. MILLIONS: 




1667 034320 

.8LK‘. J 

1 



1668 034322 

RD. COUNT: 




1669 034322 

.BLKW 

1 



1670 034324 

RD. THOUSANDS: 




1671 034324 

.BLKW 

1 


( 

1672 034326 

RD. MILLIONS: 



• 

1673 034326 

.BLKW 

1 



1674 034330 

WC. COUNT: 




1675 034330 

.BLKW 

1 



1676 034332 

WC. THOUSANDS: 




1677 034332 

.BLKW 

1 



1678 034334 

WC. MILLIONS: 




1679 034334 

.BLKW 

1 



1680 034336 

I. AM. DONE: 




1681 034336 

.BLKW 

1 



1682 034340 

RETRYING: 




1683 034340 

.BLKW 

1 



1684 034342 

BOARD: .BLKW 

1 



1685 034344 

BANK: .BLKW 

1 



1686 





1687 





1688 





1689 034346 

ML. REG::. BLKU 

26 



1690 034422 

PTABLE.ADDR:: 




1691 034422 

.BLKW 

10 



1692 034442 

DRIVE. STATUS:: 




1693 034442 

.BLKB 

1 



1694 

.EVEN 




1695 034444 

DROPT. DRIVES:: 




1696 034444 

.BLKB 

1 



1697 

.EVEN 




1698 034446 

WHY. DROPT:: 




1699 034446 

.BLKU 

4 



1700 034456 

NUM. DRIVES:: 




1701 034456 

.BLKW 

1 



1702 034460 

LOW. SECT : : 




1703 034460 

.BLKU 

10 



1704 034500 

TOP. SECT:: 




1705 034500 

.BLKU 

10 



1706 034520 000000 

PATT8L: :.WORD 

0 



1707 034522 002000 

.WORD 

2000 



1708 034524 000001 

.WORD 

1 




lZMlBBQ performance exerciser 

LUU ADD UNIT SECTION 


1710 


1711 


1712 


1713 034526 

000001 

1714 054530 

000004 

1715 034532 

000004 

1716 034534 

000011 

1717 034536 

000011 

1718 034540 

002000 

1719 034542 

002000 

1720 


1721 


1722 


1723 


1724 


1725 


1726 


1727 


1728 


1729 

Eiil j 

1730 


1731 


1732 


1733 

iw i » i 

1734 


1735 

•Mm? 

1736 


1737 


1738 


1739 

yjyi • 

1740 


1741 

•My. ■ l 

1742 

iTili » • ? 

1743 

•••«•? 

1744 


1745 

YllVr 

1746 

•IVn* ' 

1747 


1748 

000100 

1749 

■>TiT>TlTf> 

1750 

■•Myr » 

1751 

lylyj ,* 

1752 


1753 

mmv ■ 

1754 

■yMy . 

1755 


1756 


1757 

wo'oy . 

1758 

■•!♦!*?•*» 

1759 

Kvlxf 

1760 

Kvrti 

1761 

KVrtV 

1762 

KvBr 

1763 

■'H'riv 

1764 


1765 


1766 
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;MLX4 


ML11 INTERRUPT SERVICE ROUTINE 


WORD 

1 

WORD 

4 

WORD 

4 

WORD 

11 

WORD 

11 

WORD 

2000 

WORD 

2000 


.GL08L EFN$21 , L$UNIT, L$LUN, LIMIT, RANGE 
.GLOBL LSECT, TSECT. ONLY, DROPNE , DROP1 
. GLOBL DRCP2, DR0P3, DR0P4 , DROPS, MARPAT 
.GLOBL REFRESH, ECCDIS, EOPSUM, ERROUT 
.GLOBL SEED1, SEED2, SEED3, RANDOM, RN 


BIT15== 

BIT14== 

BIT13== 

BIT 12== 

BIT11== 

BIT10== 

BIT09== 

BIT08== 

BIT07== 

BIT06== 

BIT05== 

BIT04== 

BIT03== 

BIT02== 

BIT01== 

BITOO== 

BIT9== 

BIT8== 

BIT7== 

BIT6== 

BIT5== 

BIT4== 

BIT3== 

BIT2== 

BIT1== 

BITO== 

EF. START— 
EF.RESTART== 
EF. CONTINUE^ 
EF.NEW== 
EF.PWR== 

PR I 07== 

PR 1 06== 
PRI05— 
PRI04== 

PR I 03== 
;MLX4 


-100000 

40000 

20000 

10000 

4000 

2000 

1000 

400 

200 

100 

40 

20 

10 

4 

2 

1 

1000 
400 
2 00 
100 
40 
20 
10 
4 
2 
1 

40 

37 

36 

35 

34 

340 

300 

240 

200 

140 

ML11 INTERRUPT SERVICE ROUTINE 


SEQ 0080 

27-Mar-1982 19:24:42 TOPS 
27-Mar-1982 19:23:44 PA:< 


27-Mar-1982 19:24:42 TOPS 
27-Mar-1982 19:23:44 PA:< 
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SEQ 0081 


1767 

1768 

1769 

1770 

1771 

1772 

1773 

1774 

1775 

1776 

1777 

1778 

1779 

1780 

1781 

1782 

1783 

1784 

1785 

1786 

1787 

1788 

1789 

1790 

1791 

1792 

1793 

1794 

1795 

1796 

1797 

1798 

1799 

1800 
1801 
1802 

1803 

1804 

1805 

1806 

1807 

1808 

1809 

1810 
1811 
1812 

1813 

1814 

1815 

1816 

1817 

1818 

1819 

1820 
1821 
182' 


000100 

000040 

000000 

000004 

000010 

000020 

000040 

000100 

000200 

000400 

001000 

002000 

004000 

010000 

020000 

040000 

100000 

012670 

013670 

022670 

023670 

022670 

032670 

005662 

005736 

006042 

006126 

006142 

006160 

006166 

006216 

006252 

006270 

006320 

006376 

006446 

006466 

006534 

006564 

006640 

006654 

006710 

006756 

007024 

007046 

007060 

007066 

007072 

007100 

007112 

007130 

007152 


PR I 02== 
PRI01== 

PR I 00== 
EVL" 

L0T== 

ADR== 

IOU== 

ISR== 

UAM== 

BUE== 

PNT== 

PRI== 

IXE== 

IBE== 

IER== 

LOE== 

HOE== 

WDBUFFs 

WCBUFF= 

RDBUFF* 

RCBUFF= 

END.y9UFF= 

END.R8UFF= 

PHR21= 

FMT16= 

S8ESHEADER- 

FMT1A= 

FMT1B= 

FMT2= 

F/1T3= 

FMT4A= 

FMT48= 

FHT4C= 

FMT5= 

FMT6= 

FMT7= 

FMT8= 

FMT9= 

FMT10A= 

FMT10B= 

FMT11= 

FMT12A= 

FMT12B- 

FMT13= 

FHT14* 

FNT15= 

CRLF= 

SAY1 = 

SAY2= 

SAY3- 

SAY4= 

SAY5= 

;MLX4 


100 

40 

0 

4 

10 

20 

40 

100 

200 

400 

1000 

2000 

4000 

10000 

20000 

40000 

-100000 

UBUFF 

WBUFFOOOO 

RBUFF 

RBUFF+1000 
UBUFF+10000 
RBUFF ♦10000 


P.AAA 

P.AA8 

P.AAC 

P.AAD 

P.AAE 

P.AAF 

P.AAG 

P.AAH 

P.AAI 

P.AAJ 

P.AAK 

P.AAl 

P.AAM 

P.AAN 

P.AAO 

P.AAP 

P.AAQ 

P.AAR 

P.AAS 

P.AAT 

P.AAU 

P.AAV 

P.AAU 

P.AAX 

P.AAY 

P.AAZ 

P.A8A 

P.ABB 

P.A8C 

NL11 INTERRUPT SERVICE ROUTINE 


27-*ar-1982 19:24:42 TOI 
27-Mar-1982 19:23:44 PA 


SEQ OG 82 


CZMLBBO PERFORMANCE EXERCISER MACRO Ml 1 1 3 
LIAU ADD UNIT SECTION 


1824 

007206 

URD3= 

1825 

007212 

URD4= 

1826 

007220 

URD6= 

1827 

007230 

URD7= 

1828 

007240 

URD11= 

1829 

007246 

URD15= 

1830 

007256 

URD16= 

1831 

007264 

URD17= 

1832 

007272 

URD18= 

1833 

007300 

URD19= 

1834 

007312 

URD20= 

1835 

007322 

URD21= 

1836 

007332 

URD24= 

1837 

007336 

URD25= 

1838 

007344 

URD34= 

1839 

007354 

UR035= 

1840 

007370 

URD36= 

1841 

007400 

URD37= 

1842 

007412 

WR038® 

1843 

007416 

URD40= 

1844 

007424 

URD41= 

1845 

007430 

MLB2= 

1846 

007434 

MLB3= 

1847 

007440 

MLB4= 

1848 

007444 

MLB 5= 

1849 

007450 

MLB6= 

1850 

007454 

MLB7= 

1851 

007460 

HLB8= 

1852 

007464 

MLB9= 

1853 

007472 

MLB10= 

1854 

007500 

MLB11= 

1855 

007504 

HLB1 2 - 

1856 

007510 

ml B13* 

1857 

007514 

MLB14= 

1858 

007520 

MLB1 5= 

1859 

007524 

Ml 81 6= 

1860 

007530 

MLB 17= 

1861 

007534 

MLB18= 

1862 

007542 

MLB 19= 

1863 

007550 

MLB20= 


007554 

MLB21= 


007560 

ML322= 

. • ■ » wfiS 

007564 

ML823= 


007570 

HLB24= 

.MUsi 

007574 

RTNO= 

1869 

007626 

RTN1 = 

1870 

007634 

RTN2= 

1871 

007642 

RTN3= 

1872 

007650 

RTN4= 

1873 

00 7 656 

RTN5= 

1874 

007664 

RTN5A= 

1875 


;HLX4 

1876 


• 

1877 



1878 

007672 

RTN58= 

1879 

007700 

RTN5C= 


007706 

RTN5D= 


E 7 
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P.ABE 

P.A8F 

P.ABG 

P.ABH 

P.A8I 

P.ABJ 

P.ABK 

P.ABL 

P.ABM 

P.ABN 

P.ABO 

P.ABP 

P.ABO 

P.ASR 

P.ABS 

P.ABT 

P.ABU 

P.ABV 

P.ABU 

P.ABX 

P.ABY 

P.AB2 

P.ACA 

P.ACB 

P.ACC 

P.ACD 

P.ACE 

P.ACF 

P.ACG 

P.ACH 

P.ACI 

P.ACJ 

P.ACK 

P.ACI 

P.ACH 

P.ACN 

P.ACO 

P.ACP 

P.ACO 

P.ACR 

P.ACS 

P.ACT 

P.ACU 

P.ACV 

P.ACU 

P.ACX 

P.ACY 

P.ACZ 

P.ADA 

P.ADB 

P.ADC 

Hill INTERRUPT SERVICE ROUTINE 

P.ADO 

P.ADE 

P.AOF 


27- Har-1982 19:24:42 
27-Mar-1982 19:23:44 


TOPS 

PA:< 


12MLB80 PEReORAANCE EXERCISER 
LSAU ado unit section 


1881 

1882 

1883 

1884 

1885 

1886 

1887 

1888 

1889 

1890 

1891 

1892 

1893 

1894 

1895 

1896 

1897 

1898 

1899 

1900 

1901 

1902 

1903 

1904 

1905 

1906 

1907 

1908 

1909 

1910 

1911 

1912 

1913 

1914 

1915 

1916 

1917 

1918 

1919 

1920 

1921 

1922 

1926 034544 

1927 034544 

1928 034552 

1929 

1930 

1931 


MACRO A1113 29-MAR-8 2 13:41 
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007714 

PHR1 = 

P.ADG 

007730 

PHR2= 

P.ADH 

007746 

PHR3= 

P.ADI 

007770 

PHR4= 

P.ADJ 

010004 

PHR5= 

P.ADK 

010026 

PH R6= 

P.ADL 

010050 

PHR7= 

P.ADA 

010066 

PHR8= 

P.ADN 

010100 

PHR9= 

P.ADO 

010120 

PHR1 0= 

P.ADP 

010140 

PHR1 1= 

P.ADQ 

010202 

PHR12= 

P.ADR 

010240 

PHR13 S 

P.ADS 

010266 

PHR14= 

P.ADT 

010304 

PHR15= 

P.ADU 

010322 

PHR16- 

P.ADV 

010342 

PHR17= 

P.ADW 

010366 

PHR18= 

P.ADX 

010410 

PHR19= 

P.ADY 

010430 

PHR20= 

P.AD2 

010444 

TRTOO= 

P.AEA 

010446 

TRT01= 

P.AEB 

010450 

TRT10= 

P.AEC 

010454 

TRT11= 

P.AED 

010460 

CAUSE 1= 

P.AEE 

010502 

CAUSE2= 

P.AEF 

010526 

CAUSE 3= 

P.AEG 

010602 

CAUSE4* 

P.AEH 

010656 

CAUSE5= 

P.AEI 

010710 

010734 

010756 

CAUSE6- 

CAUSE7= 

CAUSE 8= 

P.AEJ 

P.AEK 

P.AEL 

011002 

MSGO- 

P.AEM 

011070 

ASG1= 

P.AEN 

011120 

HSG2= 

P.AEO 

011166 

MSG3= 

P.AEP 

011202 

HSG4= 

MSG5= 

P.AEO 

011216 

P.AER 


1934 

1939 

1940 

1941 ;NLX4 


SEO 0083 


012767 

000002 


.S8TTL SERVICE NL11 INTERRUPT SERVICE ROUTINE 
SERVICE * * 

000001 177564 'NOV fIJ.AR.OONE 

RTI 

*NLX4 

; RL11 INTERRUPT SERVICE ROUTINE 

; Routine Size: 4 words 

; Maximum stack depth per Invocation: 0 words 


27-Rar-1982 19:24:42 
27-Nar-1982 19:23:44 


ONCE-ONIT CODE 


27-Mar- 1982 19:24:42 
27-Mar-1982 19:23:44 


TOPS-20 Bliss-16 V2(212) 
PA:<NEALE>ALX4.BLI .5 (5) 


Isbttl ’ONCE-ONLY CODE* 


i 
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1945 

1946 

1947 

1948 

1949 

1950 

1951 

1952 

1953 

1954 

1955 

1956 

1957 

1958 

1959 

1960 

1961 

1962 

1963 

1964 

1965 

1966 

1967 

1968 

1969 

1970 

1971 

1972 

1973 

1974 

1975 

1976 

1977 

1978 

1979 

1980 

1981 

1982 

1983 

1984 

1985 

1986 

1987 

1988 

1989 

1990 

1991 

1992 

1993 

1994 

1995 

1996 

1997 

1998 

1999 


2349 routine CLRTBLS : novalue = 
Begin 


!* 1 * 


ROUTINE: 
PURPOSE : 


CLRTBLS 


THIS ROUTINE IS CALLED BY THE INITIALIZATION CODE WHEN 
A ’START* OR 'RESTART* COMMAND HAS BEEN USED TO BEGIN 
THE PROGRAM. THE PURPOSES OF THE ROUTINE ARE: 

(1) TO INITIALIZE STATISTICS TABLES 

(2) TO SET ALL DRIVE AND ARRAY STATUS LOCATIONS TO ACTIVE 
NOTE: EVEN IF A UNIT WAS DROPPED DURING A PREVIOUS 

RUN, THE START OR RESTART COMMAND GUARANTEES 
THAf THE DRIVE WILL ONCE AGAIN BE TESTABLE. 

(3) TO ENABLE THE RUNNING OF ALL TEST OPTIONS IF THE 
OPERATOR WANTED THEM ALL TO RUN, 


2370 !♦ 

2371 'THIS IS THE CODE FOR PURPOSE 1: 
■>xn i- 


incr LUN from 0 to (.LtUNIT - 1> do 
begin 


incr ARRAY from 0 to 15 do 
begin 

SOFTS C.LUN. .ARRAY. 0, 16. 03 » 
HARDS C.LUN. .ARRAY. 0. 16. 03 = 
TRIES C.LUN. -ARRAY. 0. 16. 03 = 


end; 

SBE$ COUNT = 0; 

eop Count = 0; 

NUM DRIVES = 0; 

RETRYING = INACTIVE; 

WR.COUNT = 0; 
m THOUSANDS = 0; 

WR.MILLIONS = 0; 

RDlCOUNT = 0; 

KD THOUSANDS = 0; 

RDlMILUONS = 0; 

WC.COUNT = 0; 

WC. THOUSANDS = 0; 

WC MILLIONS = 0; 

2399 !♦ 

ONCE-ONLY CODE 

2400 .'THIS IS THE CODE FOR PURPOSE 2: 


! VER CZML8B ADDED CLEARING THIS VARIABLE 


27-Mar-1982 19:24:42 
27-Mar-1982 19:23:44 


TOPS-20 Bliss-16 V2C212) 
PA:<NEALE>MLX4.BLl .5 (5) 


CZHLBBO PERFORMANCE EXERCISER MACRO Ml 1 1 3 
SERVICE Mill INTERRUPT SERVICE ROUTINE 


H 7 
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2002 

2003 

2004 

2005 

2006 

2007 

2008 

2009 

2010 
2011 
2012 

2013 

2014 

2015 

2016 

2017 

2018 

2019 

2020 
2021 
2022 

2023 

2024 

2025 

2026 

2027 

2028 

2029 

2030 

2031 

2032 

2033 

2034 

2035 

2036 

2037 

2038 

2039 

2040 

2041 

2042 

2043 

2044 

2045 

2046 

2047 

2048 

2049 

2050 


2403 

2404 

2405 

2406 

2407 

2408 

2409 

2410 

2411 

2412 

2413 

2414 

2415 

2416 

2417 

2418 

2419 

2420 

2421 

2422 

2423 

2424 

2425 

2426 

2427 

2428 

2429 

2430 

2431 

2432 

2433 

2434 

2435 

2436 

2437 

2438 

2439 

2440 

2441 

2442 

2443 

2444 

2445 

2446 

2447 

2448 

2449 

2450 

2451 


Incr LUN from 0 to (.LSUNIT - 1) do 
begin 

LSLUN = .LUN; 


.LIU 

low sect c.lun: = 


WWW Wfcfc « k 

DRIVE.STATUS C 


3 = Q; 

.LUND = 


ACTIVE; 


DROPT’DRIVES C.LUN] = INACTIVE; 

WHY.OROPT C.LUNJ = 0; 

end; 


!* 2 * 


! * 2 * 




! THIS IS THE CODE FOR PURPOSE 3: 


I _ 


if .DROPNE eql 0 
then 

begin 
DR0P1 = 0; 
DR0P2 = 0; 
DR0P3 = 0; 
DR0P4 = 0; 
DROPS = 0; 
end; 


!* 3 * 


! * 3 * 


VER CZNL88 ADDED CLEARING OF THIS STRUCTURE 

The single bit error log table stores all 
detected sbe's detected during the run time 
of the exerciser. In this table is stored 
the sbe's: unit #, board 9 . bank #, bit 9 
and a count of how many times this sbe has 
reoccured. 

This code initializes this structure to zeroes 
before starting execution of the exerciser. 


Incr index from 0 to 127 do 
begin 


begin 

SBt LOG C. index. WRDS.03 * ZERO; 
S8E”L0G [.index. WRDSllJ = ZERO; 
end; 


! Clear the single bit error log table 

! Clear word zero 
! Clear word one 


VER CZNL8B ADDED CLEARING OF THIS STRUCTURE 

The prom maintanence program is called out 
to be run on a particular array module when 
that array module has collected 10 unique 


SEQ 0085 













J 7 
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CLRT8LS ONCE-ONLY CODE 

2108 ;MLX4 

2109 ; ONCE-ONLY CODE 

2110 


2111 034700 

005067 

177416 


CLR 

RD. COUNT 

2112 034704 

005067 

177414 


CLR 

RD. THOUSANDS 

2113 034710 

005067 

177412 


CLR 

RD. MILLIONS 

2114 034714 

005067 

177410 


CLR 

UC. COUNT 

2115 034720 

005067 

177406 


CLR 

UC. THOUSANDS 

2116 034724 

005067 

177404 


CLR 

UC. MILLIONS 

2117 034730 

005002 



CLR 

R2 

2118 034732 

000445 



BR 

5$ 

2119 034734 

010267 

145134 

4S: 

MOV 

R2.LSLUN 

2120 034740 

010201 



MOV 

R2.R1 

2121 034742 

006301 



ASL 

R1 

2122 034744 

005061 

034460 


CLR 

LOU. SECT (R1 ) 

2123 034750 

010201 



MOV 

R2.R1 

2124 034752 

006201 



ASR 

R1 

2125 034754 

006201 



ASR 

R1 

2126 034756 

006201 



ASR 

R1 

2127 034760 

010146 



MOV 

R1,-(SP) 

2128 034762 

062716 

034442 


ADD 

#DRIVE. STATUS, <SP) 

2129 034766 

010246 



MOV 

R2,-(SP) 

#177770.(SP) 

#1,-(SP> 

2130 034770 

042716 

177770 


B1C 

2131 034774 

012746 

000001 


MOV 

2132 035000 

011646 



MOV 

(SP),-(SP) 

2133 035002 

004767 

147606 


JSR 

PC,BLSPU2 

2134 035006 

010116 



MOV 

RI.(SP) 

2135 035010 

062716 

034444 


ADD 

#DROPT.DRIVES,(SP) 

2136 035014 

010246 



MOV 

R2.-CSP) 

#177770,(SP) 

2137 035016 

042716 

177770 


BIC 

2138 035022 

012746 

000001 


MOV 

#1,-(SP) 

2139 035026 

005046 



CLR 

-<SP> 

2140 035030 

004767 

147560 


JSR 

PC,&lSPU2 

2141 035034 

105062 

034446 


CLRB 

UHY.DROPT (R2) 

2142 035040 

062706 

000016 


ADD 

#16.SP 

2143 035044 

005202 



INC 

R2 

2144 035046 

020204 


5$: 

CMP 

R2,R4 

2145 035050 

002731 



BLT 

4$ 

2146 035052 

005767 

145156 


TST 

DROPNE 

2147 035056 

001012 



BNC 

6$ 

2148 035060 

005067 

145152 


CIR 

DR0P1 

2149 035064 

005067 

145150 


CLR 

DR0P2 

2150 035070 

005067 

145146 


CLR 

DROP* 

2151 035074 

005067 

145144 


CLR 

DR0P4 

2152 035100 

005067 

145144 


CLR 

DR0P5 

2153 035104 

005003 


61: 

CLR 

R3 

2154 035106 

010302 


7$: 

MOV 

R3,R2 

2155 035110 

006302 



ASL 

R2 

2156 035112 

006302 



ASL 

R2 

2157 035114 

005062 

011264 


CLR 

S8E.L0G(R2) 

2158 035120 

005062 

011266 


CLR 

SBE.L0G+2CR2) 

2159 035124 

005203 



INC 

R3 

2160 035126 

020327 

000177 


CMP 

R3.*1 77 

2161 035132 

003765 



BLE 

7* 

2162 035134 

005003 



CLR 

R3 


sea 0087 



27-Mar-1982 
27-Mar- 1982 

19:24:42 

19:23:44 

TOPS 

PA : < 

LUN 



2393 

2394 

2395 

2396 

2397 

2398 
2403 

LUN,* 

LUN,* 



2405 

2406 

; LUN,* 



2407 


; LUN,* 

2408 

; LUN, * 


; * (LUN) 

2409 

a 

0 

2404 

; LUN 

2403 

; LUN,* 

9 

2416 


2419 


2420 


2421 


2422 


2423 

; INDEX 

2440 

; INDEX,* 

2442 


9 


2443 

• 

9 

INDEX 

2440 

9 

INDEX.* 


• 

UNIT.SEL 

2460 


l 
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SEQ 0088 


2164 

2165 

2166 

2167 035136 

2168 035140 

2169 035142 

2170 035144 

2171 035146 

2172 035150 

2173 035152 

2174 035154 

2175 035156 

2176 035160 

2177 035164 

2178 035166 

2179 035172 

2180 035174 

2181 035176 

2182 035202 

2183 035204 

2184 

2185 

2186 

2191 

2192 


;MIX4 


010300 

006300 

006300 

006300 

006300 

005002 

010001 

060201 

0C5301 

005061 012264 

005202 

020227 000017 

003767 

005203 

020327 000007 

003755 

000207 


000007 


ONCE-ONLY CODE 

R3.R0 

RO 

RO 

RO 

RO 

R2 

R0,R1 

R2.R1 

R1 

PM.SBE.CNT(RI) 

R2 

R2,#17 

9$ 

R3 

R3,#7 

8 $ 

PC 


27-Mar-1982 19:24:42 
27-Mar-1982 19:23:44 


; UNIT.SEL.* 


ARRAY. SEL 
ARRAY. SEL,* 


; ARRAY. SEL 
; ARRAY. SEL.* 

; UNIT.SEL 
; UNIT.SEL,* 


Routine Si«e: 141 words 

Maximum stack depth per invocation: 12 words 


CZMLB80 PERFORMANCE EXERCISER 
CLRTBLS ONCE -ONLY CODE 


MACRO Ml 113 29-MAR *82 13:41 


SEQ 0089 


2194 ;MLX4 

2195 ; 

2196 

2197 ; 

2198 ; 

2199 ; 

2200 ; 

2201 ; 

2202 ; 

2203 ; 

2204 ; 

2205 ; 

2206 ; 

2207 ; 

2208 ; 

2209 ; 

2210 ; 

2211 ; 

2212 ; 

2213 ; 

2214 ; 

2215 ; 

2216 ; 

2217 ; 

2218 ; 

2219 ; 

2220 ; 

2221 ; 

2222 ; 

2223 ; 

2224 ; 

2225 ; 

2226 ; 

2227 ; 

2228 ; 

2229 ; 

2230 ; 

2231 ; 

2232 ; 

2233 ; 

2234 ; 

2235 ; 

2236 ; 

2237 ; 

2238 ; 

2239 ; 

2240 ; 

2241 ; 

2242 ; 

2243 ; 

2244 ; 

2245 ; 

2246 ; 

2247 ; 

2248 ; 


2467 

2468 

2469 

2470 

2471 

2472 

2473 

2474 

2475 

2476 

2477 

2478 

2479 

2480 

2481 

2482 

2483 

2484 

2485 

2486 

2487 
2468 

2489 

2490 

2491 

2492 

2493 

2494 

2495 

2496 

2497 

2498 

2499 

2500 

2501 

2502 

2503 

2504 

2505 

2506 

2507 

2508 

2509 

2510 

2511 

2512 

2513 

2514 

2515 

2516 

2517 

2518 


ONCE -ONLY CODE 

routine INIT.ADORESSES (PLOO 
begin 


novalue 5 


27-Mar-1982 19:24:42 
27-Mar-1982 19:23:44 


!• 1 * 


TOPS-20 Bliss-16 V21212) 
PA: <NEALE>MLX4.BLI .5 <6> 


ROUTINE: INI T.ADDRESSES (PLOC) 

PURPOSE: THIS ROUTINE IS CALLED ONLY ONCE DURING THE INITIALIZATION 

CODE. EVEN IF THERE IS MORE THAN ONE DRIVE PRESENT. THE 
PURPOSES OF THE ROUTINE ARE: 

(1) TO OBTAIN HARDWARE P-TABLE INFORMATION FROM 
MAIN MEMORY WHICH PERTAINS TO ALL DRIVES. 

(2) TO SET UP THE ADDRESSES FOR THE 22 ML-11 REGISTERS. 

(3) TO SET UP THE INTERRUPT SERVICE ROUTINE AT THE 
CORRECT PRIORITY. AND LOWER THE CPU PRIORITY TO 
ALLOW INTERRUPTS TO OCCUR. 

ARGUMENT: PLOC = THE POINTER TO THE LOCATION IN MAIN MEMORY WHERE 

THE HARDWARE P-TABLE IS TO BE FOUND. 


local 

TEMP. 

PRIORITY. 

OFFSET; 


! THIS IS THE CODE FOR PURPOSE 1: 


BASE ADDR = .(.PLOC ♦ 0); 
VEC = .(.PLOC ♦ 2); 

BR LEVEL = .(.PLOC ♦ 4); 
PRIORITY = .BR.LEVEL‘5; 

if .ECCDIS 
then 

TEMP = WRD37 

else 

TEMP * WRD36; 


! ECC IS DISABLED 

* ECC IS ENABLED (NORMAL OPERATION) 


PRINTB (CRLF) • 

PRINTB (SAY5/WRD34, WRD40, WRD38, .TEMP. WRD41); 
! ’RUNNING WITH ECC ENABLED/DISABLED AND' 


if .REFRESH 
then 

TEMP = WRD36 

else 

TEMP = WRD37; 


.'REFRESH MARGINING IS ENABLED 

{REFRESH MARGINING IS DISABLED (NORMAL OPERATION) 


i 
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CLRTBLS ONCE-ONLY CJDE 






SEQ 0090 

2250 ;MLX4 





27-Mar-1982 

19:24:42 TOPS-20 Bliss-16 V2(212) 


2251 ; 


ONCE-ONLY CODE 


27-Mar-1982 

1 9:23:44 PA:<NEALE>MLX4.BLI .5 (6) 


2252 








2253 ; 

2519 







2254 ; 

2520 

PRINTS (SAY3. WRD40 . PHR3, 

.TEMP); 




2255 ; 

2521 

! 'WITH REFRESH MARGINING ENABLED/DI SABLED' 




2256 ; 

2522 

PRINTS (CRLF); 





2257 ; 

2523 







2258 ; 

2524 

!♦ 






2259 ; 

2525 

.'THIS IS THE CODE FOR PURPOSE 2: 




2260 ; 

2526 

1 • 






2261 ; 

2527 







2262 ; 

2528 

OFFSET = 0; 





2263 ; 

2529 







2264 ; 

2530 

incr COUNT from 0 to (NlWREGS - 1) do 




2265 ; 

2531 


begin 


j* 2 * 



2266 ; 

2532 


ML REG C. COUNT J = .BASE.ADDR ♦ .OFFSET; 




2267 ; 

2533 


OFFSET = .OFFSET ♦ 2; 





2268 ; 

2534 


end; 


! * 2 * 



2269 ; 

2535 







2270 ; 

2536 







2271 ; 

2537 

! THIS IS THE CODE FOR PURPOSE 3: 




2272 ; 

2538 

i _ 






2273 ; 

2539 







2274 ; 

2540 

SETPRI (PRIOO); 





2275 ; 

2541 

SETVEC (.VEC, SERVICE, .PRIORITY); 




2276 ; 

2542 

return; 





2277 ; 

OOfli 

2543 

end 



!* 1 * 



CCO 1 

2282 



.S8TTL 

INI T. ADDRESSES 

ONCE-ONLY CODE 


2286 035206 



IN IT. ADDRESSES 

l 




2287 035206 

004167 

150102 

JSR 

R1.SSAVE4 


0 

2467 

2288 0352 i c 

016602 

000014 

MOV 

14(SP),R2 


; PLOC,* 

2499 

2289 035216 

011267 

175464 

MOV 

CR2) -BASE.ADDR 




2290 035222 

016267 

000002 

175460 MOV 

2(R 25, VEC 


0 

2500 

2291 035230 

016267 

000004 

175454 MOV 

4(R2),BR.LEVEL 


* 

• 

2501 

2292 035236 

016746 

175450 

MOV 

8R. LEVEL. -<SP> 


0 

2502 

2293 035242 

012746 

000005 

MOV 

#5,-(SP) 




2294 035246 

004767 

147742 

JSR 

PC.BLfSHF 




2295 035252 

010003 


MOV 

R0.R3 


; *, PRIORITY 


2296 035254 

032767 

000001 

144772 BIT 

#1 ,ECCDIS 


• 

2504 

2297 035262 

001403 


BEQ 

1$ 




2298 035264 

012701 

007400 

MOV 

#WRD37,R1 


*,TEMP 

2506 

2299 035270 

000402 


BR 

2$ 


0 

2504 

2300 035272 

012701 

007370 

1$: MOV 

#WRD36,R1 


: *,TEMP 

2508 

2301 035276 

012716 

007066 

2S: MOV 

#CRLF,(SP) 


• 

2510 

2302 035302 

012746 

000001 

MOV 

fl.-(SP) 




2303 035306 

010600 


MOV 

SP,R 0 


; SP,* 


2304 035310 

104414 


TRAP 

14 
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SEQ 0091 


2306 

2307 

2308 

2309 035312 

2310 035316 

2311 035320 

2312 035324 

2313 035330 

2314 035334 

2315 035340 

2316 035344 

2317 035346 

2318 035350 

2319 035356 

2320 035360 

2321 035364 

2322 035366 

2323 035372 

2324 035374 

2325 035400 

2326 035404 

2327 035410 

2328 035414 

2329 035416 

2330 035420 

2331 035424 

2332 035430 

2333 035432 

2334 035434 

2335 035436 

2336 035440 

2337 035442 

2338 035444 

2339 035450 

2340 035452 

2341 035456 

2342 035462 


;MIX4 


012716 

010146 

012746 

012746 

012746 

012746 

012746 

010600 

104414 

032767 

001403 

012701 

000402 

012701 

010116 

012746 

012746 

012746 

012746 

010600 

104414 

012716 

012746 

010600 

104414 

005002 

005000 

010001 

006301 

016704 

060204 

010461 

062702 

005200 

020027 

003763 

005000 

104441 

010316 

012746 

016746 

012746 

104437 


007424 

007412 

007416 

007344 

007152 

000006 


000001 144674 

007370 

007400 

007746 

007416 

007112 

000004 


007066 

000001 


175236 

034346 

000002 

000025 


034544 

175200 


000042 


MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

BIT 

BEQ 

MOV 

BR 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

MOV 

MOV 

MOV 

TRAP 

CLR 

CLR 

MOV 

ASL 

MOV 

ADD 

MOV 

ADD 

INC 

CMP 

81E 

flfc 


MOV 

MOV 

TRAP 

ADD 

RTS 


ONCE-ONLY CODE 

#WRD41 ,(SP) 

RI.-(SP) 

#WRD38,-(SP) 

#WRD40,-(SP> 

#URD34,-<SP> 

#SAY5,-(SP> 

#6,-<SP> 

SP.RO 

14 

#1 .REFRESH 
3* 

#WRD36.R1 

4$ 

«WRD37,R1 

RI.(SP) 

#PHR3.-<SP) 

#WRD40.-(SP) 

#SAY3.-(SP) 

#4.-(SP> 

SP.RO 

14 

fCRLF.CSP) 

#1.-<SP> 

SP.RO 
14 
R 2 
RO 

R0.R1 

R1 

BASE.ADDR.R4 

R2.R4 

R4.ML.REGCR1) 

D2.R2 

RO 

8§,#25 

5S 


R3.($P) 

IflRVlCE.-CSP) 

vIc.-ISP) 

#|,-(SP) 

#42, SP 
PC 


27-Mar-1982 19:24:42 
27-Mar-1982 19:23:44 


; TEMP,* 


; SP,* 


; *,TEMP 

; *,TEMP 
; TEMP.* 


; SP,* 


; SP.* 

; OFFSET 
; COUNT 
; COUNT.* 


; OFFSET,* 

; *, OFFSET 
; COUNT 
; COUNT.* 


; PRIORITY.* 


2516 

2514 

2518 

2520 


2533 

2530 


; Routine Sf*t: 103 uords, . 

; MaxfmjR stack depth per Invocation: 22 eords 
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SEQ 0092 


2362 

2363 

2364 

2365 

2366 

2367 

2368 

2369 

2370 

2371 

2372 

2373 

2374 

2375 

2376 

2377 

2378 

2379 

2380 

2381 

2382 

2383 

2384 

2385 

2386 

2387 

2388 

2389 

2390 

2391 

2392 

2393 

2394 

2395 

2396 

2397 

2398 

2399 

2400 

2401 

2405 

2406 

2410 

2411 

2412 

2413 

2414 

2415 

2416 

2417 

2418 

2419 

2420 

2421 

2422 

2423 

2424 


>7-Mar-1982 19:24:42 
>7-Mar-1982 19:23:44 


035524 

035530 

035534 

035536 

035540 

035542 

035544 


035546 

035552 

035556 

035560 

035564 


2544 

2545 

2546 
25*7 

2548 

2549 

2550 

2551 

2552 

2553 

2554 

2555 

2556 

2557 

2558 

2559 

2560 

2561 

2562 

2563 

2564 

2565 

2566 

2567 

2568 

2569 

2570 

2571 

2572 

2573 

2574 

2575 

2576 

2577 

2578 

2579 

2580 


004167 

017705 

006205 

006205 

006205 

006205 

000305 


042705 

017704 

000304 

042704 

117701 


DRIVE IDENTIFICATION ROUTINES 

Xsbttl ’DRIVE IDENTIFICATION ROUTINES’ 
routine SAYUHO (LUN) : no value = 
begin 


ROUTINE: SAYWHO(LUN) 

PURPOSE: TO PRINT OUT AN IDENTIFICATION LINE WHICH INCLUDES: 

LOGICAL UNIT: X DRIVE: Y SERIAL 0 : ZZZZ 

THE UNIT’S SERIAL NUMBER IN EITHER BCD OR OCTAL FORMAT. 
BCD WILL BE PRINTED AS LONG AS THE DIGITS ARE ALL VALID. 

local 

D3. 

D2, 

PI. 

DO; 

D3 = .SN3; 

D2 = .SN2; 

D1 = .SN1; 

DO = .SNO; 

PRINTS (FMT4A, PHR 7. .LUN. URDU , .DRIVE); 

."LOGICAL UNIT: X DRIVE: Y* 

if C ( .03 gtr 9) or (.02 gtr 9) or (.Dl gtr 9) or (.DO gtr 9)) 
then 

PRINTS (FMT48, PHR8. .MLSN) 

! ' SERIAL 0 : ZZZfZZ* 

else 

PRINTS (FMT4C. PHR8, .D3. .02. .01. .DO); 

!’ SERIAL 0 : DDDD* 
return; 


TOPS-20 Bliss-16 V2(212) 
PA:<N£ALE>MLX4.BLI .5 (7) 


147604 

176642 


SAYUHO: JSR 
MOV 
ASR 
ASR 
ASR 
ASR 
SWAB 


.S8TTL SAYUHO DRIVE IDENTIFICATION ROUTINES 


;MLX4 


177760 

176620 

177760 

176606 


BIC 

MOV 

SWAB 

BIC 

M0V8 


R1 .SSAVE5 

BML.REG+30.R5 

R5 

R5 

R5 

R5 

R5 

DRIVE IDENTIFICATION ROUTINES 

#1 77760, R5 

iftL.REG+30,R4 

R4 

#1 77760, R4 
SNL.REG+30.R1 


27-Mar-1982 19:24:42 
27-Mar-1982 19:23:44 
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SAYWHO DRIVE IDENTIFICATION ROUTINES 


SEQ 0093 


2425 

2426 

2427 

2428 

2429 

2430 

2431 

2432 

2433 

2434 

2435 

2436 

2437 

2438 

2439 

2440 

2441 

2442 

2443 

2444 

2445 

2446 

2447 

2448 

2449 

2450 

2451 

2452 

2453 

2454 

2455 

2456 

2457 

2458 

2459 

2460 

2461 

2462 

2463 

2464 

2465 

2466 

2467 

2468 

2469 

2470 

2471 

2472 

2473 

2474 

2475 

2480 

2481 

2482 

2483 

2484 

2485 


035570 

035572 

035574 

035576 

035600 

035604 

035610 

035614 

035620 

035622 

035626 

035632 

035636 

035642 

035646 

035652 

035656 

035660 

035662 

035666 

035670 

035674 

035676 

035702 

035704 

035710 

035712 

035716 

035722 

035726 

035732 

035734 

035736 

035740 

035742 

035744 

035746 

035750 

035754 

035760 

035764 

035766 

035770 

035774 

036000 


006201 

006201 

006201 

006201 

042701 

117702 

042702 

016603 

006303 

016303 

016346 

012746 

016646 

012746 

012746 

012746 

010600 

104414 

020527 

003011 

020427 

003006 

020127 

003003 

020227 

003413 

017746 

012746 

012746 

012746 

010600 

104414 

000416 

010246 

010146 

010446 

010546 

012746 

012746 

012746 

010600 

104414 

062706 

062706 

000207 


;NLX4 


2581 




ASR 

R1 

D1 



ASR 

R1 

D1 



ASR 

R1 

D1 



ASR 

R1 

D1 

177760 


BIC 

P177760.R1 

*.D1 

176566 

1 77760 


wove 

BIC 

aML.REG*30,R2 
*1 77760, R2 

*.D0 

«,D0 

000016 


NOV 

16<SP),R3 

LUN.* 


ASL 

R3 


034422 


NOV 

PTA8LE.ADDR(R3).R3 

6(R3).-(SP) 

#URD11,-($P> 




NOV 


007240 


NOV 


000022 


NOV 

22(SP) ,-($P) ; LUN,* 

010050 


NOV 

*PHR7,-(SP> 


006216 


NOV 

#FMT4A,-(SP> 


000005 


NOV 

#5,-<SP> 

SP,* 


NOV 

SP,R0 



TRAP 

14 

D3,* 

000011 


CMP 

R5.#11 


BGT 

IS 

D2,* 

000011 


CMP 

R4,#11 


BGT 

IS 

01,* 

000011 


CNP 

Rl.fll 


BGT 

IS 

DO,* 

000011 


CNP 

R2,#11 


BLE 

2S 


176460 

IS: 

NOV 

9NL.REG*30.-(SP) 

#PHR8.-<$P> 

#FNT4B.-(SP) 

#3,-(SP) 


010066 


NOV 


006252 


NOV 


000003 


NOV 

; SP.* 


NOV 

SP.RO 



TRAP 

14 




BR 

3S 

• 

• 


2$: 

NOV 

R 2.-ISP) 

; DO.* 



NOV 

RI.-(SP) 

; 01,* 



NOV 

R4.-CSP) 

; 02.* 



NOV 

R5,-(SP) 

; 03.* 

010066 


NOV 

#PNR8,-<SP> 


006270 


NOV 

#FNT4C,-(SP> 

#6.-<SP) 


000006 


NOV 

; SP,* 


NOV 

SP.RO 



TRAP 

14 


000006 


ADD 

&%• 


000024 

3S: 

ADD 

• 

• 



RTS 

PC 



; Routine Size: 87 words 
;MLX4 

; DRIVE IDENTIFICATION ROUTINES 

; Maximum stick depth per invocation: 19 words 


27-Nar-1982 19:24:42 
27-Nar-1982 19:23:44 


27-Nar-1982 19:24:42 T0PS-20 Bliss-16 V2C212) 

DRIVE IDENTIFICATION ROUTINES 27-Ner-1982 19:23:44 PA:<NEALE>NLX4.BLI .5 (8) 

routine CONFIG (LUN) : novalue = 


2567 

2568 


2571 


2573 


2571 

2576 


2545 

TOPS 

PA:< 




D 8 


1 CZMLBBO 

PERFORMANCE EXERCISER MACRO Ml 11 3 29-MAR-82 13:41 PA6E 90-2 


SAYWHO DRIVE IDENTIFICATION ROUTINES 

SEQ 0094 

2486 

2582 

begin 1*1* 


2487 

2583 


2488 

2584 

♦♦ 


2489 

2490 

2491 

2585 

2586 

2587 

ROUTINE: CONFIG (LUN) 


PURPOSE: CONFIG IS CALLED 8Y THE INITIALIZATION CODE FOP EACH DRIVE 


2492 

2493 

2494 

2495 

2588 

2589 

2590 

2591 

WHICH SUCCESSFULLY RESPONDS TO A REQUEST FOR ITS HARDWARE 

P- TABLE. THE PURPOSES OF THIS ROUTINE ARE: 


(1) TO CHECK THAT THE DRIVE IS POWERED UP. 


2496 

2592 



2497 

2593 

(2) TO VERIFY THAT THE DRIVE IS AN ML11 UNIT. 


2498 

2594 



2499 

2595 

(3) TO VERIFY THAT THE OPERATOR DEFINED TEST RANGES ARE 


2500 

2501 

2502 

2596 

2597 

2598 

WITHIN THE CALCULATED SYSTEM SIZE. 


(4) TO PRINT DRIVE IDENTIFICATION INFORMATION. 


2503 

2599 

ARGUMENT: LUN = THE LOGICAL UNIT NUMBER. COUNTING FROM 0 TO 

NUMBER OF DRIVES MINUS 1. 


2504 

2600 


2505 

2601 


2506 

2602 

— 


2507 

2603 



2508 

2604 

local. 


2509 

2605 

TYPE. 


2510 

2606 

TEMP. 


2511 

2607 

TOP; 


2512 

2608 



2513 

2609 

!♦ 


2514 

2610 

.'THIS IS THE CODE FOR PURPOSE 1: 


2515 

2611 

i _ 


2516 

2612 



2517 

2613 

UNIT = .DRIVE; 


2518 

2614 



2519 

2615 

if .DPR neq 1 


2520 

2616 

then 


2521 

2617 

begin 

PRINTS (FMT4A, PHR7. .LUN. WRD11. .DRIVE); 

! 'LOGICAL UNIT: X DRIVE: V 


2522 

2618 


2523 

2619 


2524 

2620 

PRINTB CSAY2. WRD11 , WRD21 ) ; 


2525 

2621 

! 'DRIVE DROPPED' 


2526 

2622 

PRINTB (FHT2, CAUSED; 


2527 

2623 

! ' (NOT POWERED UP)' 


2528 

2624 

WHY DROPT C.LUNJ = C0DE.1; 


2529 

2625 

DODO (.LUN); 


2530 

2626 

return; 


2531 

2627 

end; 


2532 

2628 



2533 

2629 

! + 


2534 

2630 

.'THIS IS THE CODE FOR PURPOSE 2: 


2535 

2631 

i _ 


2536 

2632 


! 

i 

i 
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SEQ 0095 


2538 

2539 

2540 

2541 

2542 

2543 

2544 

2545 

2546 

2547 

2548 

2549 

2550 

2551 

2552 

2553 

2554 

2555 

2556 
255 7 

2558 

2559 

2560 

2561 

2562 

2563 

2564 

2565 

2566 

2567 

2568 

2569 

2570 

2571 

2572 

2573 

2574 

2575 

2576 

2577 

2578 

2579 

2580 

2581 

2582 

2583 

2584 

2585 

2586 

2587 

2588 

2589 

2590 

2591 

2592 


DRIVE IDENTIFICATION ROUTINES 


>7-Mar-l982 19:24:42 
>7-Mar-1982 19:23:44 


T0PS-20 Bliss-16 V2(212) 
PA:<NEALE>MLX4.BLI .5 (8) 


SAYWHO C.LUN); 
!’ LOGICAL UNIT: 
TYPE = .MLDT; 


DRIVE: Y SERIAL #: HIV 


if ((.TYPE neq ML11A) and (.TYPE neq ML11B>) 
then 

PR?NTB (SAV2. WRD11, WRD21); 

!' DRIVE DROPPED' 

PRINTS (FMT2. CAUSE2): 

! ' (NOT AN ML11 UNIT)' 

WHY DROPT C.LUN3 = C0DE.2; 

DODO (.LUN); 

return; 

end 

else 

begin 

if .ARR.TYP eql 0 
then 

begin 

TYPE = WRD6; 

TOP = 1; 
end 

else 

begin 

TYPE = WRD7; 

TOP = 4; 
end; 


• THIS IS THE CODE FOR PURPOSE 3: 

i _ 


! * 3 * 


; * 4 * 

! * 5 • 


!• 5 • 


TOP.SECT C.LUN3 = (.TOP)*(512)*(.SZ) - 1; 

if .LIMIT 
then 


! THE OPERATOR HAS CHOSEN LIMITS: 

i _ 

begin 

if .RANGE eql 0 
then 


!* 6 * 


•THE BOARD NUMBER (0-15) IS CONTAINED IN 'ONLY' 

i _ 
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F 8 
PAGE 92 


SEO 0096 


2594 

2595 

2596 

2597 

2598 

2599 

2600 
2601 
2602 

2603 

2604 

2605 

2606 

2607 

2608 

2609 

2610 
2611 
2612 

2613 

2614 

2615 

2616 

2617 

2618 

2619 

2620 
2o21 
2622 

2623 

2624 

2625 

2626 

2627 

2628 

2629 

2630 

2631 

2632 

2633 

2634 

2635 

2636 

2637 

2638 

2639 

2640 

2641 

2642 

2643 

2644 

2645 

2646 

2647 

2648 


;MLX4 


2685 

2686 

2687 

2688 

2689 

2690 

2691 

2692 

2693 

2694 

2695 

2696 

2697 

2698 

2699 

2700 

2701 

2702 

2703 

2704 

2705 

2706 

2707 

2708 

2709 

2710 

2711 

2712 

2713 

2714 

2715 

2716 

2717 

2718 

2719 

2720 

2721 

2722 

2723 

2724 

2725 

2726 

2727 

2728 

2729 

2730 

2731 

2732 

2733 

2734 

2735 

2736 


DRIVE IDENTIFICATION ROUTINES 
begin 

I VER CZMLBB CHANGED .TYPE TO .ARR.TYP 


if .ARR.TYP 
then 

! THE CHIPS ARE 64K 


27-Mar-198< 
2 7-Mar- 198* 

10 • 


19:, 

19:i 


42 

44 


TOPS-20 Bliss-16 V21212) 
PA : <NEALE>MLX4 .BLI . 5 (S' 


else 

!♦ 


begin 

LStCT 

TSECT 

end 


2048*. ONLY: 
.LSECT ♦ 2047; 


!* 7 • 
!* 7 * 


•THE CHIPS ARE 16K 

I. 


begin 
LSECT = 


w-wv. - 512*. ONLY: 
TSECT * .LSECT ♦ 111; 
end; 


!* 8 * 

!* 8 * 
«* 10 * 


end; 

if .TSECT leqa .TOP.SECT C.LUNJ 
then 

TOP.SECT C.LUNJ = .TSECT 

else 

PRINTS (SAY 2, UR011. HRD21); 

! 'DRIVE DROPPED* 

PRINTB (Pm 2, CAUSES): 

! * (OPERATOR SELECTED TEST LIMITS INCORRECTLY)* 

PRJNTB (FMT11 . PHR14, .TSECT. PHR16, .TOP SECT C.LUNJ); 
! TOP SECTOR OF XXXXXX EXCEEDS SYSTEM LIMIT OF YYYYYY* 
WHY DROPT C.LUNJ = C0DE.3; 

DODO (.LUN); 

return; 

end; 

if .LSECT leqa .TSECT 
then 

LOW.SECT C.LUNJ = .LSECT 

else 

PR?NT8 (SAY2, URDU . WRD21); 

."DRIVE DROPPED* 



CZMLBBO PERFORMANCE EXERCISER MACRO Ml 113 
SAYUHO DRIVE IDENTIFICATION ROUTINES 


29-MAR-82 13:41 PAGE 


§3 


2650 ;MIX4 

2651 ; 

2652 

2653 

2654 

2655 

2656 

2657 

2658 

2659 

2660 
2661 
2662 

2663 

2664 

2665 

2666 

2667 

2668 

2669 

2670 

2671 

2672 

2673 

2674 

2675 

2676 

2677 

2678 

2679 

2680 
2681 
2682 

2683 

2684 

2685 

2686 

2687 

2688 

2689 

2690 

2691 

2692 

2693 

2694 

2698 

2699 

2703 036002 

2704 036006 


DRIVE IDENTIFICATION ROUTINES 


>7-Mar-1982 19:24:42 
>7-Mar-1982 19:23:44 


2737 

2738 

2739 

2740 

2741 

2742 

2743 

2744 

2745 

2746 

2747 

2748 

2749 

2750 

2751 

2752 

2753 

2754 

2755 

2756 

2757 

2758 

2759 

2760 

2761 

2762 

2763 

2764 

2765 

2766 

2767 

2768 

2769 

2770 

2771 

2772 

2773 

2774 

2775 

2776 

2777 

2778 


004167 

016603 


! '^(OPERATOR SELECTE& TEST LIMITS INCORRECTLY)' 
PRINTS (FMT11 , PHR15, .LSECT, PHR14, .TSECT); 

• 'LOW SECTOR OF XXXXXX EXCEEDS TOP SECTOR OF YYVYYY' 
WHY DROPT C.LUN3 = C0DE.3; 

DODO (.LUN); 

return; 

end; 


!* 6 * 


end; 

! ♦ 

! THIS IS THE CODE FOR PURPOSE 4: 

I. 

PRINTB (FMT5, .TYPE, LOWEST, HIGHEST); 

•'ML11-X SECTORS UNDER TEST: XXXXXX TO YYYYYY 

selectone .TRT of 
set 

[03 : 

TEMP = TRTOO; 

[13 : 

TEMP * TRT01; 

C23 : 

TEMP = TRT10; 

[33 : 

TEMP - TRT11; 

tes; 

PRINTB (FMT8, .TEMP); 

! 'TRANSFER RATE: X HBYTES/SECONO* 

PRINTB (FMT4B, PMR4, .BASE .ADDR); 

• • rm xxxxxx' 


end; 

return; 

end; 


!* 3 * 


!* 1 * 


147326 

000016 


.S8TTL CONFIG DRIVE IDENTIFICATION ROUTINES 
CONFIG: JSR R1.SSAVc5 

MOV 16(SP),R3 : LUN,* 


TOPS-20 Bliss-16 V21212) 
PA : <NE ALE >MLX4 . BL 1 . 5 (8) 


SEQ 0097 


2581 

2613 
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;MLX4 


SEQ 0096 


DRIVE IDENTIFICATION ROUTINES 


7-M*r-1982 19:24:42 
7-Mar-1982 19:23:44 


2709 036012 

010304 



MOV 

R3.R4 



2710 036014 

006304 



ASL 

R4 



2711 036016 

016401 

034422 


MOV 

PTABLE .ADDR(R4) ,R1 



2712 036022 

016105 

000006 


MOV 

6(R1).R5 



2713 036026 

042705 

177770 


BIC 

#1 777*0, R5 



2714 036032 

142777 

000007 

176316 

BICB 

#7,aML.REG*10 



2715 036040 

150577 

176312 


BISS 

R5.8ML.REG*10 



2716 036044 

032777 

000400 

176306 

BIT 

#400,aML.REG+12 

• 

0 


2717 036052 

001051 



BNE 

IS 



2718 036054 

016401 

034422 


MOV 

PTABLE. ADDR<R4).R1 

• 

0 


2719 036060 

016146 

000006 


MOV 

6<R1).-(SP) 



2720 036064 

012746 

007240 


MOV 

#WRD11 ,-(SP) 



2721 036070 

010346 



MOV 

R3,-<SP> 



2722 036072 

012746 

010050 


MOV 

#PHR7,-(SP) 



2723 036076 

012746 

006216 


MOV 

#F MT4A.-CSP) 



2724 036102 

012746 

000005 


MOV 

#5,-<s£) 



2725 036106 

010600 



MOV 

SP.RO 

• 

0 

SP,* 

2726 0361 1C 

104414 



TRAP 

14 



2727 036112 

012716 

007322 


MOV 

#WRD21,(SP> 

• 

0 


2728 036116 

012746 

007240 


MOV 

#WRD11,-<SP) 



2729 036122 

012746 

007100 


MOV 

#SAY2,-(SP) 



2730 036126 

012746 

000003 


MOV 

#3,-(SP) 



2731 036132 

010600 



MOV 

SP.RO 

• 

0 

SP,* 

2732 036134 

104414 



TRAP 

14 



2733 036136 

012716 

010460 


MOV 

fCAUSEI ,(SP) 

• 

0 


2734 036142 

012746 

006160 


MOV 

#FMT2,-(SP) 



2735 036146 

012746 

000002 


MOV 

#2,-<SP> 



2736 036152 

010600 



MOV 

SP.RO 

• 

0 

SP,* 

2737 036154 

104414 



TRAP 

14 



2738 036156 

112763 

000001 

034446 

M0V8 

#1 .WHY .DROPT (R3) 

• 

0 


2739 036164 

010300 



MOV 

R3.R0 

• 

0 


2740 036166 

104451 



TRAP 

51 



2741 036170 

062706 

000026 


ADD 

#26. SP 

• 

0 


2742 036174 

000207 



RTS 

PC 

• 

0 


2743 036176 

010346 


1$: 

MOV 

R3.-CSP) 

m 

0 


2744 036200 

004767 

177320 


JSR 

PC, SAY WHO 



2745 036204 

017702 

176164 


MOV 

8ML.REGi26.R2 

• 

0 

•.TYPE 

2746 036210 

020227 

000110 


CMP 

R2,#110 

• 

• 

TYPE.* 

2747 036214 

001435 



BEO 

2$ 



2748 036216 

020227 

000111 


CMP 

R2,#111 


TYPE,* 

2749 036222 

001432 



BEO 

2 % 



2750 036224 

012746 

007322 


MOV 

#WR021.-(SP) 

• 

0 


2751 036230 

012746 

007240 


MOV 

#MR011.-(SP) 



2752 036234 

012746 

007100 


MOV 

#SAV2.-(SP) 



2753 036240 

012746 

000003 


MOV 

#3.-(SP> 



2754 036244 

010600 



MOV 

SP.RO 

• 

0 

SP,* 

2755 036246 

104414 



TRAP 

14 



2756 036250 

012716 

010502 


MOV 

#CAUSE2.(SP) 

• 

0 


2757 036254 

012746 

006160 


MOV 

#FMT2.-(SP) 



2758 036260 

012746 

000002 


MOV 

#2.-<$P> 



2759 036264 

010600 



MOV 

SP.RO 

• 

0 

SP,* 

2760 036266 

104414 



TRAP 

14 




J 
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2762 

2763 


276! 

2764 

2765 036270 

2766 036276 

2767 036300 

2768 036302 

2769 036306 

2770 036310 

2771 036316 

2772 036320 

2773 036324 

2774 036330 

2775 036332 

2776 036336 

2777 036342 

2778 036346 

2779 036350 

2780 036352 

2781 036356 

2782 036360 

2783 036362 

2784 036364 

2785 036366 

2786 036372 

2787 036374 

2788 036400 

2789 036402 

2790 036404 

2791 036406 

2792 036410 

2793 036412 

2794 036414 

2795 036422 

2796 036424 

2797 036430 

2798 036432 

2799 036440 

2800 036442 

2801 036446 

2802 036450 

2803 036452 

2804 036454 

2805 036456 

2806 036460 

2807 036464 

2808 036470 

036504 
036506 
036510 
’814 036512 

2815 036516 

2816 036522 



112763 

010300 

104451 

062706 

001005 

012702 

012701 

000404 

012702 

012701 

012705 

060405 

010146 

017701 

006201 

006201 

006201 

000301 

042701 

010146 

004767 

000300 

105000 

006300 

010001 

005301 

010115 

032767 

001575 

005767 

001037 

032777 

001417 

016700 

000300 

105000 

006300 
006300 
006300 
010067 
010067 
062767 
000414 
016700 
000300 
105(3 

m 

on ... 

010067 

062767 


000002 

000016 

002000 

007220 

000001 

007230 

000004 

034500 

176014 


177740 

146344 


000001 

143574 

002000 

143564 


143542 

143540 

003777 

143526 


143510 

143506 

000777 


;NLX4 

034446 

176054 2S: 


38: 

4$: 


143600 

175732 


143532 

5): 


143500 


N0V8 

NOV 

TRAP 

ADD 

RTS 

BIT 

BNE 

MOV 

NOV 

3R 

NOV 

NOV 

NOV 

ADD 

NOV 

NOV 

ASR 

ASR 

ASR 

SWAB 

BJC 

NOV 

JSR 

SWAB 

CLRB 

ASL 

NOV 

DEC 

NOV 

BIT 

BEO 

TST 


BIT 

BEQ 

NOV 

SWAB 

CLR8 

ASL 

ASL 

ASL 

NOV 

NOV 

ADD 

BR 

NOV 

SUA8 

CLRB 

ASL 

NOV 

NOV 

ADD 


13:41 PAGE 95 


SEQ 0099 


DRIVE IDENTIFICATION ROUTINES 

#2.WHY.DR0PT(R3> 

R3,R0 

51 

#16, SP 

#W),aNL.REG*24 

31 

#WRD6.R2 

fl.RI 

4$ 

#URD7.R2 

#4,R1 

#T0P.SECT,R5 

R4.R5 

R1,-(SP) 

9ML.REG+24.R1 

R1 

R1 

R1 

R1 

#1 77740, R1 
A1,-(SP> 

PC.BLSNUL 

RO 

RO 

RO 

R0,R1 

R1 

R1.(R5) 

fl.LINIT 

ni 

RAN6E 

68 

#2000,8NL.RE6+24 

58 

ONLY.RO 

8 

RO 

RO 

RO 

RO.LSECT 

#3>7^TSECT 

68 

ONLY.RO 
RO 
RO 
RO 

LSECT 
TSECT 
“ TSEC 


nU 

mV, LSI 

!W? 


•.TYPE 

*,TOP 

•.TYPE 

*,TOP 


TOP,* 


; LSECT,* 


; LSECT,* 


27-FUr-1982 19:24:42 
27-Nar-1982 19:23:44 


I OPS 
PA: < 


2644 

2645 


2637 

2639 

2651 


2634 

2655 

2651 

2659 

2660 
2667 


2649 


2667 


2669 

2678 

2690 

2698 


2699 


2690 

2708 


270“ 
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it* 


2818 

2819 

2820 
2821 


2828 

2829 

2830 

2831 


2841 


2851 


2861 


2871 


;MLX4 


ORIVE IDENTIFICATION ROUTINES 


036530 

026715 

143474 


6$: 

CMP 

TSECT. (R5) 

• 

0 

036534 

101003 




BHI 

7$ 


036536 

016715 

143466 



MOV 

TSECT, (R5) 

0 

036542 

000445 




BR 

8$ 

• 

0 

036544 

012746 

007322 


7S: 

MOV 

PWRD21 ,-<SP) 

• 

9 

036550 

0127*6 

007240 



MOV 

#WRD11.-(SP) 


036554 

012746 

007100 



MOV 

#SAY2,-(SP) 


036560 

012746 

000003 



MOV 

#3,-(SP) 


036564 

010600 




MOV 

SP.RO 

9 

036566 

104414 




TRAP 

14 


036570 

012716 

010526 



MOV 

#CAUSE3,(SP) 

• 

0 

036574 

012746 

006160 



MOV 

#FNT2,-(SP) 


•ravl 

012746 

000002 



MOV 

#2,-<SP) 



010600 




MOV 

SP.RO 

0 

0 

036606 

104414 




TRAP 

14 


036610 

011516 




MOV 

(R5), <SP) 

• 

0 

036612 

012746 

010322 



NOV 

#PHR16,-<SP> 


036616 

016746 

143406 



MOV 

TSECT,-(SP) 


036622 

012746 

010266 



NOV 

#PHR14.-<SP) 


036626 

012746 

006654 



MOV 

#FNT11,-<SP) 


036632 

012746 

000005 



NOV 

#5.-<SP> 


036636 

010600 




MOV 

SP.RO 

• 

0 

036640 

104414 




TRAP 

14 


036642 

112763 

000003 

034446 


M0V8 

#3,MHY.DR0PT(R3> 

• 

0 

036650 

010300 




NOV 

R3,R0 

• 

9 

036652 

104451 




TRAP 

51 


036654 

000455 




BR 

10$ 

0 

036656 

026767 

143344 

143344 

8$: 

CMP 

LSECT, TSECT 

• 

9 

036664 

101004 




BHI 

9$ 


036666 

016764 

143334 

034460 


MOV 

LSECT , LOU. SECT (R4) 

9 

036674 

000450 




BR 

11$ 

• 

9 

036676 

012746 

007322 


9$: 

MOV 

#urd21,-<sp> 

9 

036702 

012746 

007240 



MOV 

fWRDII.-(SP) 


036706 

012746 

007100 



MOV 

#SAV2--<SP> 


036712 

012746 

000003 



MOV 

#3,-(SP) 


036716 

010600 




MOV 

SP,RO 

• 

0 

036720 

104414 




TRAP 

14 


036722 

012716 

010526 



MOV 

#CAUSE3«(SP) 

• 

• 

036726 

012746 

006160 



MOV 

#FMT2,-(SP) 


036732 

012746 

000002 



MOV 

#2,-(iP) 


036736 

010600 




MOV 

SP,RO 

• 

0 

036740 

104414 




TRAP 

14 


036742 

016716 

143262 



MOV 

TSECT. (SP) 

• 

0 

036746 

012746 

010266 



MOV 

#PMR14,-(SP) 


036752 

016746 

143250 



MOV 

LSECT.-(SP) 


036756 

012746 

010304 



MOV 

fPHR15,-(SP) 


036762 

012746 

006654 



MOV 

#FMT11,-(SP) 


036766 

012746 

000005 



MOV 

#5,-(SP) 


036772 

010600 




MOV 

SP.RO 

m 

9 

036774 

104414 




TRAP 

14 


036776 

112763 

000003 

034446 


NOVB 

#3.WHY.DR0PT(R3) 

m 

9 

037004 

010300 




MOV 

R3.R0 

• 

• 


; $P.* 


; $P.* 


; $P.* 


; SP.* 


; SP,* 


; SP.* 


SEQ 0100 

27-M*r-1982 19:24:42 TOPS 
27- Mjr-1982 19:23:44 PA:< 


2714 

2716 

2714 

2719 


2721 

2723 


2725 

2726 

2714 

2730 

2732 

2730 

2735 


2737 

2739 
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SEO 0101 


2874 

2875 

2876 

2877 

2878 

2879 

2880 
2881 
2882 

2883 

2884 

2885 

2886 

2887 

2888 

2889 

2890 

2891 

2892 

2893 

2894 

2895 

2896 

2897 

2898 

2899 

2900 

2901 

2902 

2903 

2904 

2905 

2906 

2907 

2908 

2909 

2910 

2911 

2912 

2913 

2914 

2915 

2916 

2917 

2918 

2919 

2924 

2925 


;MLX4 


DRIVE IDENTIFICATION ROUTINES 


27-Mar-1982 19:24:42 
27-Mar-1982 19:23:44 


037006 

037010 

037014 

037016 

037020 

037024 

037026 

037032 

037036 

037040 

037042 

037046 

037050 

037054 

037056 

037062 

037064 

037070 

037072 

037076 

037100 

037104 

037106 

037112 

037114 

037120 

037122 

037126 

037130 

037134 

037140 

037142 

037144 

037150 

037154 

037160 

037164 

037166 

037170 

037174 


104451 

062706 

000207 

011516 

016446 

010246 

012746 

012746 

010600 

104414 

017701 

000301 

042701 

001003 

012700 

000421 

020127 

001003 

012700 

000413 

020127 

001003 

012700 

000405 

020127 

001002 

012700 

010016 

012746 

012746 

010600 

104414 

016716 

012746 

012746 

012746 

010600 

104414 

062706 

000207 


000034 


034460 

006320 

000004 


175324 

177774 

010444 

000001 

010446 

000002 

010450 

000003 

010454 

006466 

000002 


173536 

007770 

006252 

000003 


000030 



TRAP 

51 


10$: 

ADD 

#34, SP 

# 


RTS 

PC 

• 

11$: 

MOV 

(R5),(SP) 

» 


MOV 

LOU. SECT (R4),-(SP) 



MOV 

R2,-(SP> 

; TYPE.* 


MOV 

#FMT5,-<SP) 



MOV 

#4 ,-<SP) 



MOV 

SP.RO 

; SP.* 


TRAP 

14 



MOV 

9ML.REG+24.R1 

0 


SWAB 

R1 



BIC 

#1 77774, R1 



BNE 

12$ 



MOV 

#TRTOO,RO 

.; *»TEMP 


BR 

15$ 

0 

12$: 

CMP 

R1 .#1 



BNE 

i3i 



MOV 

#TRT01 ,R0 

; *.TEMP 


BR 

15$ 

• 

13$: 

CMP 

R1.#2 



BNE 

14i 



MOV 

#TRT10,R0 

; *,TEMP 


BR 

15$ 

• 

0 

14$: 

CMP 

R1.#3 



BNE 

15i 



MOV 

#TRT11 ,R0 

; *,TEMP 

15$: 

MOV 

RO, (SP) 

; TEW>.* 


MOV 

#FMT8,-(SP> 



MOV 

#2,-(iP) 



MOV 

SP.RO 

; SP.* 


TRAP 

14 



MOV 

BASE.ADDR.tSP) 

• 

0 


MOV 

#PMR4,-(SP) 



MOV 

#FMT4B,-(SP) 



MOV 

#3,-<S h 



MOV 

SP.RO 

; SP.* 


TRAP 

14 



ADD 

#30. SP 

• 

• 


RTS 

PC 



; Routine Size: 318 words 
; Maximus stack depth per invocation: 20 words 


J 
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SEO 0102 


2927 

2928 

2929 

2930 

2931 

2932 

2933 

2934 

2935 

2936 

2937 

2938 

2939 

2940 

2941 

2942 

2943 

2944 

2945 

2946 

2947 

2948 

2949 

2950 

2951 

2952 

2953 

2954 

2955 

2956 

2957 

2958 

2959 

2960 

2961 

2962 

2963 

2967 

2968 

2972 

2973 

2974 

2975 

2976 

2977 

2978 

2979 

2980 

2981 


;MLX4 


037176 

037204 

037206 

037212 

037214 

037216 

037222 

037226 

037232 

037234 


2779 

2780 

2781 

2782 

2783 

2784 

2785 

2786 

2787 

2788 

2789 

2790 

2791 

2792 

2793 

2794 

2795 

2796 

2797 

2798 

2799 

2800 
2801 
2802 

2803 

2804 

2805 

2806 

2807 

2808 

2809 

2810 
2811 
2812 


012777 

001415 

016600 

006200 

000300 

042700 

010067 

016600 

006200 

006200 


DRIVE IDENTIFICATION ROUTINES 

routine DECODE (SECT) : novalue = 
begin 


>7-M*r-1982 19:24:42 
>7-Mar-1982 19:23:44 


T0PS-20 Bliss-16 V2<212> 
PA : <NEALE >MLX4 .8L 1 . 5 (9) 


ROUTINE: 
PURPOSE : 

ARGUMENT : 
RESULTS: 


if .NLDT 
then 

begin 
BANK = 
BOARD = 
end 

else 

begin 
BANK = 
BOARD = 
end; 


DECODE(SECT) 

TO INTERPRET THE FIELDS OF THE FAILING SECTOR 
FOR BOTH 16K AND 64K CHIPS. 

SECT = FAILING SECTOR NUMBER 

(1) BANK - WHICH ROW OF CHIPS (0-4) 

(2) BOARD - WHICH ARRAY MODULE (0-15) 


,SECT<9. 2>; 
•SECT<11 , 4>; 


.SECT <7. 2>; 
.SECT<$. 4>; 


! THE CHIPS ARE 64K 


.'THE CHIPS ARE 16K 


VER CZMLBB ADDED LOADING OF BIT.NUM TO ROUTINE 

BIT.NUM = .CHAN; ! 

return; 

end; 


000002 


177774 

175116 

000002 


!SAVE THE FAILING CHIP NUMBER 


.S8TTL 

DECODE DRIVE 

175170 DECODE: BIT 

#1.iML.REG*26 

8EQ 

IS 

MOV 

2($P) ,R0 

ASR 

RO 

SWAB 

RO 

BIC 

#1 77774. RO 

MOV 

RO.BANK 

MOV 

2(SP). RO 

ASR 

RO 

ASR 

RO 


; SECT.* 


; SECT.* 
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SEQ 0103 


2983 

2984 

2985 

2986 037236 

2987 037240 

2988 037244 

2989 037246 

2990 037250 

2991 037254 

2992 037260 

2993 037264 

2994 037266 

2995 037270 

2996 037274 

2997 037300 

2998 037304 

2999 037306 

3000 037310 

3001 037312 

3002 037314 

3003 037316 

3004 037320 

3005 037324 

3006 037330 


;MLX4 


000412 

016600 

006100 

000300 

042700 

010067 

016600 

006200 

000300 

042700 

010067 

017700 

006200 

006200 

006200 

006200 

006200 

006200 

042700 

010067 

000207 


000002 


1 77774 
175064 
000002 


177760 

175042 

175104 


177700 

153336 


; DRIVE IDENTIFICATION ROUTINES 

BR 2$ 

1$: MOV 2(SP).R0 

ROL RO 

SWAB RO 

BIC #1 77774.R0 

MOV RO.BANK 

MOV 2(SP) ,R0 

2$: ASR RO 

SWAB RO 

BIC #1 77760.R0 

MOV RO. BOARD 

MOV 8ML.REG+42.R0 

ASR RO 

ASR RO 

ASR RO 

ASR RO 

ASR RO 

ASR RO 

BIC #1 77700.R0 

MOV RO.BIT.NUM 

RTS PC 

; Routine Si 2 e: 46 words 
; Maximum stack depth per invocation: 0 wo ds 


27-Mar-1982 19:24:42 
27-Mar-1982 19:23:44 


; SECT,* 


; SECT.* 
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SEO 0104 


3017 

3018 

3019 

3020 

3021 

3022 

3023 

3024 

3025 

3026 

3027 

3028 

3029 

3030 

3031 

3032 

3033 

3034 

3035 

3036 

3037 

3038 

3039 

3043 

3044 

3048 

3049 

3050 

3051 

3052 

3053 

3054 

3055 

3056 

3057 

3058 

3059 

3060 

3061 

3062 

3063 

3064 

3065 

3066 


037332 

037336 

037342 

037350 

037352 

037356 

037362 

037366 

037372 

037376 

03740? 

037406 

037410 

037412 

037416 

037420 


2813 

2814 

2815 

2816 

2817 

2818 

2819 

2820 
2821 
2822 

2823 

2824 

2825 

2826 

2827 

2828 

2829 

2830 

2831 

2832 


017746 

004767 

032767 

001422 

016746 

016746 

017746 

012746 

012746 

012746 

012746 

010600 

104414 

062706 

005726 

000207 


DRIVE IDENTIFICATION ROUTINES 

routine ISOLATE : novalue = 
begin 


> 7-Mar- 1982 19:24:42 
*7-Mar-1982 19:23:44 


TOPS-20 Bliss-16 V2(212> 
PA : <NEALE>MLX4 .BLI . 5 (10) 


ROUTINE: ISOLATE 

PURPOSE: UPON THE DETECTION OF A DATA ERROR (EITHER RECOVERABLE OR 

NOT) TO EXAMINE THE SECTOR ADDRESS CONTAINED IN THE ECC 
ERROR LOCATION REGISTER AND PINPOINT THE LOCATION OF THE 
ERROR. THE SECTOR, BOARD (0-15) AND BANK (0-3) WILL BE 
REPORTED. 

DECODE (.MLEL); 

if .ERROUT then PRINTS (FMT10A, WRD20, WRD15, .MLEL, .BOARD, .BANK); 

! 'FAILED: SECTOR XXXXXX BOARD YY BANK Z' 

return; 

end; 


175054 

177634 

000001 142710 

174766 

174760 

175024 

007246 

007312 

006564 

000006 


000016 


.SBTTL 

ISOLATE DRIVE IDENTIFICATION ROUTINES 

ISOLATE :M0V 

BML.REG*44,-(SP) 

• 

• 

JSR 

PC, DECODE 


BIT 

#1, ERROUT 

# 

8EQ 

IS 


NOV 

BANK,-(SP) 


MOV 

BOARD.-(SP) 


MOV 

aNL.REG*44,-<SP) 


NOV 

#WRD15,-(SP) 


NOV 

#WRD20,-(SP) 


MOV 

#FNT10A,-(SP) 


MOV 

#6,-($P> 


MOV 

SP.RO 

; SP,* 

TRAP 

14 


ADD 

#16, SP 


IS: TST 

<SP) + 

• 

# 

RTS 

PC 



; Routine Size: 28 words 
; Maximus stack depth per invocation: 8 words 


CZMLBBO 

ISOLATE 

3072 

3073 

3074 

3075 

3076 

3077 

3078 

3079 

3080 

3081 

3082 

3083 

3084 

3085 

3086 

3087 

3088 

3089 

3090 

3091 

3092 

3093 

3094 

3095 

3096 

3097 

3098 

3099 

3100 

3101 

3102 

3103 

3104 

3105 

3106 

3107 

3108 

3109 

3110 

3111 

3112 

3113 

3114 

3115 

3116 

3117 

3118 

3119 

3120 

3121 

3122 

3123 

3124 

3125 

3126 
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;MLX4 


2833 

2834 

2835 

2836 

2837 

2838 

2839 

2840 

2841 

2842 

2843 

2844 

2845 

2846 

2847 

2848 

2849 

2850 

2851 

2852 

2853 

2854 

2855 

2856 

2857 

2858 

2859 

2860 
2861 
2862 

2863 

2864 

2865 

2866 

2867 

2868 
2369 

2870 

2871 

2872 

2873 

2874 

2875 

2876 

2877 

2878 

2879 

2880 
2881 
2882 

2883 

2884 


DRIVE IDENTIFICATION ROUTINES 

routine UP.HARD.COUNT (l UN, ARRAY) 
begin 


27-Mar-1982 19:24:42 
27-Mar-1982 19:23:44 


T0PS-20 Bliss-16 V2 <21 2) 
PA:<NEAIE>MIX4.BLI.5 (11) 


novalue = 


♦♦ 


ROUTINE: UP_HARD_C0UNT (LUN, ARRAY) 

PURPOSE: TO INCREMENT THE HARD ERROR COUN T FOR THE GIVEN 

ARRAY, AND TO SEE IF THE HARD ERROR THRESHOLD HAS 
BEEN REACHED. 

ARGUMENTS: LUN = LOGICAL UNIT WHICH HAS THE HARD ERROR 

ARRAY = THE BOARD NUMBER (0-15) 


local 

S8E.EXIST; 


! VER CZML88 ADDED THIS LOCAL STORAGE 
! Indicates if the searched sbe already exists 

HARDS [.LUN, .ARRAY, 0. 16. 03 = .HARDS C.LUN. .ARRAY. 0. 16. 03 ♦ 1; 

VER CZML8B ADDED FOLLOWING CODE TO LOG SBE’S 


First search the sbe log table and see if 
this single bit error already exists in 
the table. If it does exist then just 
increment its occurance count, else 
record its failing location into the 
table. 

Only log away 128 single bit errors. 


.'Have 128 errors been logged yet 

.'There is room for at least one more sbe 
! Init the existence flag to false 


if .S8E$_ COUNT Iss 127 
then 

begin 

S8E.EXIST = FALSE; 

► 

Search the single bit error log table 
and see if this error already exist. 

m 

incr index from 0 to .S8ES..C0UNT do 
begin 

if (.S8E LOG [.index. BITS S8E3 eql .BIT NUN) and iDoes this bit exist 
(.SBE LOG [.index, BNKI.SBE3 eql .BAflK) and Does this bank exist 
(.SBElLOG [.index, 8RDS SBE 3 eql .BOARD) and JDoes this board exist 

(.SBElLOG [.index, UNITI.SBE3 eql .LUN) JDoes this unit exist 

then beain .'This sbe already exist so iust up its occurance 

SBE LOG [.index, SUM$_SBE3 = .S8E LOG [.index, SUMS.SBE3 ♦ 1; 

SBElEXIST = TRU§; .'Indicate that this sbe already exist 


SEO 0105 


count 
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102 


SEQ 0106 


3128 

3129 

3130 

3131 

3132 

3133 

3134 

3135 

3136 

3137 

3138 

3139 

3140 

3141 

3142 

3143 

3144 

3145 

3146 

3147 

3148 

3149 

3150 

3151 

3152 

3153 

3154 

3155 

3156 

3157 

3158 

3159 

3160 

3161 

3162 

3163 

3164 

3165 

3166 

3167 

3168 

3169 

3170 

3171 

3172 

3173 

3174 

3175 

3176 

3177 

3178 

3179 

3180 

3181 

3182 


MIX4 


2885 

2886 

2887 

2888 

2889 

2890 

2891 

2892 

2893 

2894 

2895 

2896 

2897 

2898 

2899 

2900 

2901 

2902 

2903 

2904 

2905 

2906 

2907 

2908 

2909 

2910 

2911 

2912 

2913 

2914 

2915 

2916 

2917 

2918 

2919 

2920 

2921 

2922 

2923 

2924 

2925 

2926 

2927 

2928 

2929 

2930 

2931 

2932 

2933 

2934 

2935 

2936 


DRIVE IDENTIFICATION ROUTINES 

ex it loop; 
end; 


27-Mar-1982 19:24:42 
27-Mar-1982 19:23:44 


T0PS-20 Bliss-16 V2<212> 
PA : <NEALE>MLX4 .BL 1.5 (11) 


end; 

► 

Test to see if this sbe was already in the table 
by testing the flag sbe.exist. If it did not exist then 
up the Prom Maintenance count, load this sbe into the table 
and test to see if this array module needs to be Prom Maintenanced. 

If the sbe did exist then return from this routine- 

» 

if not .SBE.EXIST !Was this sbe found in the table 

then 

begin !It was not found m the table so up the pm count 

PM.S8E.CNT C.LUN. -BOARD, PM.SBES.SUM3 = .PM.SBE.CNT C.LUN, .BOARD, PM.SBES.SUM3 ♦ 1; 

Now see if the Prom Maint Program needs to be 
run on this array module. 

if .PM.SBE.CNT C.LUN, .BOARD, PM.S8ES.SUM3 eql 10 !Is the limit exceeded 
then 

begin !The limit was exceeded 

SAYUHO (.LUN); 

PRINTS (EMT13, .ARRAY. MSG2); 

•'ARRAY XX —> RUN ML11 PROM MAINTENANCE PROGRAM' 
end; 


This sbe was not found in the table so 
load this failing sbe into the table 
at the bottom of the list. 


SBE.LOG C.S8ES.C0UNT, BITS. SBE 3 * -BIT NUM; 
SBE 3 LOG C.SBESlCOUNT, BNKS.SBE3 - .BANK; 
SBElLOG C. S8£S_ COUNT. BROS, SBE 3 * -BOARD; 
S8EJ.06 C.SBES”COUNT, UNIT* SBE 3 * .LUN; 
SBElLOG C.SBES.COyNT, SUMS.SBEJ = 1; 


S8ES.C0UNT = .SBE*. COUNT e~1; 
end; 


!Load the failing bit 
•Load the failing bank 
•Load the failing board 
•Load the failing unit 
•Indicate this is the first 


one 


!Up the count of unique sbe's detected 


end; 


VER COMMENTED OUT THIS CODE 
REPLACED BY A80VE CODE 

if <<(.ARR TYP eql 1) and (.HARDS C.LUN. .ARRAY, 0. 16, 03 eql H64K.LIMIT)) or ((.ARR.TYP eql 0) and ( 
.HARDS t.LUN, .ARRAY, 0. 16, 03 eql H16K.LIM1T))) 



D 9 
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3184 

;MLX4 




27-M*r-1982 

19:24:42 TOPS-20 Bliss-16 V2(212> 

3185 



DRIVE IDENTIFICATION ROUTINES 

27-Mar-1982 

19:23:44 PA:<NEALE>MLX4.BLI.5 (11) 

3186 







3187 


293 7 

! then 




3188 


2938 

! begin 

! SAYWHO 




3189 


2939 

(.LUN); 

MSG2) ; 


3190 


2940 

! PRINT8 

(FMT13, .ARRAY, 


3191 


2941 

! ! ’ARRAY 

XX — > RUN ML 11 PROM MAINTENANCE PROGRAM* 


3192 


2942 

! end; 




3193 


2943 

return; 




3194 


2944 

end; 




3198 







3199 




.S8TTL 

UP. HARD. COUNT DRIVE IDENTIFICATION ROUTINES 

3203 037422 



UP. HARD. COUNT: 



3204 037422 

004167 

145706 

JSR 

R1,$SAVE5 

• 

e 

3205 037426 

016605 

000020 

MOV 

20(SP),R5 

; LUN,* 

3206 037432 

010500 


MOV 

R5.R0 


3207 037434 

006300 


A$l 

RO 


3208 037436 

006300 


ASL 

RO 


3209 037440 

006300 


ASL 

RO 


3210 037442 

006300 


ASL 

RO 


3211 037444 

010002 


MOV 

RO ,R2 


3212 037446 

066602 

0000(6 

ADD 

16<SP),R2 

; ARRAY,* 

3213 037452 

006302 


ASL 

R2 


3214 037454 

005262 

033314 

INC 

HARDS(R2> 


3215 037460 

026727 

153200 000177 

CMP 

SBEJ. COUNT, #177 

• 

9 

3216 037466 

002401 


BLT 

1$ 


3217 037470 

000207 


RTS 

PC 


3218 037472 

005004 


IS: CLR 

R4 

; SBE. EXIST 

3219 037474 

005001 


CLR 

R1 

; INDEX 

3220 037476 

000463 


BR 

4$ 


3221 037500 

010102 


2$: MOV 

R1,R2 

; INDEX,* 

3222 037502 

006302 


ASL 

R2 


3223 037504 

006302 


ASL 

R2 


3224 037506 

012703 

011264 

MOV 

#S8E.L0G,R3 


3225 037512 

060203 


ADD 

R2.R3 

BIT. NUN, -(SP) 


3226 037514 

016746 

153146 

MOV 


3227 037520 

011346 


MOV 

(R3),-(SP) 


3228 037522 

006216 


ASR 

(SP) 


3229 037524 

006216 


ASR 

(SP) 


3230 037526 

006216 


ASR 

(SP) 


3231 037530 

006216 


ASR 

(SP) 


3232 037532 

006216 


ASR 

(SP) 


3233 037534 

006216 


ASR 

(SP) 


3234 037536 

042716 

177600 

BIC 

#177600.(SP) 


3235 037542 

022626 


CMP 

(SP)MSP)* 


3236 037544 

001037 


BNE 

3$ 


3237 037546 

016746 

174572 

MOV 

BANK,-(SP) 

• 

3238 037552 

111346 


M0V8 

(R3),-(SP) 



SEQ 0107 



2864 


2867 

2874 

2877 


2873 

i 
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SEQ 

0108 

3240 



;MLX4 





27-Mar-1982 

19:24:42 

TOPS 

3241 



0 


DRIVE IDENTIFICATION ROUTINES 



27-M«r-1982 

19:23:44 

PA:< 

3242 











3243 037554 

042716 

177774 


BIC 

#177774, (SP) 






3244 037560 

022626 



CMP 

(SP)*. (SP)* 






3245 037562 

001030 



8NE 

3$ 






3246 037564 

016746 

174552 


MOV 

BOARD, -(SP) 

0 




2879 

3247 037570 

111346 



M0V8 

(R3).-(SP) 







3248 037572 

006216 



ASR 

(SP) 







3249 037574 

006216 



ASR 

(SP) 







3250 037576 

042716 

177760 


BIC 

#177760, (SP) 







3251 037602 

022626 



CMP 

(SP)*.(SP)* 







3252 037604 

001017 



BNE 

3$ 







3253 037606 

010546 



MOV 

R5.-(SP) 

0 




2880 


3254 037610 

011346 



MOV 

(R3).-(SP) 







3255 037612 

006116 



ROL 

(SP) 







3256 037614 

006116 



ROl 

(SP) 







3257 037616 

006116 



ROL 

(SP) 







3258 037620 

006116 



ROL 

(SP) 







3259 037622 

042716 

177770 


BIC 

#177770, (SP) 







3260 037626 

022626 



CMP 

(SP)*,(SP)* 







3261 037630 

001005 



BNE 

3J 







3262 037632 

005262 

011266 


INC 

S8E.L06*2(R2) 

0 




2883 


3263 037636 

012704 

000001 


MOV 

#1,R4 

0 

*,SBE. EXIST 



2884 


3264 037642 

000404 



6R 

5$ 

9 

0 




2885 


3265 037644 

005201 


3$: 

INC 

R1 

# 

INDEX 



2874 


3266 037646 

020167 

153012 

4$: 

CMP 

RUSSES. COUNT 

0 

INDEX,* 





3267 037652 

003712 



BLE 

2$ 







3268 037654 

006004 


5$: 

ROR 

R4 

0 

SBE. EXIST 



2898 


3269 037656 

103511 



BLO 

7$ 







3270 037660 

010002 



MOV 

R0.R2 

0 




2901 


3271 037662 

066702 

174454 


ADD 

BOARD, R2 







3272 037666 

006302 



ASL 

R2 







3273 037670 

005262 

012264 


INC 

PM.SBE.CNKR2) 







3274 037674 

026227 

012264 

000012 

CMP 

PM.S8E.CNT(R2),#12 

0 




2907 


3275 037702 

001017 



BNE 

6$ 







3276 037704 

010546 



MOV 

R5.-(SP> 

• 

0 




2910 


3277 037706 

004767 

175612 


JSR 

PC,$A’, WHO 







3278 037712 

012716 

011120 


MOV 

#MS62.(SP) 

• 

0 




2911 


3279 037716 

016646 

000020 


MOV 

20(SP),-(SP> 

0 

ARRAY,* 





3280 037722 

012746 

007024 


MOV 

#fMT13,-($P) 







3281 037726 

012746 

000003 


MOV 

#3,-(SP) 







3282 037732 

010600 



MOV 

SP,RO 

0 

SP,* 





3283 037734 

104414 



TRAP 

14 







3284 037736 

062706 

000010 


ADD 

#10. SP 

0 




2909 


3285 037742 

016702 

152716 

6$: 

MOV 

S8ES. COUNT, R2 

• 

0 




2921 


3286 037746 

006302 



ASL 

R2 







3287 037750 

006302 



ASL 

R? 







3288 037752 

012701 

011264 


MOV 

#SB£.L0G.R1 







3289 037756 

060201 



ADD 

R2,R1 







3290 037760 

016704 

152702 


MOV 

BIT. NUN, R4 







3291 037764 

000304 



SWAB 

R4 







3292 037766 

106004 



RORB 

R4 







3293 037770 

006004 



ROR 

R4 







3294 037772 

L 

006004 



ROR 

R4 








F 9 
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3296 



;MLX4 


3297 



• 

9 

DRIVE IDENTIFICATION ROUTINES 

3298 

3299 037774 

042704 

160077 

B1C 

#1 60077, R4 

3300 040000 

042711 

017700 

BIC 

#17700, (R1) 

R4.CR1) 

3301 040004 

050411 


BIS 

3302 040006 

016704 

174332 

nov 

BANK.R4 

#177?74.R4 

5303 040012 

042704 

177774 

BIC 

3304 040016 

142711 

000003 

BIC8 

#3, CR1) 

3305 040022 

150411 


BISS 

R4.CR1) 

3306 040024 

016704 

174312 

nov 

BOARD, R4 

3307 040030 

006304 


ASL 

R4 

3308 040032 

006304 


ASL 

R4 

3309 040034 

042704 

177703 

BIC 

#1 77703, R4 
#74. (R1) 

3310 040040 

142711 

000074 

BICB 

3311 040044 

150411 


B1SB 

R4.CR1) 

3312 040046 

006005 


ROR 

R5 

3313 040050 

006005 


ROR 

R5 

3314 040052 

006005 


ROR 

R5 

3315 040054 

006005 


ROR 

R5 

3316 040056 

042705 

017777 

BIC 

#17777.R5 
#160006, <R1) 

3317 040062 

042711 

160000 

BIC 

3318 040066 

050511 


BIS 

R5.CR1) 

3319 040070 

012762 

000001 011266 

nov 

#1,S8E.L0G+2(R2> 

3320 040076 

005267 

152562 

INC 

SBEf. COUNT 

3321 040102 

3322 

3323 

000207 


7$: RTS 

PC 



; Routine Size: 

153 words 

3324 

3329 

3330 



; Maximum stack 

depth per invocation: 10 wor 


SEQ O' 1 09 

27-FUr- 1982 19:24:42 TOPS 
27-Mar-1982 19:23:44 PA:< 

2922 

2923 

2924 


2925 

2926 
2833 


! 


J 
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SEC 0110 


3332 

3333 

3334 

3335 

3336 

3337 

3338 
3359 
3340 
33*1 

3342 

3343 

3344 

3345 

3346 

3347 

3348 

3349 

3350 

3351 

3352 

3353 

3354 

3355 

3356 

3357 

3358 

3359 

3360 

3361 

3362 

3363 

3364 

3365 

3366 

3367 

3368 

3369 

3370 

3371 

3372 

3373 

3374 

3375 

3376 

3377 

3378 

3379 

3380 

3381 

3382 

3383 

3384 

3385 

3386 


27-Mar-1982 19*24:42 
27-Mar- 1982 19:23:44 


2945 

2946 

2947 

2948 

2949 

2950 

2951 

2952 

2953 

2954 

2955 

2956 

2957 

2958 

2959 

2960 

2961 

2962 

2963 

2964 

2965 

2966 

2967 

2968 

2969 

2970 

2971 

2972 

2973 

2974 

2975 

2976 

2977 

2978 

2979 

2980 

2981 

2982 

2983 

2984 

2985 

2986 

2987 

2988 

2989 

2990 

2991 

2992 

2993 

2994 

2995 

2996 


DRIVE IDENTIFICATION ROUTINES 27-Mar-1982 19:23: 

routine UP.SOFT.COUNT <IUN. ARRAY) : novalue = 
begin 

! ++ ROUTINE: U?_SOFT_COUNT<LUN,ARRAY) 

! PURPOSE: TO INCREMENT THE SOFT ERROR COUNT FOR THE GIVEN 

' ARRAY. AND TO SEE IF THE SOFT ERROR THRESHOLD HAS 

! BEEN REACHED. 

! ARGUMENTS: LUN = LOGICAL UNIT WHICH HAS THE SOFT ERROR 
! ARRAY = THE BOARD NUMBER (0-15) 


T0PS-20 Bliss-16 V2C212) 
PA:<NEALE>HLX4.BLI .5 (12) 


local 

SBE.EXIST; 


! VER CZMLBB ADD THIS LOCAL STORAGE 
.'Flag to indicate if sbe already exists 


SOFTS [.LUN, .ARRAY. 0. 16. 03 = .SOFTS [.LUN, .ARRAY. 0, 16. 03 ♦ 1; 

j VER CZMLBB ADDED FOLLOWING CODE TO LOG SBE'S 

j First search the sbe log table and see if 
.« this single bit error already exists in 
! the table. If it does exist then just 
! increment its occurence count, else 
! record its failing location into the 
! table. 

! Only log away 128 single bit errors. 


if .S8E$ COUNT Iss 127 
then 

begin 

SSE.EXIST = FALSE; 


! Search the single bit error log table 
! and see if this error already exist. 

incr index from 0 to ,$8EJ_C0UNT do 
begin 


!Have 128 errors been togged yet 

.'There is room for at least one more sbe 
Unit the existence flage to false 


if (.S8E.L0G C. index, BIT8.SBE3 eql .BIT NUN) and Does this bit exist 
(.S8E.L0G C.index, BNKJ.SBE3 eql .BAfk) and^ Does this bank exist 
(.SBE LOG [.index, BRDf SBE3 eql .BOARD) and ! Does .this. board exist 
(.SBElLOG [.index, UNITI.SBE3 eql .LUN) !Does this unit exist 

then b#qin ! This sbe already exist so iust up its occurance count 

SB? LOG [.index, $UMS_SBE3 = .SBE LOG [.index, SUNS_S8E3 ♦ 1; 

SBE” EXIST = TRUE; 'Tndirate that this she already exist 


Indicate that this~sbe already exist 
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SEQ 0111 


3388 

3389 

3390 
3'*91 

3392 

3393 

3394 

3395 

3396 

3397 

3398 

3399 

3400 

3401 

3402 

3403 

3404 

3405 

3406 

3407 

3408 

3409 

3410 

3411 

3412 

3413 

3414 

3415 

3416 

3417 

3418 

3419 

3420 

3421 

3422 

3423 

3424 

3425 

3426 

3427 

3428 

3429 

3430 

3431 

3432 

3433 

3434 

3435 

3436 

3437 

3438 
34 


DRIVE IDENTIFICATION ROUTINES 

ex it loop; 
end; 


27-Mar-1982 19:24:42 
27-Mar-1982 19:23:44 


T0PS-20 Bliss-16 V2(212) 
PA:<NEALE>MLX4.BLl .5 (12) 


Test to see if this she was already in the table 
by testing the flag sbe.exist. If It did not exist then 
enter this S8E into the table. 

N ° T Soft errors are not counted toward the Prom Maintenance 
call out. 


If not .S8E.EXIST 
then 

begin 


!Vas this sbe found in the table 

!It was not found in the table so up the pm count 


! This sbe was not found in the table so 
! load this failing sbe into the table 
! at the bottom of the list. 

SBE LOG C.SBES.COUNT, BIT$_SBE3 * .BIT NUM; !Load the failing bit 

SBE LOG C.SBE$”COUNT, BNK$_SBE3 = .BAN*; Load the failing bank 

SBE LOG C.SBEf COUNT, BROS SBE] = .BOARD; 'Load the failing board 

SBE “LOG C.SBEtlCOUNT. UNI Tl SBE 3 - .LUN; !Load the failing unit 

SBE LOG C.SBEf COUNT. SUMS.5BE3 = 1; JIndicate this is the first one 

S8ES COUNT = .SBEf.COUNT +1; !Up the count of unique sbe's detected 

end;” 


VER CZMLB8 THIS CODE WAS COMMENTED OUT AND REPLACED BY THE 
ABOVE CODE. 

if (U.ARR TYP eql 1) and (.SOFTS C.LUN, .ARRAY. 0. 16. 03 eql S64KJ.IHIT)) or ((.ARR.TVP eql 0) and ( 
.SOFTS t.LUN, .ARRAY, 0, 16. 03 eql S16K.LIMIT))) 
then 
begin 

SArUHO (.LUN); 

PRINTB (FMT13, .ARRAY, MSG2); 

J* ARRAY XX — > RUN ML 11 PROM MAINTENANCE PROGRAM’ 
end; 
return; 



I e 
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3444 



;MLX4 



3445 




DRIVE IDENTIFICATION ROUTINES 


3446 






>N ( 

3448 



.S8TTL 

UP.SOFT. COUNT DRIVE IDENTIF ICATION ROUTINES 

3452 040104 



UP. SOFT. COUNT: 



3453 040104 

004167 

145224 

JSR 

R1.SSAVE5 

• 

9 

3454 040110 

016605 

000020 

MOV 

20(SP).R5 

; LUN.* 

3455 040114 

010500 


MOV 

R5.R0 


3456 040116 

006300 


ASL 

RO 


3457 040120 

006300 


ASL 

RO 


3458 040122 



ASL 

RO 


3459 040124 

006300 


ASL 

RO 


3460 040126 

066600 

000016 

ADD 

16(SP),R0 

; ARRAY,* 

3461 040132 

006300 


ASL 

RO 


3462 040134 

005260 

032714 

INC 

SOFTS (RO) 


3463 040140 

016701 

152520 

MOV 

S8ES. COUNT, R1 

• 

3464 040144 

020127 

000177 

CMP 

R1.#177 


3465 040150 

002150 


8GF 

5$ 


3466 040152 

005003 


CLR 

R3 

; SBE. EXIST 

3467 040154 

005000 


CLR 

RO 

; INDEX 

3468 040156 

000463 


BR 

3$ 


3469 040160 

010004 


1$: MOV 

R0.R4 

; INDEX,* 

3470 040162 

Ill'll 


ASL 

R4 


3471 040164 

006304 


ASL 

R4 


3472 040166 

012702 

011264 

MOV 

#S8E.L0G,R2 


3473 040172 

060402 


ADD 

R4.R2 


3474 040174 

016746 

152466 

MOV 

BJT.NUN.-(SP) 


3475 040200 

011246 


MOV 

(R2) ,-(SP) 


3476 040202 

006216 


ASR 

(SP) 


3477 040204 

006216 


ASR 

(SP) 


3478 040206 

006216 


ASR 

(SP) 


3479 040210 

006216 


ASR 

(SP) 


3480 040212 

006216 


ASR 

(SP) 


3481 040214 

006216 


ASR 

(SP) 


3482 040216 

042716 

177600 

BIC 

#177600,(SP) 


3483 040222 

022626 


CMP 

(SP)*, (SP)* 


3484 040224 

001037 


BNE 

2$ 


3485 040226 

016746 

174112 

MOV 

BANK.-(SP) 

• 

0 

3486 040232 

111246 


MOVB 

<R2)*-(SP) 


3487 040234 

042716 

177774 

BIC 

#177774, (SP) 


3488 040240 

022626 


CMP 

(SP)*, (SP)* 


3489 040242 

001030 


BNE 

2S 


3490 040244 

016746 

174072 

MOV 

BOARD, -(SP) 

0 

3491 040250 

111246 


MOVB 

(R2).-(SP) 


3492 040252 

006216 


ASR 

(SP) 


3493 040254 

006216 


ASR 

(SP) 


3494 040256 

042716 

177760 

BIC 

#1777 60, (SP) 


3495 040262 

022626 


CMP 

(SP)*. (SP)* 


3496 040264 

001017 


BNE 

2 $ 


3497 040266 

010546 


MOV 

R5.-(SP) 

• 

0 

3498 040270 

011246 


MOV 

(R2).-(SP) 



SEQ 0112 

27-Mar-1982 19:24:42 TOPS 

27-M«r-1982 19:23:44 PA:< 


2945 

2962 


2976 

2979 

2986 

2989 


2990 

2991 


2992 


J 9 
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3500 



;MLX4 





3501 



• 

0 


DRIVE IDENTIFICATION ROUTINES 



3502 








3503 040272 

006116 



ROL 

(SP) 



3504 040274 

006116 



ROL 

(SP) 



3505 040276 

006116 



ROL 

(SP) 



3506 040300 

006116 



ROL 

(SP) 



3507 040302 

042716 

177770 


81 C 

#177770,(SP) 



3508 040306 

022626 



CMP 

(SP)+,(SP)+ 



3509 040310 

001005 



BNE 

2% 



3510 040312 

005264 

011266 


INC 

S8E.L0G+2(R4) 

0 


3511 040316 

012703 

000001 


MOV 

#1,R3 

• 

0 

*,S8E. EXIST 

3512 040322 

000403 



BR 

4$ 

0 


3513 040324 

005200 


2$: 

INC 

RO 

0 

INDEX 

3514 040326 

020001 


3t: 

CMP 

R0.R1 

• 

0 

INDEX.* 

3515 040330 

003713 



BLE 

IS 



3516 040332 

006003 


4$: 

ROR 

R3 

0 

SBE. EXIST 

3517 040334 

103456 



8LO 

5$ 



3518 040336 

006301 



ASL 

R1 

0 


3519 040340 

006301 



ASL 

R1 



3520 040342 

012700 

011264 


MOV 

#S8E.LOG,RO 



3521 040346 

060100 



ADD 

R1.R0 



3522 040350 

016704 

152312 


MOV 

BIT. NUN, R4 



3523 040354 

000304 



SUAB 

R4 



3524 040356 

106004 



RORB 

R4 



3525 040360 

006004 



ROR 

R4 , 



3526 040362 

006004 



ROR 

R4 



3527 040364 

042704 

160077 


6JC 

#1 60077, R4 



3528 040370 

042710 

017700 


BIC 

#17700- (RO) 



3529 040374 

050410 



BIS 

R4,(R0) 



3530 040376 

016704 

173742 


MOV 

BANK.R4 

0 


3531 040402 

042704 

177774 


Bit 

#1 77774 ,R4 



3532 040406 

142710 

000003 


BICB 

#3.(R0) 



3533 040412 

150410 



BIS6 

R4,(R0) 



3534 040414 

016704 

173722 


MOV 

BOARD, R4 

• 

# 


3535 040420 

006304 



ASL 

R4 



3536 040422 

006304 



ASL 

R4 



3537 040424 

042704 

177703 


BIC 

#1 77703 -R4 



3538 040430 

142710 

000074 


BICB 

#74. (RO) 



3539 040434 

150410 



BIS6 

R4,(R0) 



3540 040436 

006005 



ROR 

R5 

• 

0 


3541 040440 

006005 



ROR 

R5 



3542 040442 

006005 



ROR 

R5 



3543 040444 

006005 



ROR 

R5 



3544 040446 

042705 

017777 


BIC 

#17777-R5 



3545 040452 

042710 

160000 


BIC 

#160000. (RO) 



3546 040456 

050510 



BIS 

R5,(R0) 



3547 040460 

012761 

000001 

011266 

MOV 

#1 ,S8E.L0G*2(R1) 

0 


3548 040466 

005267 

152172 


INC 

S8E$. COUNT 

0 


3549 040472 

000207 


5$: 

RTS 

PC 

0 


3550 








3551 



; Routine Size 

124 words 



3552 



; Maximum stack depth per invocation: 8 words 



3561 









SEQ 0113 

27-Mar-1982 19:24:42 TOPS 
27-Mar-1982 19:23:44 PA:< 


2995 

2996 

2997 
2986 


3012 

3022 


3023 

3024 


3025 


3026 

3027 
2945 
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L 9 
111 


3619 ;MLX4 

3620 ; 

3621 

3622 

3623 

3624 

3625 

3626 
362? 

3631 

3632 

3636 040474 

3637 040500 

3638 040504 

3639 040506 

3640 040510 

3641 040514 

3642 040516 

3643 040520 

3644 040526 

3645 040532 

3646 040536 

3647 040540 

3648 040542 

3649 040546 

3650 040550 

3651 040552 

3652 040554 

3653 040556 

3654 040562 

3655 040564 

3656 040566 

3657 040570 

3658 040572 

3659 040574 

3660 040576 

3661 040602 

3662 040606 

3663 040610 

3664 040612 

3665 040616 

3666 040620 

3667 040624 

3668 040626 

3669 040630 

3670 040634 

3671 040640 

36 72 040642 

3673 040646 


3098 

3099 

3100 

3101 

3102 

3103 


004167 

012700 

104447 

103404 

012'r00 

104447 

103076 

012767 

004767 

016704 

005003 

000462 

010367 

010302 

006202 

006202 

006202 

062702 

010300 

104442 

010001 

001432 

010300 

006300 

010160 

005767 

001004 

010146 

004767 

005726 

005267 

010246 

010346 

042716 

012746 

011646 

004767 

010316 


INITIALIZATION CODE 
end 


else 


QUICK = 0; 


27-Mir-1982 19:24:42 
27-M*r-1982 19:23:44 

!* 2 * 

.'THIS IS CATEGORY 2 CODE 


! CATEGORY 3 CODE WOULD GO HERE, BUT THERE IS NONE. 
ENDINIT; j* 1 » 




.SBTTL 

LINIT INITIALIZATION CODE 



144614 

LINIT: 

JSR 

R1.JSAVE4 

. 


000040 


MOV 

#40, RO 

. 




TRAP 

47 





BCS 

1$ 



000037 


MOV 

#37, RO 





TRAP 

DU T C 

47 



000001 

172146 1$: 

oni 5 

MOV 

#1, QUICK 



174022 


JSR 

PC.CLRTBLS 



141254 


MOV 

LSUNIT.R4 

• 




CLR 

R3 

• 

LUN 



BR 

6$ 



141326 

2$: 

MOV 

R3.LJLUN 

• 

LUN,* 



MOV 

R3.R2 

• 

LUN,* 



ASR 

R2 





ASR 

R2 





ASR 

R2 



034442 


ADD 

#DRIVE. STATUS, R2 





MOV 

R3,R0 


LUN,* 



TRAP 

42 





MOV 

R0,R1 


*.PL0C 



BEQ 

4$ 





MOV 

R3,R0 


LUN,* 



ASL 

RO 



034422 


MOV 

RI.PTABLE.ADDR(RO) 


PLOC.* 

173650 


TST 

NUM. DRIVES 

• 




BNE 

3$ 





MOV 

Rl,-(SP) 

• 

PLOC,* 

174370 


JSR 

PC, INI T. ADDRESSES 





TST 

(SP) + 



173632 

3$: 

INC 

NUM. DRIVES 





MOV 

R2,-(SP> 

• 


177770 


MOV 

BIC 

r5,-(sp) 

#1^7770. (SP) 

• 

• 

LUN,* 

000001 


MOV 

#1,-(SP) 





MOV 

(SP),-(SP) 



143746 


JSR 

PC,8L$PU2 





MOV 

R3,(SP) 

# 

LUN,* 


TOPS-20 Bliss-16 V21212) 
PA:<NEALE>MLX4.BLI .5 (13) 


SEQ 0115 


3045 

3072 


3075 

3076 
3078 


3080 

3090 


3082 


3085 


3087 


3089 

3090 


3091 


CZMLB80 PERFORMANCE EXERCISER 
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SEQ 0116 


3675 



;MLX4 



27-Mar-1982 19:24:42 

TOPS 

3676 



• 

9 


INITIALIZATION CODE 

27-Mar- 1982 19:23:44 

PA:< 

3677 








3678 040650 

004767 

175126 


JSR 

PC. CONFIG 



3679 040654 

000411 



BR 

5$ 


3082 

3680 040656 

010246 


4$: 

MOV 

R2.-(SP) 


3094 

3681 040660 

010346 



MOV 

R3,-(SP> 

; LUN,* 


3682 040662 

042716 

177770 


BIC 

#1 77770, (SP) 



3683 040666 

012746 

000001 


MOV 

#1.-(SP$ 



3684 040672 

005046 



CLR 

-(SP) 



3685 040674 

004767 

143714 


JSR 

PC.BLSPU2 



3686 040700 

062706 

000010 

5$: 

ADD 

#10, SP 


3079 

3687 040704 

005203 



INC 

R3 

; LUN 

3078 

3688 C40706 

020304 


6$: 

CMP 

R3.R4 

; LUN,* 


3689 040710 

002714 



BLT 

2$ 



3690 040712 

000207 



RTS 

PC 


3072 

3691 040714 

005067 

171754 

7$: 

CLR 

QUICK 


3100 

3692 040720 

000207 



RTS 

PC 


3045 

jCtj 

3694 



; Routine Size: 

75 words 



3695 



; Maximum stack depth per invocation: 

9 words 


3700 








3701 

t7AC 








DfyJj 

3706 




.SBTTL 

LS1NIT INITIALIZATION 

CODE 


3710 040722 

004767 

177546 

LfINIT: 

: JSR 

PC, UNIT 

• 

3100 

3711 040726 

104411 



TRAP 

11 



3712 040730 

000207 



RTS 

PC 



3713 








3714 



; Routine Size: 

4 words 



3715 



; Maximum stack depth per invocation: 

0 words 


3720 








3721 
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SEQ 0117 


3723 

3724 

3725 

3726 

3727 

3728 

3729 

3730 

3731 

3732 

3733 

3734 

3735 

3736 

3737 

3738 

3739 

3740 

3741 

3742 

3743 

3744 

3745 

3746 

3747 

3748 

3749 

3750 

3751 

3752 

3753 

3754 

3755 

3756 

3757 

3758 

3759 

3760 

3761 

3762 

3763 

3764 

3765 


3104 

3105 

3106 

3107 

3108 

3109 

3110 

3111 

3112 

3113 

3114 

3115 

3116 

3117 

3118 

3119 

3120 

3121 

3122 

3123 

3124 

3125 

3126 

3127 

3128 

3129 

3130 

3131 

3132 

3133 

3134 

3135 

3136 

3137 

3138 

3139 

3140 

3141 

3142 

3143 

3144 

3145 

3146 

3147 

3148 

3149 

3150 

3151 

3152 

3153 

3154 

3155 


GENERATOR FOR OPTION 1 

Xsbttl 'GENERATOR FOR OPTION 1* 
routine GEN1 (SECTOR, fOMP.FLAG) 
begin 


novalue = 


27-Mar-1982 19:24:42 
27-Mar-1982 19:23:44 


!* 1 * 


TOPS-20 Bliss-16 V2(212> 
PA : <NEALE>MLX4 .BL 1.5 (14) 


ROUTINE: GEN1 (SECTOR, COMP.F LAG) 

PURPOSE: TO GENERATE THE ENTIRE 4K-W0RD WRITE BUFFER FOR OPTION 1, 

THE GENERATION IS IN 16 GROUPS OF 256 WORDS (THE SIZE 
OF 1 SECTOR). EACH GROUP OF 256 WORDS RECEIVES THE 
SECTOR ADDRESS WHERE THE WORDS WILL BE TRANSFERRED. 

ARGUMENTS: (1) SECTOR - CURRENT SECTOR NUMBER. 


(2) COMP.FLAG - 


AN INDICATOR WHICH IS USED TO DECIDE 
WHETHER THE LOCATION IN THE WRITE BUFFER 
SHOULD BE COMPLEMENTED. 


local 

OFFSET; 

OFFSET = 0; 

if .C0MP.FLA6 
then 


•GENERATE COMPLEMENT DATA 


incru SECT from (.SECTOR) to ((.SECTOR) ♦ 15) do 
begin 
BREAK; 

incru COUNT from 1 to 256 do 

begin !* 2A * 

(UBUFF ♦ (.OFFSET)) * not (.SECT); ‘COMPLEMENT DATA 

OFFSET = .OFFSET ♦ 2; 

end; ! * 2A * 


* ! GENERATE REGULAR DATA 

incru SECT from (.SECTOR) to ((.SECTOR) « 15) do 
begin 
BREAK; 


incru COUNT from 1 to 256 do 
begin 


begin !* 28 * 

(UBUFF ♦ (.OFFSET)) = (.SECT); ! REGULAR DATA 

OFFSET = .OFFSET ♦ 2; 

end; !* 28 * 


H 10 

IZML880 PERFORMANCE EXERCISER MACRO Mil 1 3 29-MAR-82 13:41 PAGE 114 
LSINIT INITIALIZATION CODE 


3779 ;HLX4 






27-Mar- 1982 

19:, 

?4:42 TOPS-20 Bliss-16 V2(212> 

3780 ; 

3781 

3782 ; 

3156 

GENERATOR FOR 

OPTION 1 



27-Mar- 1982 

19:, 

23 : 44 PA:<NEALE>MLX4.BLI.5 (14) 

3783 ; 

3157 

return; 







3784 ; 

3788 

3789 

3l 55 

end; 




! * 1 * 






.S8TTL 

GEN1 GENERATOR 

FOR OPTION 1 



3793 040732 

004167 

144356 

GEN1 : 

JSR 

R1 . SSAVE4 




3794 040736 

005002 



CLR 

R2 



; OFFSET 

3795 040740 

016601 

000016 


MOV 

16(SP).R1 



; SECTOR,* 

3796 040744 

010104 



MOV 

R1,R4 
#17, R4 
#1.14(SP) 




3797 040746 

062704 

000017 


ADD 




3798 040752 

032766 

000001 000014 


BIT 



; *, COMP. FLAG 

3799 040760 

001437 



BEO 

6$ 




3800 040762 

010103 



MOV 

ri ,r?3 



.* *,SECT 

3801 040764 

000416 



BR 

3$ 




3802 040766 

104422 


IS: 

TRAP 

22 



• 

0 

3803 040770 

010301 



MOV 

R3.R1 



; SECT,* 

3804 040772 

005101 



COM 

RI 




3805 040774 

012700 

000001 


MOV 

#1 ,R0 



; *, COUNT 

3806 041000 

010162 

012670 

2S: 

MOV 

R1,U8UFF(R2> 



; *. ‘(OFFSET) 

3807 041004 

062702 

000002 


ADD 

#2, R2 



; *, OFFSET 

3808 041010 

005200 



INC 

RO 



; COUNT 

5809 041012 

020027 

000400 


CMP 

R0.#400 



; COUNT,* 

3810 041016 

101770 



BLOS 

2$ 




3811 041020 

005203 



INC 

R3 



; SECT 

3812 041022 

020304 


3S: 

CMP 

R3.R4 



; SECT,* 

3813 041024 

101760 



BLOS 

1$ 




3814 041026 

000207 



RTS 

PC 



• 

3815 041030 

104422 


4$: 

TRAP 

22 



• 

• 

3816 041032 

012700 

000001 


MOV 

#1 ,R0 



; *, COUNT 

3817 041036 

010162 

012670 

5$: 

MOV 

R1,U8UFF(R2> 



; SECT, ‘(OFFSET) 

3818 041042 

062702 

000002 


ADD 

#2.R2 



; *, OFFSET 

3819 041046 

005200 



INC 

RO 



; COUNT 

3820 041050 

020027 

000400 


CMP 

R0,#400 



; COUNT,* 

3821 041054 

101770 



BLOS 

5$ 




3822 041056 

005201 



INC 

RI 



; SECT 

3823 041060 

020104 


6$: 

CMP 

RI ,R4 



; SECT,* 

3824 041062 

101762 



BLOS 

4$ 




3825 041064 

3826 

000207 



RTS 

PC 



# 

3827 



; Routine Size: 

46 words 




3828 



; Maximum stack depth per invocation: 5 words 



SEQ 0118 


3105 

3126 

3131 


3128 

3131 

3132 
3137 

3135 

3137 

3138 
3135 


3131 


3128 

3146 

3149 

3151 

3152 
3149 


3145 

3105 


i 
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0 10 
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SEO 0120 


3885 

3886 

3887 

3888 

3889 

3890 

3891 

3892 

3893 

3894 

3895 

3896 

3897 

3898 

3899 

3900 

3901 

3902 

3903 

3904 

3905 

3906 

3907 

3908 

3909 

3910 

3911 

3912 

3913 

3914 

3915 

3916 

3917 

3918 

3919 
392C 

3921 

3922 

3923 

3924 

3925 

3926 

3927 

3928 

3929 

3930 
3531 

3932 

3933 

3934 

3935 

3936 

3937 

3938 

3939 

3940 

3941 


;MLX4 


27-Mar- 1982 19:24:42 
2 7-Mar- 1982 19:23:44 


3184 

3185 

3186 

3187 

3188 

3189 

3190 

3191 

3192 

3193 

3194 

3195 
31% 
3157 

3198 

3199 

3200 

3201 

3202 

3203 

3204 

3205 

3206 

3207 

3208 

3209 

3210 

3211 

3212 

3213 

3214 

3215 

3216 

3217 

3218 

3219 

3220 

3221 

3222 

3223 

3224 

3225 

3226 

3227 

3228 

3229 

3230 

3231 

3232 

3233 

3234 

3235 


USING THE PATTERN TABLE 

Xsbttl 'USING THE PATTERN TABLE' 
routine GETCNTS (PATTERN) = 
begin 


ROUTINE: GETCNTS (PATTERN) 

PURPOSE: TO POINT TO THE APPROPRIATE BLOCK OF THE PATTERN 

TABLE AND GRAS THE VALUES WHICH ARE REQUIRED FOR THE 
PATTERN GENERATOR FOR OPTIONS 2 AND 4. 

ARGUMENT: PATTERN * THE CURRENT PATTERN NUMBER. 


TOPS-20 Bliss-16 V2(212) 
PA : <NEALE >MLX4 ,BL 1 . 5 (16) 


RESULTS: 


'VALUE' RECEIVES THE VALUE WHICH IS RETURNED FOR 
THE SUBROUTINE. IT IS THE 4-BIT BINARY AMOUNT WHICH 
WILL BE USED AS THE CONTENTS OF A NIBBLE OF COMPLEMENT 
DATA. 

'DATA.COUNT' RECEIVES THE NUMBER OF NIBBLES OF DATA. 

'COMP COUNT' RECEIVES THE NUMBER OF NIBBLES OF 
COMPLEMENT DATA. 


local 

PATNUM. 

VALUE; 

selectone .PATTERN of 
set 

Cl to 53 : 
begin 

PATNUM = .PATTERN - 1; 
VALUE = Xb'1010'; 
end; 

C-5 to -13 : 
begin 

PATNUM = -(.PATTERN) - 1; 
VALUE = Xb'0101 '; 
end; 

Co to 103 : 
begin 

PATNUM = .PATTERN - 6; 
VALUE = Zb '1111 ' ; 
end; 

C-10 to -63 : 
begin 

PATNUM = -(.PATTERN) - 6; 


>7-Mar-1982 19:24:42 
?7-Mar-1982 19:23:44 


TOPS-20 Bliss-16 V2(212> 
PA:<NEALE>MLX4.BL1 .5 (16) 


USING THE PATTERN TABLE 
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SEQ 0122 


4010 

4011 

4012 

4013 

4014 

4015 

4016 

4017 

4018 

4019 

4020 

4021 

4022 

4023 

4024 

4025 

4026 

4027 

4028 

4029 

4030 

4031 

4032 

4033 

4034 

4035 

4036 

4037 

4038 

4039 

4040 

4041 

4042 

4043 

4044 

4045 

4046 

4047 

4048 

4049 

4050 

4051 

4052 

4053 

4054 

4055 

4056 

4057 

4058 

4059 

4060 

4061 

4062 

4063 

4064 


NIBBLE GENERATOR 

Xsbttl 'NIBBLE GENERATOR' 
routine FILLER (BUFFER, WRDCNT. VALUE) 
begin 


27-Mar-1982 19:24:42 
27-Mar-1982 19:23:44 


TOPS-20 Bliss-16 V2(212> 
PA:<NEALE>MLX4.BLl.5 (17) 


novalue * 

!* 1 * 


ROUTINE: 

PURPOSE: 


ARGUMENTS: 


FILLER (BUFFER, WRDCNT, VALUE) 

TO LOAD A CHOSEN WRITE BUFFER, ONE NIBBLE AT A TINE, WITH A 
PARTICULAR PATTERN, FOR A SPECIFIED NUMBER OF 16-BIT WORDS, 

THIS ROUTINE IS THE HEART OF THE GENERATOR FOR OPTIONS 2 AND 4, 

THE 'FILLER' ROUTINE IS A LOOP WHICH WILL ALTERNATE BETWEEN 
THE TWO COUNTS AND FILL THE APPROPRIATE NUMBER OF NIBBLES OF 
THE CHOSEN BUFFER WITH THE CONTENTS OF 'VALUE'. EVERY TIME 
A COUNT IS EXHAUSTED, THE OTHER COUNT IS STARTED UP AGAIN, 

AND EACH TIME A NEW COUNT IS BE6UN, 'VALUE' IS COMPLEMENTED. 
NOTE THAT THE FIRST COUNT THAT WILL BE USED WILL ALWAYS BE 
'DATA COUNT', SO THAT THE BUFFER WILL BE REPETITIONS OF: 

DATA, COMP. DATA, COMP ... 

(1) BUFFER = THE STARTING ADDRESS OF THE CHOSEN WRITE BUFFER. 

(2) WRDCNT s THE NUMBER OF WORDS OF PATTERN TO BE GENERATED. 

(3) VALUE = NIBBLE OF DATA TO BE PLACED IN THE WRITE BUFFER 


local 

NIBBLE. 

OFFSET, 

FLAG, 

THE.COUNT; 

FLAG = 0; 

OFFSET = 0; 

NIBBLE • 0; 

while 1 do 
begin 

FLAG = not .FLAG; 

VALUE * not .VALUE; 

if .FLA6 eql 0 
then 

THE.COUNT r .CQNP.COUNT 

else 

THE.COUNT s .DATA.COUNT; 

deer COUNT fron .THE.COUNT to 1 do 
begin 


2 * 

•FLIP THE FLAG 
!AND THE DATA 

•CHOOSE A COUNT 


•EXHAUST THE COUNT 
!* 3 * 


begin 3 * 

(.BUFFER ♦ (. OFFSET) X. NIBBLE, 4, 0> = .VALUE; 'LOAD THE NIBBIE 
NIBBLE = (((.NIBBLE) ♦ 4) mod 16); ! CHANGE NIBBLE POINTER 
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SEO 0123 


4066 

4067 

4068 

4069 

4070 

4071 

4072 

4073 

4074 

4075 

4076 

4077 

4078 

4079 

4080 

4081 

4082 

4083 
<.084 
4085 

4089 

4090 

4094 

4095 

4096 

4097 

4098 

4099 

4100 

4101 

4102 

4103 

4104 

4105 

4106 

4107 

4108 

4109 

4110 

4111 

4112 

4113 

4114 

4115 

4116 

4117 

4118 

4119 

4120 


;MLX4 


041266 

041272 

041274 

041276 

041300 

041302 

041306 

041310 

041312 

041316 

041320 

041324 

041326 

041330 

041332 

041336 

041340 

041344 

041350 

041354 

041356 

041362 

041366 

041372 

041374 

041376 

041400 


NIBBLE GENERATOR 


27-Mar-1982 19:24:42 
27-Mar- 1982 19:23:44 


TOPS -20 Bliss-16 V2C212) 
PA: <NEALE>MLX4 .BL! . 5 (17) 


3296 

3297 

3298 

3299 

3300 

3301 

3302 

3303 

3304 

3305 

3306 

3307 

3308 

3309 

3310 

3311 

3312 


004167 

005001 

005005 

005002 

005101 

005166 

005701 

001003 

016704 

000402 

016704 

010403 

003764 

010546 

066616 

010246 

012746 

016646 

004767 

010216 

062716 

012746 

004767 

010002 

001011 

104422 

062705 


• * 4 » 


end; 


end; 


if .NIBBLE eql 0 
then 

begin 
DDF Alt • 

OFFSE* = .OFFSET ♦ 2; 

WRDCNT = .WRDCNT - 1; 

if .WRDCNT eql 0 then return; 

end; !* 4 * 

end; !* 3 * 

!* 2 * 

!* 1 * 


.S8TTL 


144042 

FILLER: 

JSR 



CLR 



CLR 



CLR 


IS: 

COM 

000016 


COM 


TST 



BNE 

171364 


MOV 



BR 

171354 

2S: 

NOV 


3$: 

MOV 



BLE 


4S: 

NOV 

000024 


ADD 



NOV 

000004 


NOV 

000024 


MOV 

143240 


JSR 



MOV 

000004 


ADD 

000020 

143610 


NOV 

JSR 



NOV 



BNE 



TRAP 

000002 


ADD 


FILLER NIBBLE GENERATOR 

R1 SAVES 

R1 

R5 

R2 

R1 

16CSP) 

R1 

2S 

COMP. COUNT, R4 
3$ 

DATA, COUNT, R4 

R4.R3 

IS 

R5.-(SP> 

24(SP),(S#>> 

R2,-(SP) 

#4,-(SP) 

24<SP),-<SP> 

PC,BLSPU2 

R2,(SP) 

#4.<SP> 

#20, -(SP) 

PC, BL SHOD 

R0.R2 

6 $ 

22 

#2,R5 


FLAG 

OFFSET 

NIBBLE 

FLAG 

VALUE 

FLAG 

*, THE. COUNT 

*, THE. COUNT 
THE. COUNT, COUNT 

OFFSET,* 

BUFFER.* 

NIBBLE,* 

VALUE.* 

NIB8LE,* 


*, NIBBLE 
*, OFFSET 


3245 

3277 

3278 

3279 

3283 

3284 
3286 

3288 

3286 

3290 

329? 

3294 


3295 


3297 

3299 

3301 


CZMIB80 PERFORMANCE EXERCISER 
FILLER NIBBLE GENERATOR 


tm 

4124 

4125 

4126 

4127 

4128 

4129 

4130 

4131 

4132 

4133 

4134 

4135 

4140 

4141 
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;MLX4 


H 10 
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041404 005366 000032 
041410 001003 
041412 062706 000012 
04 HI 6 000207 
041420 062706 000012 
041424 005303 
041426 001340 
041430 000723 


SEQ 0124 


; NIBBLE GENERATOR 

DEC 32 (SP) 

BNE 6$ 

ADD #12.SP 

5$: RTS PC 

6$: ADD #12. SP 

DEC R3 

BNE 4$ 

BR IS 

; Routine Size: 50 words 
; Maximum stack depth per Invocation: 11 words 


>7-Mar-1982 19:24:42 
>7-Mar-1982 19:23:44 


WRDCNT 


COUNT 


I 


CZMLB80 PERFORMANCE EXERCISER 
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I 10 
120 


4143 

4144 

4145 

4146 

4147 

4148 

4149 

4150 

4151 

4152 

4153 

4154 

4155 

4156 

4157 

4158 

4159 

4160 

4161 

4162 

4163 

4164 

4168 

4169 

4173 

4174 

4175 

4176 

4177 

4178 

4179 

4180 

4181 

4182 

4183 

4188 

4189 


MLX4 


041432 

041436 

041442 

041446 

041452 

041454 

041460 

041464 


3313 

3314 

3315 

3316 

3317 

3318 

3319 

3320 

3321 

3322 

3323 

3324 

3325 

3326 

3327 

3328 

3329 

3330 

3331 


016746 

004767 

012716 

012746 

010046 

004767 

062706 

000207 


GENERATOR FOR OPTION 2 

Xsbttl 'GENERATOR FOR OPTION 2' 
routine GEN2 : novalue = 
begin 


27-Mar-1982 19:24:42 
27-Mar-1982 19:23:44 


TOPS -20 Bliss-16 V2(212) 
PA:<NEALE>MLX4.BLI.5 (18) 


♦♦ 


ROUTINE: 

PURPOSE: 


local 

VALUE; 


GEN2 

TO GENERATE THE ENTIRE WRITE BUFFER (WHICH 
WILL BE USED IN CONJUNCTION WITH OPTION 2) 
BASED ON PATTERN TABLE ENTRIES. 


VALUE * GETCNTS (.PATTERN); 
FILLER (WBUFF, BUFSIZ, .VALUE); 
return; 
end; 


171240 

GEN2: MOV 

177444 

JSR 

012670 

MOV 

004000 

MOV 


MOV 

177606 

JSR 

000006 

ADD 


RTS 


•S8TTL 


GEN2 GENERATOR FOR OPTION 2 
PATTERN, -(SP) 

PC, GETCNTS 
fWBUFF.(SP) 

#4000, -(SP) 

RO.-(SP) 

PC, FILLER 
06, SP 
PC 


Routine Size: 14 words 

Maximum stack depth per invocation: 3 words 


VALUE,* 


SEO 0125 


3328 

3329 

3314 


L 


J 
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SEQ 0126 


4191 

4192 

4193 

4194 

4195 

4196 

4197 

4198 

4199 

4200 

4201 

4202 

4203 

4204 

4205 

4206 

4207 

4208 

4209 

4210 

4211 

4212 

4213 

4214 

4215 

4216 

4217 

4218 

4219 

4220 

4221 

4222 

4223 

4224 

4225 

4226 

4227 

4228 

4229 

4230 

4231 

4232 

4236 

4237 

4241 

4242 

4243 

4244 

4245 


;MLX4 


27-Mar-1982 19:24:42 
GENERATOR FOR OPTION 3 27-Mar-1982 19:23:44 

Zsbt t l ’GENERATOR FOR OPTION 3' 
routine GEN3 (COMP.FLAG) : novalue = 
begin 

! ROUTINE: GEN3(C0HP_FLAG) 

! PURPOSE: TO GENERATE THE ENTIRE WRITE BUFFER WHICH WILL BE MADE 

! UP OF WORDS WHICH CONTAIN THE UNIOUE COUNT FROM ONE TO 

! BUFSIZ. 

I 

j ARGUMENT: COMP.FLAG - THIS IS AN INDICATOR OF WHETHER OR NOT TO 

COMPLEMENT EVERT WORD IN THE WRITE BUFFER. 


041466 

041470 

041472 

041500 

041502 


3332 

3333 

3334 

3335 

3336 

3337 

3338 

3339 

3340 

3341 

3342 

3343 

3344 

3345 

3346 

3347 

3348 

3349 

3350 

3351 

3352 

3353 

3354 

3355 

3356 

3357 

3358 

3359 

3360 

3361 

3362 

3363 

3364 

3365 

3366 

3367 

3368 

3369 

3370 


010146 

005001 

032766 

001415 

012700 


local 

OFFSET; 

OFFSET = 0; 

if .COMP.FLAG 
then 


TOPS-20 Bliss-16 V2C212) 
PA:<NEALE>MLX4.BLI.5 (19) 


inc ru COUNT from 1 to BUFSIZ do 
begin 

(WBUFF ♦ (.OFFSET)) * not (.COUNT); 

OFFSET = .OFFSET ♦ 2; 

end 


incru COUNT from 1 to BUFSIZ do 
begin 

(WBUFF ♦ (.OFFSET)) * (.COUNT); 

OFFSET = .OFFSET ♦ 2; 

end; 


! GENERATE COMPLEMENT DATA 


! COMPLEMENT DATA 


! GENERATE REGULAR DATA 


! REGULAR DATA 


return; 

end; 


000001 000004 


000001 


.S8TTL GEN3 GENERATOR FOR OPTION 3 
GEN3: MOV RI.-(SP) 

CLR R1 

BIT #1,4(SP) 

BEO 2$ 

MOV f 1 .RO 


OFFSET 

•.COMP.FLAG 

*, COUNT 


ICZMIBBO PERFORMANCE EXERCISER 
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SEQ 0127 


4247 




;MLX4 



27 

4248 

4249 

4250 




• 

* 


GENERATOR FOR OPTION 3 

27 

041506 

010061 

012670 

IS: 

MOV 

RO.UBUFF(RI) 

COUNT, ‘(OFFSET) 

4251 

041512 

005161 

012670 


COM 

WBUFF(RI) 

•(OFFSET) 

4252 

041516 

062701 

000002 


ADD 

#2,R1 

•.OFFSET 

4253 

041522 

005200 



INC 

RO 

COUNT 

4254 

041524 

020027 

004000 


CMP 

R0.#4000 

COUNT,* 

4255 

041530 

101766 



8L0S 

1$ 


4256 

041532 

000412 



BR 

4$ 


4257 

041534 

012700 

000001 

2$: 

MOV 

fl.RO 

•.COUNT 

4258 

041540 

010061 

012670 

31: 

MOV 

RO.UBUFF(RI) 

COUNT, *(OFFSET) 

4259 

041544 

062701 

000002 


ADD 

#2,R1 

•.OFFSET 

4260 

041550 

005200 



INC 

RO 

COUNT 

4261 

041552 

020027 

004000 


CMP 

R0,#4000 

COUNT.* 

4262 

041556 

101770 



BLOS 

3$ 


4263 

041560 

012601 


4$: 

MOV 

(SP)+,R1 

i 

4264 

041562 

000207 



RTS 

PC 


4265 






31 words 


4266 




; Routine Size: 


4267 




; Maximum stack depth per invocation: 2 words 


4272 








4273 









TOPS 

PA:< 

3357 

3358 
3355 


3352 

3363 

3365 

3366 
3363 


3333 
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4275 

4276 

4277 

4278 

4279 

4280 

4281 

4282 

4283 

4284 

4285 

4286 

4287 

4288 

4289 

4290 

4291 

4292 

4293 

4294 

4295 

4296 

4297 

4298 

4299 

4300 

4301 

4305 

4306 

4310 

4311 

4312 

4313 

4314 

4315 

4316 

4317 

4318 

4319 

4320 

4325 

4326 


MLX4 


3371 

3372 

3373 

3374 

3375 

3376 

3377 

3378 

3379 

3380 

3381 

3382 

3383 

3384 

3385 

3386 

3387 

3388 

3389 

3390 

3391 

3392 

3393 

3394 


GENERATOR FOR OPTION 4 

Xsbttl 'GENERATOR FOR OPTION 4' 
routine GEN4 (MARPAT, BUFFER) : novalue = 
begin 


27-Mar-1982 19:24:42 
27-Mar-1982 19:23:44 


T0PS-20 Bliss-16 V2<212> 
PA : <NE ALE >MLX4 . 8L 1 . 5 (20) 




ROUTINE: 
PURPOSE : 

ARGUMENTS: 


local 

VALUE; 


GEN4 (MARPAT, BUFFER) 

THIS IS THE GENERATOR WHICH IS USED FOR OPTION 4, THE 
MARCH TEST. IT BEGINS AT THE START OF THE CHOSEN 
BUFFER AND GENERATES 256 WORDS IN THE EXACT WAY THAT 
OPTION 2 DOES. 

(1) MARPAT - THE MARCH PATTERN NUMBER 

(2) BUFFER - THE STARTING ADDRESS OF THE CHOSEN BUFFER 


VALUE = GETCNTS (.MARPAT); 
FILLER (.BUFFER, 256, .VALUE); 
return; 
end; 





.SBTTL 

GEN4 GENERATOR FOR OPTION 4 


041564 

016646 

000004 

GEN4: MOV 

4(SP),-(SP) 

; MARPAT,* 

041570 

004767 

177312 

JSR 

PC, GETCNTS 


041 574 

016616 

000004 

MOV 

4(SP),(SP) 

; BUFFER,* 

041600 

012746 

000400 

MOV 

#400. -(SP) 


041604 

010046 


MOV 

RO.-(SP) 

; VALUE,* 

041606 

004767 

177454 

JSR 

PC, FILLER 


041612 

062706 

000006 

ADD 

#6,SP 


041616 

000207 


RTS 

PC 



Routine Size: 14 words 

Maximum stack depth per invocation: 3 words 


SEQ 0128 


3391 

3392 

3372 
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SEQ 0129 


4328 

4329 

4330 

4331 

4332 

4333 

4334 

4335 

4336 

4337 

4338 

4339 

4340 

4341 

4342 

4343 

4344 

4345 

4346 

4347 

4348 

4349 

4350 

4351 

4352 

4353 

4354 

4355 

4356 

4357 

4358 

4359 

4360 

4361 
4365 


;MLX4 


GENERATOR FOR OPTION 5 

Xsbttl ‘GENERATOR FOR OPTION 5‘ 
routine GEN5 : novalue = 
begin 


27-Mar-1982 19:24:42 
27-Mar-1982 19:23:44 


TOPS-20 Bliss-16 V2(212) 
PA:<NEALE>MLX4.BLI .5 (21) 


ROUTINE: 
PURPOSE : 


THIS IS THE GENERATOR WHICH IS USED FOR OPTION 5. 

IT BEGINS AT THE START OF THE WRITE BUFFER. AND GENERATES 
A FULL BUFFER OF RANDOM DATA. THE FIRST 3 WORDS OF THE BUFFER 
RECEIVE THE 3 SEEDS WHICH WERE USED IN THE GENERATION. 


local 

OFFSET; 

(WBUFF ♦ 0) 
(WBUFF ♦ 2) 
(WBUFF ♦ 4) 
OFFSET = 6; 


.SEED1 

SEED2 

.SEED3 


incru COUNT from 4 to BUFSIZ do 
begin 
RN (); 

BREAK* 

(WBUFF ♦ .OFFSET) = .RANDOM; 
OFFSET = .OFFSET ♦ 2; 
end; 

return; 

end; 


!THE FIRST 3 WORDS OF THE 
! WRITE BUFFER RECEIVE THE 
•3 GENERATING SEEDS. 


•NOTE: USING SIGNED VALUES (FULL 16 BITS) 
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4367 

4371 

4372 

4373 

4374 

4375 

4376 

4377 

4378 

4379 

4380 

4381 

4382 

4383 

4384 

4385 

4386 

4387 

4388 

4389 

4390 

4395 

4396 


041620 

041624 

041632 

041640 

041646 

041652 

041656 

041662 

041664 

041672 

041676 

041700 

041704 


004167 

016767 

016767 

016767 

012701 

012702 

004767 

104422 

016761 

062701 

005202 

020227 


041706 000207 





.SBTTL 

GEN5 GENERATOR FOR OPTION 5 


143436 


GENS: 

JSR 

R1,$SAVE2 

SEED1 ,WBUFF 


143626 

151036 


MOV 


143622 

151032 


MOV 

SEED2,WBUFF*2 


143616 

151026 


MOV 

SEED3.UBUFF+4 

*, OFFSET 

000006 



MOV 

#6,R1 

000004 



MOV 

#4,R2 

*, COUNT 

143506 


1$: 

JSR 

PC,RN 




TRAP 

22 


143574 

012670 


MOV 

RANDOM.UBUFF(RI) 

*, ‘(OFFSET) 

000002 



ADD 

#2,R1 

‘, OFFSET 



INC 

R2 

COUNT 

004000 



CMP 

R2,#4000 

COUNT,* 


;MIX4 

BLOS 

IS 

GENERATOR FOR OPTION 5 





• 






RTS 

PC 

• 

9 


SEO 0130 


3396 

3411 

3412 

3413 

3414 
3416 
3418 


27-Mar- 1982 19:24:42 
27-Mar-1982 19:23:44 


; Routine Size: 28 words 
; Maximum stack depth per Invocation: 3 words 
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SEO 0131 


A 398 

4399 

4400 

4401 

4402 

4403 

4404 

4405 

4406 

4407 

4408 

4409 

4410 

4411 

4412 

4413 

4414 

4415 

4416 

4417 

4418 

4419 

4420 

4421 

4422 

4423 

4424 

4425 

4426 

4427 

4428 

4429 

4430 

4431 

4432 

4433 

4434 

4435 

4436 

4437 

4438 

4439 

4440 

4441 

4442 

4443 

4444 

4445 

4446 

4447 

4448 

4449 

4450 

4451 

4452 


3426 

3427 

3428 

3429 

3430 

3431 

3432 

3433 

3434 

3435 

3436 

3437 

3438 

3439 

3440 

3441 

3442 

3443 

3444 

3445 

3446 

3447 

3448 

3449 

3450 

3451 

3452 

3453 

3454 

3455 

3456 

3457 

3458 

3459 

3460 

3461 

3462 

3463 

3464 

3465 

3466 

3467 

3468 

3469 

3470 

3471 

3472 

3473 

3474 

3475 

3476 

3477 


SYSTEM ERROR DETECTOR 

Xsbttl 'SYSTEM ERROR DETECTOR* 
routine SYSERR <LUN> = 
begin 


27-Mar- 1982 19:24:42 
27-Mar-1982 19:23:44 


! * 1 * 


TOPS-20 Bliss-16 V2<212> 
PA:<NEALE>MLX4.BLI .5 (22) 


ROUTINE: SYSERR(LUN) 

PURPOSE: (1) TO SCAN FOR SYSTEM ERRORS AFTER A TRANSFER HAS ENDED. 

(2) PRINT ERROR MESSAGES IF APPROPRIATE: 

A) ERROR MESSAGES DURING RETRIES WILL NOT 
BE PRINTED. 

8) THE OPERATOR HAS THE ABILITY TO INHIBIT THE 
PRINTING OF DATA ERRORS. 8UT NOT SYSTEM ERRORS. 

(3) DECIDE ON A VALUE TO RETURN WHICH WILL INDICATE THE 
RELATIVE SEVERITY OF THE ERROR. 

ARGUMENT: LUN = THE CURRENT LOGICAL UNIT NUMBER 

CO TO NUMBER OF DRIVES MINUS 13. 

RESULT: VALUE RETURNED FOR THE SUBROUTINE SHOWS TYPE OF ERROR: 

n = un FRAIW^ AT At I 

1 = RETRY ALLOWED FOR THESE TYPES OF ERRORS 

2 = FATAL CONTROLLER ERROR 

3 = FATAL DRIVE ERROR 

4 = UNC0RRECTA8LE DATA ERROR 

5 = CORRECTABLE DATA ERROR 

FIGURE OUT WHICH VALUE TO RETURN BY THE FOLLOWING SCHEME : 

(1) IF THERE IS A CHOICE BETWEEN DATA ERROR AND SYSTEM ERROR. 

FIRST CHOOSE THE DATA ERROR. 

(2) IF THERE IS A CHOICE BETWEEN FATAL AND NON-FATAL ERROR. 

FIRST CHOOSE THE FATAL ERROR. 

(3) IF THERE IS A CHOICE BETWEEN CONTROLLER ERROR AND DRIVE ERROR. 
FIRST CHOOSE CONTROLLER ERROR. 

label 

PURP0SE.2.C0DE; 

local 

ERR2. 

ERR3, 

ERR4. 

ERR5. 

ERR6. 

ERR7. 

ERR8* 


• VER CZMLBB ADDED THIS LOCAL 


| CZMLB80 performance exerc j 

C 11 

SER MACRO Mi 113 29-MAR-82 13:41 PAGE 127 

GENS GENERATOR FOR OPTION 

5 

SEQ 0132 

4454 

;MLX4 


27-Mar-1982 19:24:42 TOPS-20 Bliss-16 V2(212) 

4455 

SYSTEM ERROR DETECTOR 

27-Mar-1982 19:23:44 PA:<NEALE>MLX4.BLI.5 (22) 

4456 



4457 

3478 

ERR9; 

! VER CZMLBB ADDED THIS LOCAL 

4458 

3479 



4459 

3480 

ERR 2 = INACTIVE; 


4460 

3481 

ERR3 = INACTIVE; 


4461 

3482 

ERR4 = INACTIVE; 


4462 

3483 

ERR5 = INACTIVE; 


4463 

3484 

ERR6 = INACTIVE; 


4464 

3485 

ERR 7 = INACTIVE; 
ERR8 = INACTIVE; 


4465 

3486 

! VER CZMLBB 

VER CZMLBB 

4466 

3487 

ERR9 = INACTIVE; 

4467 

3488 



4468 

3489 

!♦ 


4469 

3490 

I THIS IS THE CODE 

FOR PURPOSE 1: 

4470 

3491 

1 - 


4471 

3492 



4472 

3493 

if .SC 


4473 

3494 

then 

! THERE ARE SOME ERRORS — FIND OUT WHAT KIND 

447* 

3495 

begin 

2 * 

4475 

3496 


4476 

3497 

If ((.NED) or 

(.NEM) or (.PGE)) then ERR 2 = ACTIVE; 

4477 

3498 



4478 

3499 

if ((.DLT) or 

(.PE) or (.MXF) or (.MDPE) or (.MCPE)) then ERR3 = ACTIVE; 

4479 

3500 



4480 

3501 ! 

VER ADDED THIS ERR9 


4481 

3502 



4482 

3503 

if (.MDPE) and 

( not .SGL) then ERR9 = ACTIVE; 

4483 

3504 



4484 

3505 ! 

VER ADDED THIS ERR8 


4485 

3506 



4486 

3507 

if ((.DLT) or 

(.PE) or (.MXF) or (.MCPE)) then ERR 8 = ACTIVE; 

4487 

3508 



4488 

3509 

if ((.MCE) and 

(.ECCDIS eql 0)) then ERR3 - ACTIVE; 

4489 

3510 


4490 

3511 

if ((.UNS) or 

(.IAE) or (.AOE) or (.RMR) or (.ILR) or (.ILF)) then ERR4 = ACTIVE; 

4491 

3512 



4492 

3513 

if ((.OPI) or 

(.DPAR) or ( . CPAR) ) then ERR 5 = ACTIVE; 

4493 

3514 



4494 

3515 

if ((.DCK) or 

(.crc) or (.S6L)) then ERR7 * ACTIVE; 

4495 

3516 



4496 

3517 

if ((.UCE) and 

(.ECCDIS eql D) then ERR7 = ACTIVE; 

4497 

3518 


4498 

3519 

if ((.ECH) or 

(.UNO) then ERR6 = ACTIVE; 

4499 

3520 



4500 

3521 

end 

!* 2 * 

4501 

3522 

else 

J THERE ARE NO ERRORS — RETURN SUCCESSFULLY 

4502 

3523 

return 0; 

•NO ERRORS AT ALL 

4503 

3524 



4504 

3525 

!♦ 


4505 

3526 

J THIS IS THE CODE 

FOR PURPOSE 2: 

4506 

3527 

i 

! 

4507 

3528 

! LABEL: 


4508 

3529 

! BEGIN 3 

• 
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4510 

;HLX4 

4511 


4512 


4513 


4514 


4515 


4516 


4517 


4518 


4519 

3536 

4520 


4521 

1H 

4522 

3539 

4523 

3540 

4524 

3541 

4525 

3542 

4526 


4527 


4528 


4529 


4530 


4531 


4532 


4533 


4534 

3551 

4535 

» v \ 

4536 


4537 

§ m-: ■:? 

4538 

3555 

4539 

3556 

4540 

3557 

4541 

.V' yji »T* 

4542 

aV 

4543 


4544 

3561 

4545 

3562 

4546 

3563 

4547 

3564 

4548 

3565 

4549 

3566 

4550 

3567 

4551 

3568 

4552 

3569 

4553 

3570 

4554 

3571 

4555 

3572 

4556 

3573 

4557 


4558 

3575 

4559 

3576 

4560 

3577 

4561 

3578 

4562 

4563 

3579 

3580 

4564 

3581 


SYSTEM ERROR DETECTOR 


27-Har-1982 19:24:42 
27-Har-1982 19:23:44 


IF RETRYING 

THEN LEAVE LABEL (NO PRINTOUTS AT ALL) 
ELSE 

BEGIN 4 

IF ERROR PRINTOUTS ARE ALLOWED 
THEN 

BEGIN 5A 

IDENTIFY THE LOGICAL UNIT 
SCAN FOR t PRINT DATA ERRORS 
END 5A 
ELSE 

BEGIN 58 

IF THERE ARE SYSTEM ERRORS TO REPORT 
THEN IDENTIFY THE LOGICAL UNIT 
ELSE LEAVE LABEL 
END 5B 

SCAN FOR t PRINT SYSTEM ERRORS 
END 4 
END 3 


PURPOSE 2 CODE : 
begin 

if .RETRYING 
then 

leave PURPOSE.2.CODE 

else 

begin 


!* 3 * 

! (NO PRINTOUTS AT ALL) 
!* 4 * 

!* 5A * 


if .ERROUT 
then 

begin 

SAY WHO (.LUN); 

PRINTS (SAY1. PHR10); 

! 'ERROR BITS SET: 

if .ERR7 
then 

begin 

if .DC* then PRINTS (FNT15. MLB20) ; 
if .crc then PRINTB (FMT15. MLB22); 
if .SGL then PRINTB (FMT15, MLB23); 
if ((.WCE) and (.ECCDIS eql D) then PRINTB (FMT15, 
end; 
if .ERR6 


TOPS-20 Bliss-16 V2(21 2) 
PA:<N£ALE>MtX4.BLl.5 (22) 


SEQ 0133 


MLB6) 
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4566 

4567 

4568 

4569 

4570 

4571 

4572 

4573 

4574 

4575 

4576 

4577 

4578 

4579 

4580 

4581 

4582 

4583 

4584 

4585 

4586 

4587 

4588 

4589 

4590 

4591 

4592 

4593 

4594 

4595 

4596 

4597 

4598 

4599 

4600 

4601 

4602 

4603 

4604 

4605 

4606 

4607 

4608 

4609 

4610 

4611 

4612 

4613 

4614 

4615 

4616 

4617 

4618 

4619 

4620 


SYSTEM ERROR DETECTOR 


>7-Har-1982 19:24:42 
>7-Mar-1982 19:23:44 


begin 

if .ECH then PRINTS (FMT15, ML821); 
if .UNC then PRINT8 (FHT15, HLB24); 


begin 

! VER C2ML88 CHANGED ERR3 TO ERR8 


!* 5A • 
58 * 


if ((.ERR2) or ( .ERR8) or (.ERR4) or (.ERR5)) 
then 

begin 

SAyUHO (.LUN); 

3600 PRINTS (SAY!, PHR10); 

3601 !' ERROR BITS SET: 

3602 end 

3603 else 

3604 ! VER CZMLB8 ADDED TEST OF ERR9 HERE 

3605 

3606 if .ERR9 

3607 then 

3608 begin 

3609 SAYUHO (.LUN); 

3610 PRINT8 (SAY1. PHR10); 

3611 ."ERROR BITS SET: 

3612 end 

3613 else 

3614 begin 

3615 leave PURPOSE_2_CODE; 

3616 end; 


!* 58 * 


if .ERR2 
then 

begin 


if .NED then PRINTS (FMT15, MLB2) 
if .NEN then PRINTS (FMT15, ML83) 
if .PGE then PRINTS (FMT15, MLB4) 


SEO 0154 

TOPS-20 Bliss-16 V2(212) 
PA:<NEALE>HLX4.BLI.5 (22) 


if .ERR3 
then 
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SEO 0135 


4622 

4623 

4624 

4625 

4626 

4627 

4628 

4629 

4630 

4631 

4632 

4633 

4634 

4635 

4636 

4637 

4638 

4639 

4640 

4641 

4642 

4643 

4644 

4645 

4646 

4647 

4648 

4649 

4650 

4651 

4652 

4653 

4654 

4655 

4656 

4657 

4658 

4659 

4660 

4661 

4662 

4663 

4664 

4665 

4666 

4667 

4668 

4669 

4670 

4671 

4672 

4673 

4674 

4675 

4676 


>7-Mar-i982 19:24:42 
>7-Mar-I982 19:23:44 


SYSTEM ERROR DETECTOR 27-Mar-!982 19:23:44 

3634 begin 

3635 

3636 if .DLT then PRINTS (FMT15. HLB5 ) ; 

3637 

3638 if <(.WC E) and (.ECCDIS eql 0)) then PRINTS (FMT15. MLB6) ; 

3639 

3640 if .PE then PRINTS (FMT15. MLB7); 

3641 

3642 if .MXF then PRINTS (FMT15, HLB8) ; 

3643 

3644 ! VER CZML8B ADDED 'AND NOT .SGL* 

3645 

3646 if (C.MDPE) and < not .SGL)) then PRINTS (FMT15, HLB9); 

3647 

3648 if .MCPE then PRINTS (FMT15. HLB10); 


if .ERR4 
then 

begin 


TOPS-20 Bliss-16 V2(212> 
PA:<NEALE>MLX4.8LI .5 (22) 


if .UNS then PRINTS <FH T15. MLB11) 
if .IAE then PRINTS (FMT15, MLB12) 
if .AOE then PRINTS (FMT15. HLB13) 
if .RMR then PRINTS (FMT15, ML814) 
if .ILR then PRINTS (FMT15, NISI 5) 
if .ILF then PRINTS (FMT15. ML816) 


if .ERR5 
then 

begin 


if .OPI then PRINTS (FMT15, MLB17); 
if .DPAR then PRINTS (FMT15, MLB1 8) ; 
if .CPAR then PRINTS (FHT15, ML819); 
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SEQ 0136 


46?8 

4679 

4680 
4631 

4682 

4683 

4684 

4685 

4686 

4687 

4688 

4689 

4690 

4691 

4692 

4693 

4694 

4695 

4696 

4697 

4698 

4699 

4700 

4701 

4702 

4703 

4704 

4705 

4706 

4707 

4708 

4709 

4710 

4711 

4712 

4713 

4717 

4718 

4722 

4723 

4724 

4725 

4726 

4727 

4728 

4729 

4730 

4731 

4732 

4733 

4734 

4735 

4736 

4737 

4738 

4739 

4740 


MLX4 


041710 

041714 

041716 

041720 

041722 

041724 

041726 

041732 

041734 

041736 

041740 


041744 

041746 

041752 

041760 

041762 


3686 

3687 

3688 

3689 

3690 

3691 

3692 

3693 

3694 

3695 

3696 

3697 

3698 

3699 

3700 

3701 

3702 

3703 

3704 

3705 

3706 

3707 

3708 

3709 

3710 

3711 

3712 

3713 

3714 

3715 

3716 

3717 

3718 


004167 

005746 

005046 

005046 

005001 

005002 

005066 

005003 

005004 

005005 

005777 


100402 

000167 

032777 

001010 

032777 


SYSTEM ERROR DETECTOR 
»♦ 

• THIS IS THE CODE FOR PURPOSE 3: 

i. 

if .ERR6 
then 

return 4; 

if .ERR7 
then 

return 5; 

if .ERR2 
then 

return 2; 

if .ERR4 
then 

return 3; 

it (.ERR3 .'r .ERR5) 
then 

return 1 

else 

begin 


27-Mar-1982 19:24:42 
27-Mar-1982 19:23:44 


TOPS-20 Bliss-16 V2(212> 
PA : <NEALE>MLX4 .BLI . 5 (22) 


• UNRECOVERABLE DATA ERROR (NO RETRY ALLOWED) 


•RECOVERABLE DATA ERROR (RETRY TO CLASSIFY) 


! CONTROLLER FATAL ERROR 


•DRIVE FATAL ERROR 


•NON-FATAL ERRORS 


if ((.ERROUT) and ( not .RETRYING)) then PRINTS (SAYl, PHR11); 


."SC SET BUT NO SYSTEM ERRORS FOUND' 

return 1; 

end; 


end; 

143420 

000004 

172402 


1 * 


SYSERR: 


002344 

010000 

004000 


172376 

172366 


;MLX4 


IS: 


.S8TTL SYSERR SYSTEM ERROR DETECTOR 
JSR R1.SSAVE5 

TST -(SP) 

CLR -(SP) 

CLR -(SP) 

CLR R1 

CLR R2 

CLR 4(SP) 

CLR R3 

CLR R4 

CLR R5 

TST 8ML.REG 

SYSTEM ERROR DETECTOR 

BMI 1$ 

JAP 53$ 

BIT #10000, BML.REG+10 

6NE 2 % 

BIT #4000,3ML.REG+10 


ERR2 

ERR3 

ERR4 

ERR5 

ERR6 

ERR7 

ERR8 

ERR9 


27-Mar-1982 19:24:4 2 
27-Mar-1982 19:23:44 


3427 

3480 

3481 

3482 

3483 

3484 

3485 

3486 

3487 
3493 
TOPS 
PA:< 


3497 
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SYSERR SYSTEM ERROR DETECTOR 






SEQ 01 3' 

I 4741 041770 

001004 




BNf 

2$ 




i 4742 041772 

032777 

002000 

172356 


BIT 

#|000,BNL.REG+10 




1 4743 042000 

001403 




BEQ 

; +.ERR2 
• 

0 



4744 042002 

4745 042010 


000002 

2$: 

3$: 

MOV 

TST 

#1 ,2CSP) 

BML.REG+10 


3499 

4746 042014 

100420 




BM1 

4$ 




4747 042016 

032777 

020000 

172332 


BIT 

#20000, BML.REG+10 




4748 042024 

001014 




BNE 

4$ 




4749 04r0?6 

032777 

001000 

172322 


BIT 

#1000,BNL.REG+10 




4750 04c0j4 

001010 




S*E 

4$ 




4751 042036 

032777 

000400 

172312 


BIT 

#400,BNL.REG+10 




4752 042044 

001004 




BNE 

4$ 




4753 042046 

032777 

020000 

172272 


BIT 

# 20000, 8ML. REG 




4754 042054 

001402 




BEQ 

5$ 

l +.ERR3 



4755 042056 

012716 

000001 


4$: 

MOV 

#1.(SP> 

#400, BML.REG+10 


3503 

4756 042062 

032777 

000400 

172266 

5$: 

BIT 

» 


4757 042070 

001406 




BEQ 

6$ 




4758 042072 

032777 

040000 

172310 


BIT 

#40000, BML. REG+42 




4759 042100 

001002 




BNE 

6$ , 

; +.ERR9 



4760 042102 

012705 

000001 



MOV 

#1 ,R5 


3507 

4761 042106 

005777 

172244 


6$: 

TST 

BML.REG+10 

• 

0 


4762 042112 

100414 




BM1 

7$ 




4763 042114 

032777 

020000 

172234 


BIT 

#20000. BML.REG+10 




4764 042122 

001010 




BNE 

7$ 




4765 042124 

032777 

001000 

172224 


BIT 

#1000, BMl.REG+10 




4766 042132 

001004 




BNE 

7$ 




4767 042134 

032777 

020000 

172204 


BIT 

#20000, BML. REG 




4768 042142 

001402 




BEQ 

8$ 

; *,ERR8 



4769 042144 

012704 

000001 


7$: 

NOV 

#1.R4 

#40000, BML.REG+10 


3509 

4770 042150 

032777 

040000 

172200 

8$: 

BIT 

• 


4771 042156 

001405 




BEQ 

9$ 




4772 042160 

005767 

140070 



TST 

ECCDIS 




4773 042164 

001002 




BNE 

9$ 

; +.ERR3 



4774 042166 

012716 

000001 



MOV 

#1-(SP) 

#40000, BML. RE G+ 14 


3511 

4775 042172 

032777 

040000 

172162 

9$: 

BIT 

• 

• 


4776 042200 

001024 




BNE 

10$ 




4777 042202 

032777 

002000 

172152 


BIT 

#2000, BML. REG+14 




4778 042210 

001020 




BNE 

10$ 




4779 042212 

032777 

001000 

172142 


BIT 

#1000, BML. REG+14 




4780 042220 

001014 



BNE 

10$ 




4781 042222 

132777 

000004 

172132 


BITB 

#4,BNL. REG+14 

ioi 




4782 042230 

001010 




BNE 




4783 042232 

132777 

000002 

172122 


BITB 

#2.BNL. REG+14 

ioi 




4784 042240 

001004 




BNE 




4785 042242 

132777 

000001 

172112 


BITB 

#1. BML. REG+14 

111 




4786 042250 

001402 




BEQ 

; +.ERR4 



4787 042252 

012701 

000001 


10$: 

MOV 

#1,R1 

27-Mar-1982 19:24:42 

TOPS 

4788 


:MLX4 



4789 




• 


SYSTEM ERROR DETECTOR 


27-M*r-1982 19:23:44 

PA:< 

4790 

4791 042256 

032777 

020000 

172076 

11$: 

BIT 

#20000, BML. REG+14 

0 


3513 

4792 042264 

001010 




BNE 

12$ 




4793 042266 

132777 

000040 

172066 


BITB 

#40,BML. REG+14 




4794 042274 

001004 




BNE 

12$ 




4795 042276 

4796 042304 

132777 

000010 

172056 


BITB 

#10.BML. REG+14 




001402 




BEQ 

13$ 

; +.ERR5 



4797 042306 

! 

012702 

000001 


12$: 

MOV 

#1,R2 


1 

j 
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SEQ 0138 


4798 

4799 

4800 

4801 

4802 

4803 

4804 

4805 

4806 

4807 

4808 

4809 

4810 

4811 

4812 

4813 
4314 

4815 

4816 

4817 

4818 

4819 

4820 

4821 

4822 

4823 

4824 

4825 

4826 

4827 

4828 

4829 

4830 

4831 

4832 

4833 

4834 

4835 

4836 

4837 

4838 

4839 

4840 

4841 

4842 

4843 

4844 

4845 

4846 

4847 

4848 

4849 

4850 

4851 

4852 

4853 

4854 


C ,2312 
042316 
042320 
042326 
042330 
042336 
042340 
042344 
042352 
042354 
042362 
042364 
042370 
042376 
042400 
042404 
042406 
042414 
042422 
042424 
042430 
042436 
042440 
042444 
042450 
042454 
042460 
042464 
042466 
042470 
042474 
042476 
042502 
042504 
042510 
042514 
042520 
042522 
042524 
042530 
042536 
042540 
042544 
042550 
042554 


042556 

042560 

042564 

042572 

042574 

042600 

042604 

042610 

042612 


005777 172044 
03277? 020000 172062 


001004 

032777 

001402 

012703 

032777 

001406 

026727 

001002 

012703 

132777 

001003 

005777 

100003 

012766 

032767 

001402 

000167 

032767 

001552 

016646 

004767 

012716 

012746 

012746 

010600 

104414 

032703 

001473 

005777 

100012 

012746 

012746 

012746 

010600 

104414 

062706 

032777 

001412 

012746 

012746 

0127*6 

010600 


104414 

062706 

032777 

001412 

012746 

012746 

012746 

010600 

104414 


040000 172052 


000001 

040000 


14$: 

172004 15$: 


137674 000001 


171764 16$: 


000004 17$: 
171716 18$: 


137622 19$: 


000001 

000100 

172004 

000001 

000001 

001520 

000001 

000024 

173054 

010120 

007072 

000002 


000001 

171660 

007550 

007060 

000002 


000006 

020000 171652 20$: 

007560 

007060 

000002 

;MLX4 


000006 

040000 171616 21$: 

007564 

007060 

000002 


TST BML.REG+14 

BMi 14$ 

BIT #20000, BML. RE G+4 2 

BNE 14$ 

BIT #40000 , BML . REG+42 

BEO 15$ 

MOV #1.R3 

BIT #40000, BML. REG+10 

8EQ 16$ 

CMP ECCDIS,#1 

BNE 16$ 

MOV #1 A3 

BITS #l60,BML.REG+14 

BNE 17$ 

TST BML.REG+42 

BPL 18$ 

MOV #1 ,4(SP) 

BIT #1 .RETRYING 

BEO 19$ 

JMP 47$ 

BIT #1 .ERROUT 

BEO 25$ 

MOV 24(SP),-(SP) 

JSR PC, SAY WHO 

MOV #PHR10, (SP) 

MOV #SAY1 ,-(SP) 

MOV #2,-(§P> 

MOV SP.RO 

TRAP 14 

BIT #1.R3 

BEO 23$ 

TST BML.REG+14 

BPL 20$ 

MOV #MLB20,-(SP) 

MOV #FMT15,-(SP> 

MOV #2,-(SP) 

MOV SP.RO 

TRAP 14 

ADD #6.SP 

BIT #2o000, BML. RE 6*42 

BEO 21$ 

MOV #MLB22,-(SP) 

MOV #FMTl5,-<SP) 

MOV #2.-(SP) 

MOV SP.RO 

SYSTEM ERROR DETECTOR 

TRAP 14 

ADD #6 .SP 

BIT #46000 , BML . RE G+42 

BEO 22$ 

MOV #M1823,-(SP) 

MOV #FMT15,-(SP) 

MOV #2,-(SP) 

MOV SP.RO 

TRAP 14 


; *,ERR7 


; *,ERR7 


; *,ERR6 


; LUN.* 


*,ERR7 


; SP,* 


; SP,* 


27-M»r-1982 19:24:42 
27-M»r-1982 19:23:44 


; SP,* 


t 
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SEO 0139 

SYfERR SYSTEM ERROR DETECTOR 







<i855 042614 

062706 

000006 



ADD 

#6.SP 



3577 

4856 042620 

032777 

040000 

171530 

22$: 

BIT 

#40000, 8NL.REG+10 



4857 042626 

001416 




BEQ 

23$ 




! 4858 042630 

026727 

137420 

000001 


CM P 

ECCDIS,#1 




4859 042636 

001012 




BNE 

23$ 




4860 042640 

012746 

007450 



MOV 

#MLB6.-<SP> 

#FMT15.-(SP) 




4861 042644 

012746 

007060 



MOV 




4862 042650 

012746 

000002 



MOV 

#2,-(SP) 




4863 042654 

010600 




MOV 

SP.RO 

; SP.* 



4864 042656 

104414 




TRAP 

14 




4865 042660 

062706 

0000C6 



ADD 

#6,SP 



3581 

4866 042664 

032766 

000001 

000012 

23$: 

BIT 

#1 .12(SP) 

29 i 

; *,ERR6 


4867 042672 

001505 




BEO 



3585 

4868 C42674 

132777 

000100 

171460 


BITB 

#100,8ML.REG+14 

# 


4869 042702 

001412 




BEO 

24$ 




4870 042704 

012746 

007554 



MOV 

#MLB21,-(SP) 




4871 042710 

012746 

007060 



MOV 

#rMT15.-(SP) 




4872 042714 

012746 

000002 



MOV 

#2,-(SP) 




4873 042720 

010600 




MOV 

SP,RO 

; SP,* 



4874 042722 

104414 




TRAP 

14 




4875 042724 

062706 

000006 



ADD 

#6,SP 



3587 

4876 042730 

005777 

171454 


24$: 

TST 

8ML.REG+42 



4877 042734 

100064 




BPL 

29$ 




4878 042736 

012746 

007570 



MOV 

#MLB24.-(SP) 




4879 042742 

012746 

007060 



MOV 

#FMT15,-<SP) 




4880 042746 

012746 

000002 



MOV 

#2,-(SP> 




4881 042752 

010600 




MOV 

SP.RO 

; SP.* 



4882 042754 

104414 




TRAP 

14 




4883 042756 

062706 

000006 



ADD 

#6 .SP 

29i 



3562 

4884 042762 

000451 




BR 



4885 042764 

032766 

000001 

000002 

25$: 

BIT 

#1.2CSP> 

26i 

; *.ERR 2 


3596 

4886 042772 

001010 




BNE 

; ERR8 



4887 042774 

006004 




ROR 

R4 



4888 042776 

103406 




BLO 

26$ 




4889 043000 

032701 

000001 



BIT 

#1.R1 

26i 

; *,ERR4 



4890 043004 

001003 




BNE 

; *,ERR5 



4891 043006 

032702 

000001 



BIT 

#1.R2 



4892 043012 

001415 




BEO 

27§ 



3599 

4893 043014 

016646 

004767 

000024 


26$: 

MOV 

24(SP),-(SP) 

; LUN.* 


4894 043020 

172500 



JSR 

PC.SAYUHO 



3600 

4895 043024 

012716 

010120 



MOV 

#PHR10,(SP> 



4896 043030 

012746 

00707? 



MOV 

#SAY1 ,-(SP) 




4897 043034 

012746 

00000/ 



MOV 

#2,-(SP> 


27-Mar-1982 

19:24:42 TOPS 

4898 




:MLX4 



4899 




• 


SYSTEM ERROR DETECTOR 


27-Mar- 1982 

19:23:44 PA:< 

4900 

4901 043040 

010600 




MOV 

SP.RO 

; SP.* 



4902 043042 

104414 




TRAP 

14 



3598 

4903 043044 

000420 




BR 

29$ 

• 


4904 043046 

006005 



27$: 

ROR 

R5 

; ERR9 


3606 

4905 043050 

103402 




810 

28$ 




4906 043052 

000167 

001072 



JMP 

47$ 



3609 

4907 043056 

016646 

000024 


28$: 

MOV 

24(SP).-(SP) 

; LUN.* 


4908 043062 

004767 

172436 



JSR 

PC.SAYUHO 



3610 

4909 043066 

012716 

010120 



MOV 

#PHR10.(SP> 



4910 043072 

012746 

007072 



MOV 

#SAY1 ,-(SP) 




4911 043076 

012746 

000002 



MOV 

#2,-(SP) 



! 

i 

i 

i 
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4912 043102 

010600 




MOV 

4913 043104 

104414 



29$: 

TRAP 

4914 043106 

062706 

000006 

000002 

ADD 

4915 043112 

032766 

000001 


BIT 

4916 043120 

001452 




BEQ 

4917 043122 

032777 

010000 

171226 


BIT 

4918 043130 

001412 

007430 



BEQ 

4919 043132 

012746 



MOV 

4920 043136 

012746 

007060 



MOV 

4921 043142 

012746 

000002 



MOV 

4922 043146 

010600 




MOV 

4923 043150 

104414 




TRAP 

4924 043152 

062706 

000006 



ADD 

4925 043156 

032777 

004000 

171172 

30$: 

BIT 

4926 043164 

001412 

007434 



BEQ 

4927 043166 

012746 



MOV 

4928 043172 

012746 

007060 



MOV 

4929 043176 

012746 

000002 



MOV 

4930 043202 

010600 




MOV 

4931 043204 

104414 




TRAP 

4932 043206 

062706 

000006 


31$: 

ADD 

4933 043212 

032777 

002000 

171136 

BIT 

4934 043220 

001412 




BEQ 

493: 043222 

012746 

007440 



MOV 

4936 043226 

012746 

007060 



MOV 

4937 043232 

012746 

000002 



MOV 

4938 043236 

010600 




MOV 

4939 043240 

104414 




TRAP 

4940 043242 

062706 

000006 


32$: 

ADD 

4941 043246 

032716 

000001 


BIT 

4942 043252 

001532 




BEQ 

4943 043254 

005777 

171076 



TST 

4944 043260 

100012 




BPL 

4945 043262 

012746 

007444 



MOV 

4946 043266 

012746 

007060 



MOV 

4947 043272 

012746 

000002 



NOV 

4948 043276 

010600 




MOV 

4949 043300 

104414 




TRAP 

4950 043302 

062706 

000006 

171042 

33$: 

ADD 

4951 043306 

032777 

040000 

BIT 

4952 043314 

4953 

001415 



;NLX4 

BEQ 

4954 




• 


4955 

4956 043316 

005767 

136732 



TST 

4957 043322 

001012 




BNE 

4958 043324 

012746 

007450 



MOV 

4959 043330 

012746 

007060 



MOV 

4960 043334 

012746 

000002 



MOV 

4961 043340 

010600 




NOV 

4962 043342 

104414 




TRAP 

4963 043344 

4964 043350 

m 

000006 

020000 

171000 

34$: 

ADD 

BIT 

4965 043356 

001412 




BEQ 

4966 043360 

496 7 043364 

012746 

007454 



MOV 

012746 

007060 



MOV 

4968 043370 

012746 

000002 



MOV 


SP.RO 

14 

06, SP 
#1 .2(SP) 

32i 

#10000,aHL.REG*10 

30$ 

#ML82.-(SP> 

#FMT15.-<SP> 

#2.-(SP> 

SP.RO 

14 

#6.SP 

#4000. iML. REG+10 
31$ 

#MLB3.-(SP> 

#FMT15,-<SP> 

#2,-<SP> 

SP.RO 

14 

06.SP 

02000, 8ML. REG+10 
32$ 

#ML84.-(SP> 

#FMT15,-<SP> 

#2.-<SP> 

SP.RO 

14 

06,SP 
01, (SP) 

38$ 

8ML.REG+10 

33$ 

#HLB5.-(SP) 

#FMT15,-(SP> 

#2,-<SP> 

SP.RO 

14 

#6.SP 

#40000, 8ML. REGGIO 
34$ 

SYSTEM ERROR DETECTOR 

ECCDIS 

34$ 

#NLB6,-(SP> 

>"FMT15,-(SP) 

#2,-<SP> 

SP.RO 

14 

#6 .SP 

#20000, 8ML.REG+10 
35$ 

#ML87.-(SP> 

#FMT15,-(SP> 

#2,-<SP> 


SEO OHO 


; SP,* 

; *,ERR2 


; SP,* 


; SP.* 


; SP.* 

; *,ERR3 


; SP,* 


3608 

3620 

3624 


3626 


3628 


3632 

3636 


27-Mar-1982 19:24:42 
27-Mar-1982 19:23:44 


3638 

TOPS 

PA:< 


SP,* 


3640 



L 11 
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4969 043374 

010600 




MOV 

SP,RO 

4970 043376 

104414 




TRAP 

1 4 

4971 043400 

062706 

000006 



ADD 

#6.SP 

4972 043404 

032777 

001000 

170744 

35$: 

BIT 

#lOOO,aML.REG*10 

4973 043412 

001412 




BEQ 

36$ 

4974 043414 

012746 

007460 



MOV 

#MLB8.-(SP) 

4975 043420 

012746 

007060 



MOV 

#FMT15,-(SP) 

4976 043424 

012746 

000002 



MOV 

#2,-(SP) 

4977 043430 

010600 




MOV 

SP,RO 

4978 043432 

104414 




TRAP 

1 4 

4979 043434 

062706 

000006 



ADD 

#6.SP 

4980 043440 

032777 

000400 

170710 

36$: 

BIT 

A4u0,iML.REG*10 

4981 043446 

001416 




BEQ 

37$ 

4982 043450 

032777 

040000 

170732 


81 T 

#40000, aML.REG+42 

4983 043456 

001012 




BNE 

37$ 

4984 043460 

012746 

007464 



MOV 

#MLB9,-(SP) 

4985 043464 

0127*6 

007060 



MOV 

#FMT15,-(SP) 

4986 043470 

012746 

000002 



MOV 

#2,-(SP) 

4987 043474 

010600 




MOV 

SP. RO 

4988 043476 

104414 




TRAP 

14 

4989 043500 

062706 

000006 



ADD 

#6.SP 

4990 043504 

032777 

020000 

170634 

37$: 

BIT 

#20000, aML. REG 

4991 043512 

001412 




BEQ 

38$ 

4992 043514 

012746 

007472 



MOV 

#MLB10,-(SP> 

4993 043520 

012746 

007060 



MOV 

#FNT15,-(SP) 

4994 043524 

012746 

000002 



MOV 

#2,-( SP) 

4995 043530 

010600 




MOV 

SP,RO 

4996 043532 

104414 




TRAP 

14 

4997 043534 

062706 

000006 



ADD 

#6,SP 

4998 043540 

032701 

000001 


38$: 

BIT 

#1 #R1 

4999 043544 

001524 




BEQ 

44$ 

5000 043546 

032777 

040000 

170606 


BIT 

#40000, dML.REG+14 

5001 043554 

001412 




BEQ 

39$ 

5002 043556 

012746 

007500 



NOV 

#NLB11,-(SP) 

5003 043562 

012746 

007060 



NOV 

#FNT15,-<SP) 

5004 043566 

01 2746 

000002 



MOV 

#2,-(SP) 

5005 043572 

010600 




NOV 

SP,RO 

5006 043574 

104414 




TRAP 

14 

5007 043576 

062706 

000006 



ADD 

#6,SP 

5008 




;MLX4 



5009 




9 


SVSTEN ERROR DETECTOR 

5010 

5011 043602 

032777 

002000 

170552 

39$: 

BIT 

#2000, 8NI. REG* 14 

5012 043610 

001412 




BEQ 

40$ 

5013 043612 

012746 

007504 



NOV 

#NLB12,-<SP> 

5014 043616 

012746 

007060 



NOV 

#FNT15,-(SP) 

5015 043622 

012746 

000002 



NOV 

#2,-< SP) 

5016 043626 

010600 




NCV 

SP.RO 

5017 043630 

104414 




TRAP 

14 

5018 043632 

062706 

000006 



ADD 

#6.SP 

5019 043636 

032777 

001000 

170516 

40$: 

BIT 

#1000,8NL.REG*14 

5020 043644 

001412 




BEQ 

41$ 

5021 043646 

012746 

007510 



NOV 

#NIB13,-<SP) 

5022 043652 

012746 

007060 



NOV 

#FNT15,-(SP) 

5023 043656 

012746 

000002 



NOV 

#2,-<SP) 

5024 043662 

010600 




NOV 

SP, RO 

5025 043664 

104414 




TRAP 

14 


SP.* 


SP,* 


; SP,* 


SEO 0141 

3642 

3646 

3648 


; SP,* 

; *,ERR4 


; SP,* 


; SP,* 


; SP,* 


3652 

3656 


27- Mar-1982 19:24:42 
27-Mar-1982 19:23:44 


TOPS 

PA:< 

3658 


3660 


I 




SCO 0142 


; S P,* 

0 

; SP,* 

0 

; SP,* 

; *,ERR5 
• 

; SP,* 


; SP,* 

; SP,* 


3662 


3664 


3666 


3670 

3674 


3676 

27-Mar- 1982 19:24:42 TOPS 
27-Mar-1982 19:23:44 PA:< 


3678 


; *,ERR6 


3690 

3692 


CZMLBBO PERFORMANCE EXERCISER 
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SEQ 0143 


5083 044164 

5084 044166 

5085 044170 

5086 044172 

5087 044176 

5088 044200 

5089 044206 

5090 044210 

5091 044214 

5092 044216 

5093 044220 

5094 044222 

5095 044226 

5096 044230 

5097 044234 

5098 044236 

5099 044240 

5100 044242 

5101 044250 

5102 044252 

5103 044260 

5104 044262 

5105 044266 

5106 044272 

5107 044276 

5108 044300 

5109 044302 

5110 044306 

5111 044312 

5112 044314 

5113 044316 

5114 044320 

5115 044324 


000455 
006003 
103003 
012700 
000450 
032766 
001403 
012700 
000441 
006001 
103003 
012700 
000434 
032716 
001024 
006t 02 

103422 

032767 

001416 

032767 

001012 

012746 

012746 

012746 

010600 

104414 

062706 

012705 

010500 

000401 

005000 

062706 

000207 


000005 

000001 000002 4 Vi: 
000002 


000003 

000001 


000001 136010 

000001 170060 

010140 

007072 

000002 


000006 

000001 


000006 


BR 54$ 

ROR R3 

BCC 49$ 

MOV #5,R0 

BR 54$ 

BIT *1,2<:>P> 

BEQ 50$ 

MOV 02 . RO 

BR 54* 

ROR R1 

BCC 51$ 

MOV *3 f R0 

BR 54* 

BIT *1 £ (SP> 

BNE 52* 

ROR R2 

BIO 52$ 

BIT #1 X ERR0UT 

BEQ 52* 

BIT #1 £ RETRYING 

BNE 52* 

MOV *PHF11,-(SP> 

MOV #SAY1,-(SP> 

MOV 02.~(S P) 

MOV SP,RO 

TRAP 14 

ADD #6,SP 

MOV #1 ,R5 

MOV R5,R0 

BR 54* 

CLR RO 

ADD 06. SP 

RTS PC 


; Routine Size: 647 words 
;MLX4 

; SYSTEM ERROR DETECTOR 


*,ERR2 


*,ERR3 


; SP,* 


27-Mar-1982 19:24:42 
27-Mar-1982 19:23:44 


; Maximum stack depth per invocation: 15 words 


IZMLBBO PERFORMANCE EXERCISER 
SYSERR SYSTEM ERROR OETECTOR 


MACRO Ml 113 29-MAR-82 13:41 


B 12 
PAGE 13 2 


SEQ 0144 


5129 ;MLX4 

5130 ; 

5131 

5132 ; 

5133 ; 

5134 ; 

5135 ; 

5136 ; 

5137 ; 

5138 ; 

5139 ; 

5140 ; 

5141 ; 

5142 ; 

5143 ; 

5144 ; 

5145 ; 

5146 ; 

5147 ; 

5148 ; 

5149 ; 

5150 ; 

5151 ; 

5152 ; 

5153 ; 

5154 ; 

5155 ; 

5156 ; 

5157 ; 

51 58 ; 

5159 ; 

5160 ; 

5161 ; 

5162 ; 

5163 ; 

5164 ; 

5165 ; 

5166 ; 

5167 ; 

5168 ; 

5169 ; 

5170 ; 

5171 ; 

5172 ; 

5173 ; 

5174 ; 

5175 ; 

5176 ; 

5177 ; 

5178 ; 

5179 ; 

5180 ; 

5181 ; 

5182 ; 

5183 ; 


DATA COMPARISON ROUTINE 


27-Mar-1982 19:24:42 
?7-Mar- 1982 19:23:44 


TOPS -20 Bliss-16 V2(212> 
PA:<NEALE>MLX4.BU.5 (23) 


3719 

3720 

3721 

3722 

3723 

3724 

3725 

3726 

3727 

3728 

3729 

3730 

3731 

3732 

3733 

3734 

3735 

3736 

3737 

3738 

3739 

3740 

3741 

3742 

3743 

3744 

3745 

3746 

3747 

3748 

3749 

3750 

3751 

3752 

3753 

3754 

3755 

3756 

3757 

3758 

3759 

3760 

3761 

3762 

3763 

3764 

3765 

3766 

3767 

3768 

3769 

3770 


Xsbttl 'DATA COMPARISON ROUTINE' 
routine DOUBLE CHECK (W.POINTER. R.POINTER. COUNT) = 
begin * !* 1 * 


ROUTINE: 

PURPOSE: 


ARGUMENTS: 


ESULTS: 


D0U8LE.CHECK (W.POINTER .R.POINTER . COUNT) 

TO DOUBLE CHECK THE ECC DETECTION LOSIC AFTER A 
SUCCESSFUL READ COMMAND. THE WRITE AND READ BUFFERS 
ARE COMPARED. AND NO ERRORS SHOULD BE FOUND UNDER 
NORMAL CIRCUMSTANCES. 

U POINTER - POINTER TO THE WRITE BUFFER 
R'POINTER = POINTER TO THE READ BUFFER 
COUNT = THE NUMBER OF WORDS TO COMPARE 

VALUE RETURNED IS EITHER: 

0 = NO ERRORS WERE FOUND 

N > 0 = ADDRESS IN WRITE BUFFER WHERE ERROR WAS FOUND 


local 

VALUE . 

OFFSET. 

GOOD. 

BAD; 

label 

LOOP; 

OFFSET = 0; 

VALUE = 0; 

> ; 
begin 

incr I from 1 to .COUNT do 
begin 

GOOD = .(.W POINTER ♦ .OFFSET); 

BAD = .(.R.POINTER ♦ .OFFSET); 

if .GOOD eql .BAD 
then 

OFFSET = .OFFSET ♦ 2 

else 

begin 

VALUE = (.W.POINTER ♦ .OFFSET); 

leave LOOP; 

end; 


!* 2 * 


! * 3 * 


!* 4 * 

! ADDRESS OF GOOD 
•* 4 * 

3 * 

2 * 


C 12 
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SYSERR SYSTEM ERROR DETECTOR 


5185 ;HLX4 






27-Mar-1982 19:2 

4:42 TOPS-20 Blfss-16 V2C212) 

5186 ; 


DATA COMPARISON ROUTINE 



27-Mar-1982 19:2 

3:44 PA:<NEALE>MLX4.BLI.5 (23) 

5187 








5188 ; 

3771 

return 

.VALUE; 



.'EITHER 0 OR THE 

ADDRESS OF GOOD DATA 

5189 ; 

cin? 

3772 

end; 




!* 1 * 


5194 




.S8TTL 

DOUBLE. CHECK 

DATA COMPARISON ROUTINE 

5198 044326 



DOUBLE. 

CHECK: 




5199 044326 

004167 

141002 


JSR 

R1.SSAVE5 


• 

* 

5200 044332 

005746 



TST 

-(SP) 



5201 044334 

005003 



CLR 

R3 


; OFFSET 

5202 044336 

005001 



CLR 

R1 


; VALUE 

5203 044340 

005002 



CLR 

R2 


; I 

5204 044342 

000417 



BR 

3S 



5205 044344 

010304 


IS: 

MOV 

R3.R4 


; OFFSET.* 

5206 044346 

066604 

000024 


ADD 

24(SP) ,R4 


; y. POINTER,* 

5207 044352 

011416 



MOV 

(R4),(SP) 


; *,6000 

5208 044354 

010305 



MOV 

R3.R5 


; OFFSET,* 

5209 044356 

066605 

000022 


ADD 

22(SP).R5 


; R. POINTER,* 

5210 044362 

011500 



MOV 

(R5).R0 


; *,8AD 

5211 044364 

021600 



CMP 

(SP) ,R0 


; *,BAD 

5212 044366 

001003 



BNE 

2$ 



5213 044370 

062703 

000002 


ADD 

#2,R3 


; *, OFFSET 

5214 044374 

000402 



BR 

3$ 


• 

5215 044376 

010401 


2$: 

MOV 

R4.R1 


; *, VALUE 

5216 04*400 

000404 



BR 

4$ 


• 

9 

5217 044402 

005202 


3$: 

INC 

R2 


; I 

5218 044404 

020266 

000020 


CMP 

R2,20(SP) 


; I, COUNT 

5219 044410 

003755 



BLE 

IS 



5220 044412 

010100 


4S: 

MOV 

R1.R0 


; VALUE,* 

5221 044414 

005726 



TST 

(SP)* 



5222 044416 

COOT 

000207 



RTS 

PC 




5224 ; Routine Size: 29 words 

5225 ; Maximum stack depth per invocation: 7 words 

5230 

5231 


SEQ 0145 


3720 

3749 

3750 
3754 

3756 

3757 


3759 

3761 

3759 

3764 

3765 
3754 


3721 

3720 



iZ«L880 PERFORMANCE EXERCISER MACRO H1113 
DOUBLE. CHECK DATA COMPARISON ROUTINE 
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D 12 
PAGE 134 


5233 

5234 

5235 

5236 

5237 

5238 

5239 

5240 

5241 

5242 

5243 

5244 

5245 

5249 

5250 

5254 

5255 

5256 

5257 

5258 

5263 

5264 


SEO 0146 


MLX4 


COMMAND INITIATION AND TERMINATION 


?7-Mar-198i 

?7-Mar-198* 


19:24:42 

19:23:44 


TOPS-20 Bliss-16 V2(212) 
PA:<N£ALE>MLX4.BII.5 (24) 


3773 

3774 

3775 

3776 

3777 

3778 

3779 

3780 

3781 

3782 


044420 104422 
044422 000207 


INITIATION AND 
: novalue = 


TERMINATION* 


Zsbttl 'COMMAND 
routine WAITER : 
begin 

♦ 

THIS ROUTINE DOES NOTHING, BUT IT IS CALLED BY 'START IT' TO 
JMSTE TIME WHILE WAITING TO BEGIN OR END AN ML11 TRANSFER. 

BREAK; 

return; 

end; 


WAITER: 


.S8TTL 

TRAP 

RTS 


WAITER 

22 

PC 


COMMAND INITIATION AND TERMINATION 


3775 

3774 


Routine Size: 2 words 

Maximum stack depth per invocation: 0 words 
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SEQ 0147 


5266 

5267 

5268 

5269 

5270 

5271 

5272 

5273 

5274 

5275 

5276 

5277 

5278 

5279 

5280 

5281 

5282 

5283 

5284 

5285 

5286 

5287 

5288 

5289 

5290 

5291 

5292 

5293 

5294 

5295 

5296 

5297 

5298 

5299 

5300 

5301 

5302 

5303 

5304 

5305 

5306 

5307 

5308 

5309 

5310 

5311 

5312 

5313 

5314 

5315 

5316 

5317 

5318 

5319 

5320 


COMMAND INITIATION AND TERMINATION 


>7-M»r-198i 

>7-Mar-198< 


19:24:42 TOPS-20 Bliss-16 V2(212) 
19:23:44 PA:<NEALE>HLX4.BlI.5 ( 25 ) 


routine START.IT (COMMAND, l UN, URDCNT, BUFFER, SECTOR) = 
begin 


3796 

3797 

3798 

3799 

3800 

3801 

3802 

3803 

3804 

3805 

3806 

3807 

3808 

3809 


ROUTINE: 

PURPOSE: 


ARGUMENTS: 


RESULTS: 


S TART J T ( COMMAND , LUN, WRDCNT ,BUF F ER , SE C TOR) 

TO INITIATE A TRANSFER TO OR FROM THE Hill, 

TO UAIT FOR THE TRANSFER TO COMPLETE, AND TO CALL 
THE 'SYSERR' ROUTINE TO LOOK FOR RESULTING ERRORS. 

(1) COMMAND - THE FUNCTION CODE FOR THE TYPE OF TRANSFER 

DESIRED. THIS CODE WILL BE SENT TO THE HLCS1 
REGISTER TO START THE OPERATION, SINCE IT 
ALSO CONTAINS THE GO BIT. 

(2) LUN * LOGICAL UNIT NUMBER 

(3) URDCNT ~ NUMBER OF 16-BIT WORDS TO TRANSFER 

(4) BUFFER - THE ADDRESS IN MAIN MEMORY OF THE SELECTED 

WRITE OR READ BUFFER 

(5) SECTOR THE TRANSFER'S STARTING ADDRESS IN THE Mill 

VALUES RETURNED ARE IDENTICAL TO THOSE DEFINED MOVE IN 
THE 'SYSERR' ROUTINE. 


local 

TFNP 

READY.BIT. 

RTN; 

label 

LOOP; 


UAIT FOR DRIVE READY: 


UNIT = .DRIVE; 

READY.BIT = 0; 

until .READY.BIT neq 0 do 
begin 
WAITER ()■ 

READY.BIT's .MLCS1 and BIT7; 
end; 


INITIALIZE BEFORE EACH TRANSFER: 

i 

CLR = 1; 


! SELECT THE UNIT 


•UAIT FOR DRIVE READY 


•CONTROLLER CLEAR 


CiMiaSO PERFORMANCE EXERCISER MACRO Ml 1 13 
WAI1ER COMMAND INITIATION AND TERMINATION 


29-MAR-82 13:41 PAGE 


F 12 
136 


SEO 0148 


‘322 

5323 

5^-4 

5325 

5326 

5327 

5328 

5329 

5330 

5331 

5332 

5333 

5334 

5335 

5336 

5337 

5338 

5339 

5340 

5341 

5342 

5343 

5344 

5345 

5346 

5347 

5348 

5349 

5350 

5351 

5352 

5353 

5354 

5355 

5356 

5357 

5358 

5359 

5360 

5361 

5362 

5363 

5364 

5365 

5366 

5367 
536fi 

5369 

5370 

5371 

5372 

5373 

5374 

5375 

5376 


;MLX4 


3835 

3836 

3837 

3838 

3839 

3840 

3841 

3842 

3843 

3844 

3845 

3846 

3847 

3848 

3849 

3850 

3851 

3852 

3853 

3854 

3855 

3856 

3857 

3858 

3859 

3860 

3861 

3862 

3863 

3864 

3865 

3866 

3867 

3868 

3869 

3870 

3871 

3872 

3873 

3874 

3875 

3876 

3877 

3878 

3879 

3880 

3881 

3882 

3883 

3884 

3885 

3886 


COMMAND INITIATION AND TERMINATION 

DELAY (1); 

MLCS1 = DRV.CLR; 

DELAY (1); 

UNIT = .DRIVE; 

SET UP THE REQUIRED ENABLE/DISABLE BITS: 
DCK.EN = 1; 

if .REFRESH then REF .MAR = 1; 
if .ECCDIS then ECC.DIS = 1; 


27-Mar-1982 19:24:42 
27-Mar-1982 19:23:44 


T0PS-20 Bliss-16 V2(212) 
PA:<NEALE>MLX4.8Ll .5 (25) 


.'DELAY FOR CLEAR TO COMPLETE 
.'DRIVE CLEAR 

.'DELAY FOR CLEAR TO COMPLETE 
.'PUT BACK THE DRIVE NUMBER 


.'ALLOW REPORTING OF DATA CHECK ERRORS 

.'TURN ON REFRESH MARGINING IF OPERATOR SELECTED IT 

! TURN OFF ECC IF OPERATOR SELECTED IT 


SEND REQUIRED INFORMATION TO DEVICE REGISTERS: 


MLWC = -(.WRDCNT); 
MLBA = .BUFFER; 
MLDA = .SECTOR; 


GO: 


I AM.DONE = INACTIVE; 
TEMP = .COMMAND ♦ BIT6; 
MLCS1 = .TEMP; 


i unftD rniMT dfgistfr 

'BUS ADDRESS REGISTER (ADDRESS IN MAIN MEMORY) 
IDESIRED SECTOR ADDRESS REGISTER (ADDRESS IN ML11) 


.'SET THE INTERRUPT ENABLE BIT WHILE LOADING THE 
.'CONTROL AND STATUS REGISTER WITH THE COMMAND 


WAIT FOR DRIVE TO FINISH: 


LOOP 


begin 

READY.8IT = 0; 

until .I.AM DONE do 
begin 
WAITER (); 

READY.8IT = .MLCS1 and BIT7; 

if ((.READV.BIT neq 0) and (.I.AM.DONE eql INACTIVE)) 
then 

begin 

if (not .RETRYING) 
then 

begin 

SArWHO (.LUN); 

if .COMMAND eql WR.CMD then RTN = WRD16; 

if .COMMAND eql RD.CMD then RTN = WRD17; 

if .COMMAND eql WC.CMD then RTN - PHR1; 


.ZMLB8C ’tHfORHANCE EXERCISER 

I WAITER COMMAND INITIATION ANO 


MACRO NT 113 
TERMINATION 


29-MAR-82 13-41 PAGE 


G 12 
137 


SEO OH? 


5378 

5379 

5380 

5381 

5382 

5383 

5384 

5385 

5386 

5387 

5388 

5389 

5390 

5391 

5392 

5393 

5394 

5395 

5399 

5400 

5401 

5402 

5403 

5407 

5408 

5409 

5410 

541 1 

5412 

5413 

5414 

5415 

5416 

5417 

5418 

5419 

5420 

5421 

5422 

5423 

5424 

5425 

5426 

5427 

5428 

5429 

5430 

5431 

5432 


;KLX4 


3887 

3888 

3889 

3890 

3891 

3892 

3893 

3894 

3895 
38% 

3897 

3898 

3899 

3900 

3901 


044424 

044424 

044430 

044432 

044436 

044440 

044442 

044446 

044452 

044456 

044464 

044470 

044472 

044474 

044476 

044502 

044506 

044512 

044514 

044522 

044526 

044530 

044534 

044536 

044540 

044542 


COMMAND INITIATION AND TERMINATION 


>7-Mar-1982 19:24:42 T0PS-20 Bliss-16 V2(212) 
>7-Mar-1982 19:23:44 PA;<NEALE>MLX4.8U .5 (25) 


PRINTS (FMT6, .WRDCNT, .RTN. WRD15, .SECTOR); 

! 'BEGAN my WORD (???) AT SECTOR llllll' 

.'HHERE (???) IS EITHER 'WRITE', 'READ' OR 'WRITE CHECK' 
PRINTS (SAY1, HSGO); 

! INTERRUPT DID NOT OCCUR, BUT THE TRANSFER IS COMPLETE 
end; 


leave LOOP; 
end; 

end; 

return SYSERR (.LUN); 
end; 


JPASS ALONG THE ERROR VALUES THAT 'SYSERR' OBTAINED. 


.GL08L LSDLY 


004167 

005746 

016604 

010401 

006301 

016102 

016203 

042703 

142777 

150377 

005003 

020707 

001007 

004767 

017703 

042703 

000770 

152777 

012700 

001410 

016702 

001403 

005016 

005302 

001375 


140664 

000024 


034422 

000006 

177770 

000007 

167666 


177716 

167640 

177577 

000040 

000001 

135362 


167672 


1 $: 


167634 2$: 


.S8TTL 
START. IT: 

JSR 
TST 
MOV 
MOV 
ASL 
MOV 
MOV 
BIC 
BICB 
B1S8 
CLR 
CMP 
8NE 
JSR 
MOV 
BIC 
BR 
BJSS8 
MOV 
BEO 
NOV 
BEQ 
CLR 
DEC 
BNE 


START.IT COMMAND INITIATION AND TERMINATION 


3S: 


4$: 


R1.SSAVE4 

-(SP) 

24CSP) ,R4 

R4,R1 

R1 

PTABLE . ADDR ( R1 ) , R2 

6(R2).R3 

#1 777^0, R3 

#7.aML.REG*10 

R3,8ML.REG*10 

R3 

PC, PC 

2 $ 

PC, WAITER 

aML.REC.R3 

#17h77.R3 

1$ 

#40,3Nt.REG*10 

#1,R0 

6 $ 

LSDLY, R2 

(SP) 

R2 

4S 


; LUN.* 


3783 

3822 


READY. BIT 


•.READY. BIT 
*, READY. BIT 


*.$STNP2 

•.SSTMP1 

SSTMP 

SSTMP1 


3823 

3825 

3827 

3828 

3825 

3834 

3835 


M 12 

CZMLBBO PERFORMANCE EXERCISER MACRO Mil 13 29-MAR-82 13:41 PAGE 138 
START.IT COPHAND INITIATION AND TERMINATION 


5434 




;MLX4 




5435 




9 


COMMAND INITIATION AND 

termination 

5436 

5437 044544 

005300 



5$: 

DEC 

RO 

; $$TMP2 

5438 044546 

000767 




BR 

3$ 


5439 044550 

012777 

000011 

167570 

6$: 

MOV 

fll.BML.REG 

fl.RO 

ioi 

; *,$$TMP2 

5440 044556 

012700 

000001 



MOV 

5441 044562 

001410 



7$: 

BED 

; *,$$TMP1 

5442 044564 

016702 

135326 



MOV 

L$DLY.R2 

5443 044570 

001403 




BEQ 

9$ 

; $$TMP 

5444 044572 

005016 



8$: 

CLR 

(SP) 

5445 044574 

005302 




DEC 

R2 

; $$TNP1 

5446 044576 

001375 




BNE 

8$ 

; $$TMP2 

5447 044600 

005300 



9$: 

DEC 

RO 

5448 044602 

000767 




BR 

7$ 


5449 044604 

016102 

034422 


10$: 

MOV 

PTABLE.ADDRCRD.R2 


5450 044610 

016201 

EM 



MOV 

6(R2).R1 
fl 777ft), R1 


5451 044614 

042701 

177770 



B1C 


5452 044620 

142777 

EM 

167530 


B1CB 

f7,8NL.REG*10 


5453 044626 

150177 

167524 



B1S6 

R1.BNL.REG+10 


5454 044632 

152777 

000004 

167532 


BJSB 

f4.SML.REG+24 

0 

5455 044640 

032767 


135404 


BIT 

fl .REFRESH 

ni 

• 

9 

5456 044646 

001403 




BEQ 


5457 044650 

152777 

000200 

167514 


BISB 

f200,BML.REG+24 


5458 044656 

032767 

000001 

135370 

11$: 

BIT 

fl.ECCDIS 

12i 

• 

9 

5459 044664 

001403 




BEQ 


5460 044666 

152777 

000002 

167476 


BISB 

f2, BML.REG+24 


5461 044674 

016677 

000022 

167446 

12$: 

MOV 

22(SP) .BML.REG+2 

; URDCNT,* 

5462 044702 

005477 

167442 



NEG 

BML.REG+2 


5463 044706 

016677 

000020 

167436 


MOV 

20(SP) ,BNL .REG+4 

; BUFFER.* 

5464 044714 

016677 

000016 

167432 


MOV 

16(SP) .BNL.REG+6 

; SECTOR.* 

5465 044722 

005067 

167410 



CLR 

I. AM. DONE 

9 

5466 044726 

016602 

000026 



MOV 

26(SP) ,R2 

; COMMAND.* 

5467 044732 

010201 




MOV 

R2.R1 

flOO.RI 

; *,TEMP 

5468 044734 

062701 

000100 



ADD 

; ‘.TEMP 

5469 044740 

010177 

167402 



MOV 

R1.BML.REG 

; TEMP.* 

5470 044744 

005003 




CLR 

R3 

; READY. BIT 

5471 044746 

032767 

000001 

167362 

13$: 

BIT 

f 1,1. AM. DONE 

17i 

0 

5472 044754 

001067 




BNE 


5473 044756 

004767 

177436 



JSR 

PC „ WAITER 

• 

0 

5474 044762 

017703 

167360 



NOV 

BNL.REG.R3 

f177577.R3 

; *, READY. BIT 

5475 044766 

042703 

177577 



BIC 

; *, READY. BIT 

5476 044772 

001765 




BEQ 

13$ 

• 

0 

5477 044774 

005767 

167336 



TST 

I , AM. DONE 

l5$ 


5478 045000 

001362 


167330 


BNE 


5479 045002 

032767 

000001 


BIT 

fl .RETRYING 

I7i 


5480 045010 

001051 




BNE 


5481 045012 

010446 




NOV 

R4.-CSP) 


5482 045014 

004767 

170504 



JSR 

PC.SAYUHO 


5483 045020 

020227 

000061 



CMP 

R2.f61 

ui 


5484 045024 

001002 




BNE 

: *,RTN 

5485 045026 

012701 

007256 



MOV 

fURD16.R1 

5486 045032 

020227 

000071 


14$: 

CMP 

R2,#71 


5487 045036 

001002 




BNE 

15§ 

; *.RTN 

5488 045040 

012701 

007264 



MOV 

fWRDI 7.R1 


SEO 0150 

27-Mar-1982 19:24:42 TOPS 
27-M«r-1982 19:23:44 PA:< 


3836 

3837 


3838 


3842 

3844 


3846 


3851 

3852 

3853 

3857 

3858 


3859 

3865 

3867 

3869 

3870 

3872 


3876 

3879 

3881 


3883 


CZMLBBO PERFORMANCE EXERCISER MACRO Mil 13 
START.IT COMMAND INITIATION AND TERMINATION 


29-MAR-82 13: AT PAGE 


139 2 


SEO 0151 


5490 



;MLX4 



27-Mar- 1982 

19:24:42 

TOPS 

5491 



• 

0 


COMMAND INITIATION AND 

TERMINATION 27-Mar-1982 

19:23:44 

PA:< 

5492 

5493 045044 

020227 

000051 

15$: 

CMP 

R2.#51 

16i 

m 


3885 

5494 045050 

001002 



BNE 




5495 045052 

012701 

007714 


MOV 

fPNRI.RI 

20CSPMSP) 

; *,RTN 



5496 045056 

016616 

000020 

16$: 

MOV 

; SECTOR.* 


3887 

5497 045062 

012746 

007246 


MOV 

#WRD15,-(SP) 

RI.-(SP) 




5498 045066 

010146 



MOV 

; RTN,* 

; URDCNT.* 



5499 045070 

016646 

000030 


MOV 

30(SP).-(SP> 



5500 045074 

012746 

006376 


MOV 

#FMT6,-(SP> 

#5.-<§P) 




5501 045100 

012746 

000005 


MOV 




5502 045104 

010600 



MOV 

SP.RO 

; SP.* 



5503 045106 

104414 



TRAP 

14 




5504 045110 

012716 

011002 


MOV 

IMS60.(SP> 

• 

0 


3890 

5505 045114 

012746 

007072 


MOV 

fSATI.-CSP) 




5506 045120 

012746 

000002 


MOV 

#2,-(SP) 




5507 045124 

010600 



MOV 

SP.RO 

; $P.* 



5508 045126 

104414 



TRAP 

14 




5509 045130 

062706 

000020 


ADD 

#20. SP 

• 

• 


3878 

3900 

5510 045134 

010446 


17$: 

MOV 

R4.-CSP) 

0 


5511 045136 

004767 

174546 


JSR 

PC.STSERR 

(SP)*,(SP>* 




5512 045142 

022626 



CMP 

• 

0 


3783 

5513 045144 

000207 



RTS 

PC 





5514 

5515 

5516 

5521 

5522 


Routine Site: 169 words 
Maximal stack depth per Invocation: 


14 words 


j 
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SEQ 0152 


5524 ;MLX4 

5525 ; 

5526 

5527 ; 

5528 ; 

5529 ; 

5530 ; 

5531 ; 

5532 ; 

5533 ; 

5534 ; 

5535 ; 

5536 ; 

5537 ; 

5538 ; 

5539 ; 

5540 ; 

5541 ; 

5542 ; 

5543 ; 

5544 ; 

5545 ; 

5546 ; 

5547 ; 

5548 ; 

5549 ; 

5550 ; 

5551 ; 

5555 

5556 

5560 045146 

5561 045146 

5562 045152 

5563 045154 

5564 045160 

5565 045164 

5566 045170 

5567 045172 

5568 045200 

5569 045206 

5570 045214 

5571 045216 

5572 045224 

5573 045230 

5574 045232 

5575 045236 

5576 

5577 

5578 

5579 

5580 

5581 

5586 

5587 


COUNTING BYTES TRANSFERED 27-Mar-l 

Xsbttl 'COUNTING BYTES TRANSFERED' 
routine UP UR COUNT (WORD, COUNT) : novalue = 
begin 

UR_ COUNT = .WR.COUNT ♦ <.U0RD.C0UNT*2>; 

if .WR.COUNT geq 20000 
then 

begin 

UR THOUSANDS = .UR THOUSANDS ♦ 20; 

UR.COUNT = .UR.COURT - 20000; 

if .UR THOUSANDS geq 1000 
then 

begin 

UR THOUSANDS = .UR THOUSANDS - 1000; 
URlMILUONS = .UR.BILUONS ♦ 1; 

if .UR.MILLIONS Iss 0 then UR.MILLIONS = 0; 


27-Mar-1982 19:24:42 TOPS-20 Bliss-16 V2(212> 
27-M*r-1982 19:23:44 PA:<NEALE>MLX4.BLl.5 (26) 


016600 

006300 

066700 

010067 

020027 

002422 

062767 

162767 

026727 

002410 

162767 

005267 

100002 

005067 

000207 


return; 

end; 


000002 

167134 

167130 

047040 

000024 167116 
047040 167106 
167104 001750 

001750 167072 
167070 

167062 


.S8TTL UP. UR. COUNT COUNTING BYTES TRANSFERED 
UP. UR. COUNT: 

MOV 2(SP),RO ; WORD. COUNT,* 

ASL RO 

ADD UR. COUNT, RO 


MOV RO. UR. COUNT 

CMP R0,#47040 

BLT 1* 

ADD #24. UR. THOUSANDS 

SUB #47040, UR. COUNT 

CMP UR. THOUSANDS ,#1750 

BLT IS 

SUB #1750, UR. THOUSANDS 

INC UR. MILLIONS 

BP L IS 

CLR UR .MILLIONS 

S: RTS PC 

Routine Size: 29 words 
Maximum stack depth per invocation: 0 words 
MLX4 

COUNTING BYTES TRANSFERED 


; UR. COUNT,* 


27-Mar-1982 19:24:42 
27-Mar-1982 19:23:44 
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SEQ 0153 


5589 

5590 

5591 

5592 

5593 

5594 

5595 

5596 

5597 

5598 

5599 

5600 

5601 

5602 

5603 

5604 

5605 

5606 

5607 

5608 

5609 

5610 

5611 

5612 

5613 

5614 

5615 

5619 

5620 

5624 

5625 

5626 

5627 

5628 

5629 

5630 

5631 

5632 

5633 

5634 

5635 

5636 

5637 

5638 

5639 

5640 

5641 

5642 

5650 

5651 


045240 

045240 

045244 

045246 

045252 

045256 

045262 

045264 

045272 

045300 

045306 

045310 

045316 

045322 

045324 

045330 


016600 

006300 

066700 

010067 

020027 

002422 

062767 

162767 

026727 

002410 

162767 

005267 

100002 

005067 

000207 


COUNTING BYTES TRANSFERED 27-Mar-i 

routine UP.RD COUNT (WORD .COUNT) : novalue * 
begin 

RD.COUNT = .RD.COUNT ♦ (.W0RD.C0UNT*2); 

if .RD.COUNT geq 20000 
then 

begin 

RD.THOUSANDS = .RD THOUSANDS ♦ 20; 

RD.COUNT = .RD_ COURT - 20000; 

if .RD.THOUSANDS geq 1000 
then 

begin 

RD.THOUSANDS = .RD.THOUSANDS - 1000; 
RD.MILLIONS = .RD.flILLIONS ♦ 1; 

if .RD.MILLIONS Us 0 then RD.MILLIONS = 0; 


27-Mar-1982 19:24:42 T0PS-20 Bliss-16 V2(2 12) 
27-Mar-1982 19:23:44 PA:<N£ALE>MLX4.BLI .5 (27) 


return; 

end; 


000002 

167050 

167044 

047040 

000024 167032 
047040 167022 
167020 001750 

001750 167006 
167004 

166776 


.S8TTL UP.RD. COUNT COUNTING BYTES TRANSFERED 
UP.RD. COUNT: 

MOV 2(SP).R0 ; WORD. COUNT.* 

ASL RO 

ADD RD.COUNT.RO 

MOV RO.RD. COUNT 

CMP R0.#47040 ; RD.COUNT.* 

BLT IS 

ADD #24 .RD.THOUSANDS 

SUB #47040. RD.COUNT 

CMP RD.THOUSANDS. #1750 

BLT IS 

SUB #1750. RD.THOUSANDS 

INC RD.MILLIONS 

BPL IS 

CLR RD.MILLIONS 

IS: RTS PC 


; Routine Size: 29 words 
; Maximum stack depth per invocation: 0 words 



CZMLBBO PERFORMANCE EXERCISER MACRO Ml 11 3 
UP. RD. COUNT COUNTING BYTES TRANSFERED 

5653 

5654 

5655 

5656 

5657 

5658 

5659 

5660 

5661 

5662 

5663 

5664 

5665 

5666 

5667 

5668 

5669 

5670 

5671 

5672 

5673 

5674 

5675 

5676 

5677 

5678 

5679 

5683 

5684 


5691 


29-MAR-82 13:41 
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SEQ 0154 


5695 


5701 

5702 

5703 

5704 

5705 

5706 

5714 

5715 


;MLX4 




27-Mar-1982 

19:24:42 TOPS-20 

• 


COUNTING BYTES TRANSFERED 

27-Mar-1982 

19:23:44 PA : <NEA 


3951 

routine UP.WC.COUNT 

(UORDCOUNT) : novalue = 



3952 

bed in 





3953 

UC COUNT = .UC COUNT ♦ (.U0RD_C0UNT*2); 



3954 






3955 

if .WC.COUNT geq 

20000 




3956 

then 





3957 

begin 





3958 

UC THOUSANDS 

= .UC_THOUSANDS ♦ 20; 



3959 

WC.COUNT = . 

UC.COUNT - 

20000; 



3960 






_ 

if .UC THOUSANDS geq 1000 




then 





||^E * yl 

begin 





• *2 1 

WC THOUSANDS = .UC 

THOUSANDS - 1000; 




UC MILLIONS = .UC MILLIONS ♦ 1; 









!|K[ * ? j 

if .UC MILLIONS Iss 

0 then UC.MILLIONS = 0; 









jfK; • ? • 

end; 











3971 

end; 





3972 






3973 

return; 





3974 

end; 







.S8TTL 

UP. UC. COUNT COUNTING BYTES 

TRANSFERED 

045332 


UP. UC. COUNT: 



045332 

016600 

000002 

MOV 

2<SP).R0 

; UORD. COUNT.* 

045336 

006300 


ASL 

RO 


045340 

066700 

166764 

ADD 

UC.COUNT.RO 


045344 

010067 

166760 

MOV 

RO.UC. COUNT 


045350 

020027 

047040 

CMP 

RO .#47040 

; UC. COUNT,* 

045354 

002422 


8LT 

IS 


045356 

062767 

000024 166746 

ADD 

#24. UC. THOUSANDS 

9 

045364 

162767 

047040 166736 

SUB 

#47040,UC, COUNT 

9 

045372 

026727 

166734 001750 

CMP 

UC. THOUSANDS. #1750 

a 

a 

045400 

002410 


8LT 

IS 


045402 

162767 

001750 166722 

SUB 

#1750.UC. THOUSANDS 

• 

0 

045410 

005267 

166720 

INC 

UC.MILLIONS 

a 

• 

045414 

100002 


BPL 

IS 

# 

045416 

005067 

166712 

CLR 

UC.MILLIONS 


045422 

000207 

IS: 

RTS 

PC 

0 


3953 


3955 

3958 

3959 
3961 

3964 

3965 
3967 

3951 


Routine Size: 29 words 

Maximum stack depth per invocation: 0 words 
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SEQ 0155 


5717 

5718 

5719 

5720 

5721 

5722 

5723 

5724 

5725 

5726 

5727 

5728 

5729 

5730 

5731 

5732 

5733 

5734 

5735 

5736 

5737 

5738 

5739 

5740 

5741 

5742 

5743 

5744 

5745 

5746 

5747 

5748 

5749 

5750 

5751 

5752 

5753 

5754 

5755 

5756 

5760 

5761 

5765 

5766 

5767 

5768 

5769 

5770 

5771 


045424 

045430 

045434 

045436 

045442 

045446 

045450 


27-Mar- 1982 19:24:42 
27-Mar-1982 19:23:44 


Mill TRANSFER COMMANDS 

Xsbttl ’ML11 TRANSFER COMMANDS' 
routine write (LUN, WRDCNT, BUFFER, SECTOR) = 
begin 


ROUTINE: WRITE (LUN. WRDCNT, BUFFER, SEC TOR) 

PURPOSE: TO TRANSFER INFORMATION FROM MAIN MEMORY TO THE ML11 

AND TO DECIDE ON THE ADVISABILITY OF A RETRY. 

ARGUMENTS: SEE 'START.IT' ROUTINE ABOVE FOR DETAILS 


T0PS-20 Bliss-16 ¥2(212) 
PA : <NEALE>MLX4 .BLI . 5 (29) 


RESULTS: 


UPON TERMINATION OF THE TRANSFER, ERROR DETECTION OCCURS 
AND THE CONTENTS OF 'VALUE' BECOMES IMPORTANT IN TERMS OF 
WHETHER THE TRANSFER WAS COMPLETELY SUCCESSFUL OR WHETHER A 
RETRY SHOULD OR SHOULD NOT BE PERMITTED. 

THE VALUES RETURNED FOR THIS SUBROUTINE ARE THE SAME AS 
FOR THE SYSERR ROUTINE ABOVE. 


local 

VALUE, 

COMMAND; 

COMMAND = WR CMD; 

VALUE = START.IT (.COMMAND. .LUN. .WRDCNT, .BUFFER, .SECTOR); 


if ( not .RETRYING) then UP.WR.COUNT (.WRDCNT); 

if .VALUE eql 0 then return 0; .'NO ERRORS AT ALL 

if ((.ERROUT) and ( not .RETRYING)) then PRINTS (FMT6, .WRDCNT, WRD16, WRD15, .SECTOR); 

.''BEGAN YYYY WORD WRITE AT SECTOR ZZZZZZ' 
return .VALUE; 


004167 

012700 

010046 

016646 

016601 

010146 

016646 


137632 

000061 

000020 

000020 

000020 


.S8TTL WRITE ML11 TRANSFER COMMANDS 
WRITE: J SR R1.JSAVE2 ; 

MOV #61. RO ; *. COMMAND 

MOV RO.-(SP) ; COMMAND,* 

MOV 20(SP),-(SP) ; LUN.* 

MOV 20(SP).R1 ; WRDCNT.* 

MOV RI.-(SP) 

MOV 20(SP) ,-(SP> ; BUFFER,* 


CZMLBBO PERFORMANCE EXERCISER 
WRITE MLl 1 TRANSFER COMMANDS 


MACRO Mil 13 29-MAR-82 13:41 PAGE HA 


SEO 0156 


5773 

5774 

5775 

5776 045454 

5777 045460 

5778 045464 

5779 045466 

5780 045474 

5781 045476 

5782 045500 

5783 045504 

5784 045506 

5785 045510 

5786 045512 

5787 045516 

5788 045520 

5789 045526 

5790 045530 

5791 045536 

5792 045540 

5793 045544 

5794 045550 

5795 045554 

5796 045556 

5797 045562 

5798 045566 

5799 045570 

5800 045572 

5801 045576 

5802 045602 

5803 045604 

5804 045606 

5805 045610 

5806 

5807 

5808 

5813 

5814 


016646 

004767 

010002 

032767 

001004 

010146 

004767 

005726 

005702 

001003 

062706 

000433 

032767 

001423 

032767 

001017 

016646 

012746 

012746 

010146 

012746 

012746 

010600 

104414 

062706 

062706 

010200 

000207 

005000 

000207 


;MLX4 


000020 

176740 

000001 166644 


177442 


000012 

000001 134532 2$: 

000001 166602 

000022 

007246 

007256 

006376 

000005 


000014 

000012 


ML11 TRANSFER COMMANDS 


2 7-Ma r-1982 19:24:42 
27-Mar-1982 19:23:H 



MOV 

20(SP),-(SP) 

• 

0 


JSR 

PC, START. IT 



MOV 

R0.R2 

0 


BIT 

#1, RETRYING 

0 


BNE 

IS 



MOV 

RI.-(SP) 



JSR 

PC, UP. UR. COUNT 



TST 

<SP) + 


IS: 

TST 

R2 

0 


BNE 

2S 



ADD 

#12. SP 



BR 

4S 


2$: 

BIT 

#1 .ERROUT 

• 

0 


BEQ 

3S 



BIT 

#1 .RETRYING 



BNE 

3S 



MOV 

22(SP),-(SP) 

• 

0 


MOV 

#URD15,-(SP) 



MOV 

#WRD16,-(SP> 



MOV 

RI.-(SP) 



MOV 

#FMT6,-(SP) 



MOV 

#5.-(SP) 



MOV 

SP.RO 

0 


TRAP 

14 



ADD 

#14, SP 


3$: 

ADD 

#12. SP 

0 


MOV 

R2.R0 

0 


RTS 

PC 


4$: 

CLR 

RO 

0 


RTS 

PC 



; SECTOR,* 
; *, VALUE 


; VALUE 


; SECTOR,* 


; SP,* 


; VALUE.* 


; Routine Size: 59 words 

; Maximum stack depth per invocation: 14 words 


CZHLBBO PERFORMANCE EXERCISER 
WRITE ML11 TRANSFER COMMANDS 
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SEQ 0157 


5816 ;MLX4 


ML 11 TRANSFER COMMANDS 

4012 routine read (LUN, WRDCNT, BUFFER. SECTOR) * 


27-Mar-1982 19:24:42 
27-Mar-1982 19:23:44 


T0PS-20 Bliss-16 V2(212) 
PA : <NEALE>MLX4 .BLI . 5 (30) 


4013 

4014 

4015 

4016 

4017 

4018 

4019 

4020 

4021 

4022 

4023 

4024 

4025 

4026 

4027 

4028 

4029 

4030 

4031 

4032 

4033 

4034 

4035 

4036 

4037 

4038 

4039 

4040 

4041 

4042 

4043 

4044 

4045 

4046 

4047 


begin 

► 

ROUTINE: 

PURPOSE: 

ARGUMENTS: 

RESULTS: 


READ (LUN.URDCNT .BUFFER, SECTOR) 

TO TRANSFER INFORMATION FROM THE ML11 TO MAIN MEMORY 
USING A 'READ' COMMAND. 

SEE 'START.IT' ROUTINE ABOVE FOR DETAILS 

UPON TERMINATION OF THE TRANSFER, ERROR DETECTION OCCURS 
AND THE CONTENTS OF 'VALUE' BECOMES IMPORTANT IN TERMS OF 
WHETHER THE TRANSFER WAS COMPLETELY SUCCESSFUL OR WHETHER A 
RETRY SHOULD OR SHOULD NOT BE PERMITTED. 

THE VALUES RETURNED FOR THIS SUBROUTINE ARE THE SAME AS 
FOR THE SYSERR ROUTINE ABOVE. 


local 

VALUE. 

COMMAND; 

COMMAND - RD CMD* 

VALUE = STARLIT* (.COMMAS , .LUN, .WRDCNT, .BUFFER, .SECTOR); 


if ( not .RETRYING) then UP.RD.COUNT (.WRDCNT); 

if .VALUE eql 0 then return 0; !NO ERRORS AT ALL 

if ((.ERROUT) and ( not .RETRYING)) then PRINTS (FMT6, .WRDCNT, WRD17, WRD15, .SECTOR); 

! 'BEGAN YYVY WORD READ AT SECTOR UUU * 

return .VALUE; 

end; 

.SBTTL PEAD ML 11 TRANSFER COMMANDS 


5863 045612 

004167 

137444 

READ: JSR 

R1.$$AVE2 
#7 f.RO 

• 

m 


5864 045616 

012700 

000071 

MOV 

• 

e 

*, COMMAND 

5865 045622 

010046 


NOV 

R0,-(SP) 

• 

COMMAND,* 

5866 045624 

016646 

000020 

NOV 

20($P).-<SP) 

• 

0 

LUN.* 

5867 045630 

016601 

000020 

NOV 

20(SP),R1 

0 

WRDCNT,* 

5868 045634 

010146 


NOV 

RI.-(SP) 


BUFFER,* 

5869 045636 

016646 

000020 

NOV 

20($P).-(SP) 

• 

0 

5870 045642 

016646 

000020 

NOV 

20(SP),-(SP) 

0 

SECTOR.* 
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5872 





;MLX4 


Mill TRANSFER COMMANDS 



5873 

5874 

5875 





• 

9 




045646 

004767 

176552 



JSR 

PC, START. IT 



5876 

045652 

010002 




MOV 

RO ,R2 

• 

9 

*, VALUE 

5877 

045654 

032767 

000001 

166456 


BIT 

#1 .RETRYING 

9 


5878 

045662 

001004 



BNE 

1$ 



5879 

045664 

010146 




MOV 

RI.-(SP) 



5880 

045666 

004767 

177346 



JSR 

PC. UP. RD. COUNT 



5881 

045672 

005726 




TST 

(SP) + 



5882 

045674 

005702 



IS: 

TST 

R2 

• 

9 

VALUE 

5883 

045676 

001003 




BNE 

2$ 



5884 

045700 

062706 

000012 



ADD 

#12, SP 



5885 

045704 

000433 




BR 

4$ 



5886 

045706 

032767 

000001 

134344 

2$: 

BIT 

#1 .ERROUT 

9 


5887 

045714 

001423 




BEQ 

3$ 



5888 

045716 

032767 

000001 

166414 


BIT 

#1 .RETRYING 



5889 

045724 

001017 




BNE 

3$ 



5890 

045726 

016646 

000022 



MOV 

22(SP).-(SP) 

9 

SECTOR, 

5891 

045732 

012746 

007246 



MOV 

#WRD15,-(SP> 



5892 

045736 

012746 

007264 



MOV 

#URD17.-(SP> 



5893 

045742 

010146 




MOV 

RI.-(SP) 



5894 

045744 

012746 

006376 



MOV 

#FMT6,-(SP) 

#5,-(SP) 



5895 

045750 

012746 

000005 



MOV 



5896 

045754 

010600 




MOV 

SP.RO 

9 

SP,» 

5897 

045756 

104414 




TRAP 

14 



5898 

045760 

062706 

000014 



ADD 

#14. SP 



5899 

045764 

062706 

000012 


3$: 

ADD 

#12,SP 

9 


5900 

045770 

010200 




MOV 

R2.R0 

9 

VALUE,* 

5901 

045772 

000207 




RTS 

PC 



5902 

045774 

005000 



4$: 

CLR 

RO 

9 


5903 

5904 

5905 

045776 

000207 




RTS 

PC 







; Routine Size: 

59 words 



5906 

5911 

5912 





; Maximum stack 

depth per invocation: 

14 words 












SEQ 0158 

27-M*r-1982 19:24:42 TOPS 
27-M*r-1982 19:23:44 PA:< 


4039 

4041 

4043 


4012 

4013 

4012 
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SEO 0159 


5914 

5915 

5916 

5917 

5918 

5919 

5920 

5921 

5922 

5923 

5924 

5925 

5926 

5927 

5928 

5929 

5930 

5931 

5932 

5933 

5934 

5935 

5936 

5937 

5938 

5939 

5940 

5941 

5942 

5943 

5944 

5945 

5946 

5947 
'8 

9 

5950 

5951 

5952 

5956 

5957 

5961 

5962 

5963 

5964 

5965 

5966 

5967 

5968 


;MLX4 


046000 

C46004 

046010 

046012 

046016 

046022 

046024 

046030 


4048 

4049 

4050 

4051 

4052 

4053 

4054 

4055 

4056 

4057 

4058 

4059 

4060 

4061 

4062 

4063 

4064 

4065 

4066 

4067 

4068 

4069 

4070 

4071 

4072 

4073 

4074 

4075 

4076 

4077 

4078 

4079 

4080 

4081 

4082 

4083 


004167 

012700 

010046 

016646 

016601 

010146 

016646 

016646 


ML 11 TRANSFER 

routine CHECK 
begin 


ROUTINE: 

PURPOSE: 

ARGUMENTS: 

RESULTS: 


>7-Mar-1982 19:24:42 .. . 

COMMANDS 27-Mar-1982 19:23:44 PA:< 

(LUN. WRDCNT, BUFFER, SECTOR) = 

CHECK (LUN, WRDCNT, BUFFER, SECTOR) 

TO TRANSFER INFORMATION FROM THE ML11 TO MAIN MEMORY 
USING A ’WRITE CHECK’ COMMAND. 

SEE ‘STARTJT’ ROUTINE ABOVE FOR DETAILS 

UPON TERMINATION OF THE TRANSFER, ERROR DETECTION OCCURS 
AND THE CONTENTS OF ’VALUE’ BECOMES IMPORTANT IN TERMS OF 
WHETHER THE TRANSFER WAS COMPLETELY SUCCESSFUL OR WHETHER A 
RETRY SHOULD OR SHOULD NOT BE PERMITTED. 

THE VALUES RETURNED FOR THIS SUBROUTINE ARE THE SAME AS 
FOR THE SYSERR ROUTINE ABOVE. 


local 

VALUE, 

COMMAND; 

COMMAND = WC CMD; 

VALUE = START.IT (.COMMAND, .LUN, .WRDCNT, .BUFFER, .SECTOR); 


T0PS-20 Bliss-16 V2(212) 
PA:<NEALE>MLX4.8LI.5 (31) 


if ( not .RETRYING) then UP.WC.COUNT (.WRDCNT); 

if .VALUE eql 0 then return 0; !N0 ERRORS AT ALL 

if ((.ERROUT) and ( not .RETRYING)) then PRINTS (FMT6, .WRDCNT. PHR1 , WRD15. .SECTOR); 


! ’BEGAN YYYY WORD WRITE CHECK AT SECTOR ZZZZZZ’ 
return .VALUE; 


137256 

000051 

000020 

000020 

000020 

000020 


CHECK: 


.SBTTL 

CHECK ML11 TRANSFER COMMANDS 


JSR 

R1.SSAVE2 

• 

0 

MOV 

#5l,R0 

; *, COMMAND 

MOV 

RO,-(SP) 

; COMMAND,* 

NOV 

20(SP),-(SP) 

; LUN,* 

MOV 

20 (SP) ,R1 

; WRDCNT,* 

MOV 

RI.-(SP) 


MOV 

20(SP),-(SP) 

; BUFFER,* 

MOV 

20(SP),-(SP) 

; SECTOR.* 



UHIB80 PERFORMANCE EXERCISER 
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:>EO 0160 


5970 




;NLX4 



5971 




• 

9 


NL11 TRANSFER COMMANDS 

5972 







5973 046034 

004767 

176364 



JSR 

PC.START.IT 

5974 046040 

010002 




MOV 

R0.R2 

5975 046042 

032767 

000001 

166270 


BIT 

#1 .retrying 

5976 046050 

001004 




BNE 

1$ 

5977 046052 

010146 




NOV 

RI.-(SP) 

5978 046054 

004767 

177252 



JSR 

PC, UP. WC. COUNT 

5979 046060 

005726 




TST 

(SP)* 

5980 046062 

005702 



1$: 

TST 

R2 

5981 046064 

001003 




BNE 

2% 

5982 046066 

062706 

000012 



ADD 

#12, SP 

5983 046072 

000433 




BR 

4$ 

5984 046074 

032767 

000001 

134156 

2$: 

BIT 

#1 .ERROUT 

5985 046102 

001423 




8EQ 

3$ 

5986 046104 

032767 

000001 

166226 


BIT 

#1 .RETRYING 

5987 046112 

001017 




BNE 

3$ 

5988 046114 

016646 

000022 



NOV 

22<SP).-(SP) 

5989 046120 

012746 

007246 



NOV 

#VRD15,-(SP) 

5990 046124 

012746 

007714 



NOV 

#PHR1,-(SP> 

5991 046130 

010146 




NOV 

R1,-(SP) 

5992 046132 

012746 

006376 



NOV 

#FNT6.-(SP> 

5993 046136 

012746 

000005 



NOV 

#5.-<SP> 

5994 046142 

010600 




NOV 

SP.RO 

5995 046144 

104414 




TRAP 

14 

5996 046146 

062706 

000014 



ADD 

#14, SP 

5997 046152 

062706 

000012 


3$: 

ADD 

#12, SP 

5998 046156 

010200 




NOV 

R2.R0 

5999 046160 

000207 




RTS 

PC 

6000 046162 

005000 



4$: 

CLR 

RO 

6001 046164 

000207 




RTS 

PC 

6002 







6003 




; Routine Size: 

59 words 

6004 




; Maxima* stack depth per invocation: 

OwV 

6010 








; ‘.VALUE 


; VALUE 


; SECTOR.* 


; SP.* 

; VALUE.* 


14 words 


27-Nar-1982 19:24:42 TOPS 

27-M*r-1982 19:23:44 PA:< 

4075 

4077 

4079 


4048 

4049 

4048 


CZMLB80 PERFORMANCE EXERCISER 
CHECK ML11 TRANSFER COMMANDS 


MACRO Mil 13 29-MAR-82 13:41 
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SEQ 016 1 


6012 

6013 

6014 

6015 

6016 

6017 

6018 

6019 

6020 
6021 
6022 

6023 

6024 

6025 

6026 
60’7 
602b 

6029 

6030 

6031 

6032 

6033 

6034 

6035 

6036 

6037 

6038 

6039 

6040 

6041 

6042 

6043 

6047 

6048 

6052 

6053 

6054 

6055 

6056 

6057 

6058 

6059 

6060 
6061 
6062 
6063 

6071 

6072 


;MLX4 


046166 

046172 

046200 

046202 

046206 

046210 

046214 

046216 

046222 


4084 

4085 

4086 

4087 

4088 

4089 

4090 

4091 

4092 

4093 

4094 

4095 

4096 
<.097 

4098 

4099 

4100 

4101 

4102 

4103 

4104 

4105 

4106 

4107 

4108 

4109 

4110 

4111 

4112 


004767 

032767 

001406 

005767 

002003 

012700 

000207 

012700 

000207 


ML11 TRANSFER COMMANDS 

routine CHOOSE = 
begin 


27-Mar-1982 

27-Mar-198* 


19:24:42 

19:23:44 


TOPS-20 Bliss-16 V2(212> 
PA:<NEALE>MLX4.BLI.5 (32) 


ROUTINE: 
PURPOSE : 


RESULTS: 


CHOOSE 

TO DECIDE WHETHER TO DO A ‘WRITE CHECK' OR A 'READ*. 
THE 'READ' WILL BE SELECTED APPROXIMATELY 251 OF THE 
TIME. THIS IS ACCOMPLISHED BY EXAMINING THE MOST AND 
THE LEAST SIGNIFICANT BITS OF A nANDOM NUMBER. IF 
BOTH ARE SET, THEN 'READ' IS CHOSEN. 

THE VALUE RETURNED FOR THIS ROUTINE IS THE ADDRESS OF 
THE CHOSEN COMMAND (EITHER 'READ' OR 'CHECK'). 


local 

VALUE; 

RN (); 

if ((.RANDOM) and (.RANDOM Iss 0)) 
then 

VALUE = read 

else 

VALUE = CHECK; 

return .VALUE; 
end; 


! CHOOSE THE READ COMMAND 
! CHOOSE THE WRITE CHECK COMMAND 


.S8TTL CHOOSE ML11 TRANSFER COMMANDS 
137176 CHOOSE: JSR PC.RN 

000001 137264 BIT #1 , RANDOM 

BEQ 1$ 

137256 TST RANDOM 

BGE IS 

045612 MOV fREAD.RO 

RTS PC 

046000 IS: MOV f CHECK, RO 

RTS PC 

; Routine Size: 15 words 
; Maxifeue stack depth per invocation: 0 words 


•.VALUE 

•.VALUE 
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SEV 0 i bd 

6074 

;MLX4 



27-Mar-1982 19:24:42 TOPS-20 Bliss-io V2<212> 

6075 

mil TRANSFER 

COMMANDS 27-f1ar-1982 19:23:44 PA:<NEALE>McX4.BLl .5 (33) 

6076 





6077 

4113 routine RETRY 

(TIMES 

,. COMMAND. LUN. WRDCNT. BUFFER, SECTOR) = 

6078 

4114 

begin 


!* 1 * 

6079 

4115 




6080 

4116 

♦♦ 



6081 

4117 

ROUTINE: 

RETRY(TIMES. COMMAND. LUN.WRDCNT.BUF'ER. SECTOR) 

6082 

4118 




6083 

4119 

PURPOSE : 

(1) 

IF THE OPERATOR HAS ALLOWED ERROR PRINTOUTS. AND 

6084 

4120 



IF THE RETRY IS NOT TO CATEGORIZE ERRORS. THEN SAY 

6085 

4121 



THAT THE RETRY IS BEGINNING. 

6086 

4122 




6087 

4123 


(2) 

REISSUE THE WRITE. WRITE CHECK OR READ COMMAND 

6088 

4124 



UNTIL THE CWMAND SUCCEEDS OR UNTIL ALL PERMITTED 

6089 

4125 



RETRIES HAVE FAILED. 

6090 

4126 




6091 

4127 


(3) 

IF A 'BEGIN RETRY* MESSAGE WAS PRINTED. THEN A FINAL 

6092 

4128 



MESSAGE ABOUT THE SUCCESS OR FAILURE OF THE RETRIES 

6093 

4129 



SHOULD ALSO BE PRINTED. 

6094 

4130 




6095 

4131 


(4) 

INCREMENT THE RETRY COUNTER FOR EVERY RETRY DONE 

6096 

4132 



WHICH WAS NOT FOR ERROR CLASSIFICATION. 

6097 

4133 




6098 

4134 




6099 

4135 

ARGUMENTS: 

(1) 

TIMES - THE NUMBER OF RETRIES PERMITTED BEFORE 

6100 

4136 



IT IS CALLED A FAILURE. 

6101 

4137 




6102 

4138 


(2) 

OTHEf* ARGUMENTS ARE THE SAME AS FOR ’START IT* 

6103 

4139 



ROUTINE ABOVE. 

6104 

4140 




6105 

4141 

RESULTS: 

THE 

VALUES RETURNED FOR THIS SUBROUTINE ARE THE SAME AS 

6106 

4142 


FOR 

THE SYSERR ROUTINE ABOVE. 

6107 

4143 




6108 

4144 




6109 

4145 

label 



6110 

4146 

LOOP; 



6111 

4147 




6112 

4148 

local 



6113 

4149 

TEMP. 



6114 

4150 

VALUE. 



6115 

4151 

COUNT. 



6116 

4152 

TBOARD 



6117 

4153 

TBANK; 



6118 

4154 




6119 

4155 




6120 

4156 

! THIS IS 

THE CODE FOR PURPOSE 1: 

6121 

4157 




6122 

4158 




6123 

4159 

RETRYING = 

ACTIVE; 

6124 

4160 




6125 

4161 

if ((.TIMES nea 

1) and (.ERROUT)) 

6126 

4162 

then 



6127 

4163 

begin 


! * 2 * 

6128 

4164 
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SEO 0163 


6130 

6131 

6132 

6133 

6134 

6135 

6136 

6137 

6138 

6139 

6140 

6141 

6142 

6143 

6144 

6145 

6146 

6147 

6148 

6149 

6150 

6151 

6152 

6153 

6154 

6155 

6156 

6157 

6158 

6159 

6160 
6161 
6162 

6163 

6164 

6165 

6166 

6167 

6168 

6169 

6170 

6171 

6172 

6173 

6174 

6175 

6176 

6177 

6178 

6179 

6180 
6181 
6182 

6183 

6184 


?7-Mer-1982 19:24:42 
?7-Mer-1982 19:23:44 


4165 

4166 

4167 

4168 

4169 

4170 

4171 

4172 

4173 

4174 

4175 

4176 

4177 

4178 

4179 

4180 

4181 

4182 LOOP 

4183 

4184 

4185 

4186 

4187 

4188 

4189 

4190 

4191 

4192 

4193 

4194 

4195 

4196 

4197 

4198 

4199 

4200 

4201 

4202 

4203 

4204 

4205 

4206 

4207 

4208 

4209 

4210 

4211 

4212 

4213 

4214 

4215 

4216 


ML 11 TRANSFER COMMANDS 27-Mer-1982 19:23:44 

If .COMMAND cql write then PRINTB (SAY3, WRD2, URD16, WRD18); 
! BEGIN WRITE RETRY 

If .COMMAND eql CHECK then PRINTS (SAY3, URD2, PHR1 , WRD18); 
.'BEGIN WRITE CHECK RETRY 

If .COMMAND eql reed then PRINTB (SAY3. WRD2, WRD17, WRD18); 


TOPS-20 Bliss-16 V2(212) 
PA:<NEALE>MLX4.BLI .5 (33) 


! BEGIN READ RETRY 
end; 


! THIS IS THE CODE FOR PURPOSE 2: 

I* 


begin 

incr KOUNT from 1 to .TIMES do 
begin 


!* 2 * 


! * 3 * 


!* 4 * 


if .COMMAND eql write then VALUE * write (.LUN. .WRDCNT, .BUFFER. .SECTOR); 

if .COMMAND eql CHECK 
then 

wrfte (.LUN. .WRDCNT. .BUFFER. .SECTOR); 

VALUE = CHECK (.LUN. .WRDCNT. .BUFFER. .SECTOR); 
end; 

if .COMMAND eql reed 
then 

begin 

write (.LUN. .WRDCNT. (.BUFFER - BUFSIZ*2). .SECTOR); 

VALUE = read (.LUN, .WRDCNT, .BUFFER. .SECTOR); 
end; 


! THIS IS THE CODE FOR PURPOSE 3: 

if .VALUE eql 0 
then 

begin 

if ((.TIMES neq 1) end (.ERROUT)) 
then 

PR?NTB (SAY2. WRD18, WR019); 
PRINTB (CRLF); 


•THE RETRY WAS SUCCESSFUL 
!* 5 * 
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0186 ;MLX4 

6187 ; 

6188 

6189 

6190 

6191 

6192 

6193 
61 9h 

6195 

6196 

6197 

6198 

6199 

6200 
6201 
6202 

6203 

6204 

6205 

6206 

6207 

6208 

6209 

6210 
6211 
6212 

6213 

6214 

6215 

6216 

6217 

6218 

6219 

6220 
6221 
6222 

6223 

6224 

6225 

6226 

6227 

6228 

6229 

6230 

6231 

6232 

6236 

6237 


4217 

4218 

4219 

<,220 

4221 

4222 

4223 

4224 

4225 

4226 

4227 

4228 

4229 

4230 

4231 

4232 

4233 

4234 

4235 

4236 

4237 

4238 

4239 

4240 

4241 

4242 

4243 

4244 

4245 

4246 

4247 

4248 

4249 

4250 

4251 

4252 

4253 

4254 

4255 

4256 

4257 

4258 

4259 

4260 


ML 11 TRANSFER COMMANDS 

! RETRY SUCCEEDED 
end; 

COUNT = .KOUNT; 
leave LOOP; 
end; 


end; 


>7-Mar-19 

>7-Mar-19 



TOPS-20 Bliss-16 V2(212) 
PA: <NE ALE >MLX4.8L I . 5 (33 


! * 5 * 

!* 4 * 


i FALLS THROUGH HERE IF ALL RETRIES FAILED: 


if ((.TIMES neq 1) and (.ERROUT)) 
then 

PR?NT8 (SAY2, WRD18. WRD20); 

j VER CZML8B COMMENTED OUT THIS PRINT CRLF 
! PRINTS (CRLF); 

.'RETRY FAILED 
COUNT = .TIMES; 
end; 

end; !* 3 * 

! ♦ 

• THIS IS THE CODE FOR PURPOSE 4: 


if .TIMES neq 1 
then 


begin 

T BOARD = .BOARD; 

TSANA = .BANK; 

DECODE (.SECTOR); M 

TRIES C.LUN, .BOARD. 0. 16, 03 
BOARD = .T80ARD; 

BANK = . TBANK; 
end; 


RETRYING = INACTIVE; 
return .VALUE; 
end; 


.TRIES C.LUN, .BOARD, 0, 16. 03 ♦ .COUNT; 


! * 1 * 


S60 0 ’ 6 - 


S8TTL RETRY ML11 TRANSFER COMMANDS 
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6242 

6243 

6244 

6245 046224 

6246 046230 

6247 046236 

6248 046242 

6249 046244 

6250 046250 

6251 046252 

6252 046254 

6253 046262 

6254 046264 

6255 046270 

6256 046274 

6257 046276 

6258 046302 

6259 046306 

6260 046312 

6261 046316 

6262 046322 

6263 046324 

6264 046326 

6265 046332 

6266 046336 

6267 046340 

6268 046344 

6269 046350 

6270 046354 

6271 046360 

6272 046364 

6273 046366 

6274 046370 

6275 046374 

6276 046400 

6277 046402 
6270 046406 

6279 046412 

6280 046416 

6281 046422 

6282 046426 

6283 046430 

6284 046432 

6285 046436 

6286 046442 

6287 046444 

6288 046446 

6289 046452 

6290 046454 

6291 046460 

6292 046464 

6293 046470 

6294 046474 

6295 046500 

6296 046502 


004167 

012767 

016601 

005046 

020127 

001472 

005216 

032767 

001465 

016602 

020227 

001016 

012746 

012746 

012746 

012746 

012746 

010600 

104414 

062706 

020227 

001016 

012746 

012746 

012746 

012746 

012746 

010600 

104414 

062706 

020227 

001016 

012746 

012746 

012746 

012746 

012746 

010600 

104414 

062706 

016602 

005004 

000543 

020227 

001015 

016646 

016646 

016646 

016646 

004767 

010003 

062706 


137104 

000001 166102 
000030 

000001 


000001 133776 

000030 

045424 

007272 

007256 

007200 

007112 

000004 


000012 

046000 

007272 

007714 

007200 

007112 

000004 


000012 

045612 

007272 

007264 

007200 

007112 

000004 


000012 

000030 


045424 

000026 

000026 

000026 

000026 

176724 

000010 


;MLX4 


RETRY: 


MOV 
MOV 
TRAP 
ADD 
CMP 
BNE . 
KOV 
MOV 
MOV 
MOV 
MOV 
MOV 
TRAP 
ADD 
CMP 
BNE 
MOV 
MOV 
I MOV s 
MOV 
MOV 
MOV 
TRAP 
ADD 
MOV 
CLR ; 
BR . 
CMP 
BNE 
MOV 
MOV 
MOV . 
MOV 
JSR 
MOV 
ADD 



K 13 
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RETRY Mil 1 TRANSFER COMMANDS SEQ 0166 


6298 



;MLX4 





27-M*r-1982 

19:24:42 

TOPS 

6299 

6300 

6301 046506 



# 


Mill TRANSFER COMMANDS 



27-M«r-1982 

19:23:44 

PA:< 

020227 

046000 

5$: 

CMP 

R2,#CHECK 

• 

9 




4190 

6302 046512 

001027 



BNE 

6$ 






6303 046514 

016646 

000026 


MOV 

26(SP),-(SP) 

• 

9 

IUN,* 



4193 

6304 046520 

016646 

000026 


MOV 

26CSP) ,*(SP) 

0 

WRDCNT,* 




6305 046524 

016646 

000026 


MOV 

26(SP),-(SP) 

* 

0 

BUFFER.* 




6306 046530 

016646 

000026 


MOV 

26(SP),-(SP) 

PC. WRITE 

0 

SECTOR.* 




6307 046534 

004767 

176664 


JSR 






6308 046540 

016616 

000036 


MOV 

36(SP) , (SP) 

0 

IUN.* 



t 194 

6309 046544 

016646 

000034 


MOV 

34(SP).-(SP) 

0 

WRDCNT,* 




6310 046550 

016646 

000034 


MOV 

34(SP).-(SP) 

0 

BUFFER,* 




6311 046554 

016646 

000034 


MOV 

34(SP).-(SP) 

• 

0 

SECTOR,* 




6312 046560 

004767 

177214 


JSR 

PC, CHECK 






6313 046564 

010003 



MOV 

R0.R3 

0 

*, VALUE 



4192 

6314 046566 

062706 

000016 


ADD 

#16. SP 

0 




6315 046572 

020227 

045612 

6$: 

CMP 

R2.1READ 

0 




4197 

6316 046576 

001031 



BNE 

7$ 





4200 

6317 046600 

016646 

000026 


MOV 

26(SP> ,-(SP) 

0 

IUN,* 



6318 046604 

016646 

000026 


MOV 

26(SP),-(SP) 

0 

WRDCNT,* 




6319 046610 

016646 

000026 


MOV 

26CSP) ,-(SP) 

9 

BUFFER,* 




6320 046614 

162716 

010000 


SUB 

#10000, (SP) 






6321 046620 

016646 

000026 


MOV 

26<SP),-(SP> 

• 

9 

SECTOR,* 




6322 046624 

004767 

1 7i 574 


JSR 

PC. WRITE 






6323 046630 

016616 

000036 


MOV 

36 (SP) , (SP) 

9 

IUN.* 



4201 

6324 046634 

016646 

000034 


MOV 

34(SP).-(SP) 

9 

WRDCNT,* 




6325 046640 

016646 

000034 


MOV 

34(SP),-(SP) 

9 

BUFFER.* 




6326 046644 

016646 

000034 


MOV 

34(SP) ,-(SP) 

• 

9 

SECTOR,* 




6327 046650 

004767 

176736 


JSR 

PC, READ 






6328 046654 

010003 



MOV 

R0.R3 
#16. SP 

0 

•.VALUE 



4199 

6329 046656 

062706 

000016 


ADD 

• 

9 




6330 046662 

005703 


7$: 

TST 

R3 

0 

VALUE 



4208 

6331 046664 

001033 



BNE 

9$ 





4212 

6332 046666 

032716 

000001 


BIT 

#1,(SP> 

0 




6333 046672 

001426 



8EQ 

8S 






6334 046674 

032767 

000001 

133356 

BIT 

#1 .ERROUT 






6335 046702 

001422 



BEQ 

8$ 





4215 

6336 046704 

012746 

007300 


MOV 

#WRD19.-(SP) 

• 

0 




6337 046710 

012746 

007272 


MOV 

#WRD18,-(SP) 






6338 046714 

012746 

007100 


MOV 

#SAY2,-(SP) 

#3,-(SP) 






6339 046720 

012746 

000003 


MOV 






6340 046724 

010600 



MOV 

SP, RO 

m 

9 

SP.* 




6341 046726 

104414 



TRAP 

14 





4216 

6342 046730 

012716 

007066 


MOV 

#CRLF,(SP) 

• 

9 




6343 046734 

012746 

000001 


MOV 

#1.-(SP) 






6344 046740 

010600 



MOV 

SP.RO 

« 

• 

SP.* 




6345 046742 

104414 



TRAP 

14 





4214 

6346 046744 

062706 

000012 


ADD 

#12. SP 

• 

• 

KOUNT. COUNT 



6347 046750 

010405 


88: 

MOV 

R4.R5 

• 

• 



4220 

6348 046752 

000427 



BR 

ioi 

• 

0 



4221 

6349 046754 

005204 


9$: 

INC 

R4 

m 

0 

KOUNT 



4185 

6350 046756 

020401 



CMP 

R4.R1 

0 

KOUNT.* 




6351 046760 

003632 



BLE 

4$ 





4230 

6352 046762 

032716 

000001 


BIT 

#1.(SP) 

m 

0 





1 





L I 3 
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SEO 0167 

6354 



;MLX4 





27-Mar-1982 

19:24:42 TOPS 

6355 



; 


ML11 TRANSFER COMMANDS 



27-Mar-1982 

19:23:44 PA:< 

6356 

6357 046766 

001454 



8EQ 

11$ 





6358 046770 

032767 

000001 

133262 

BIT 

fl.ERROUT 

10* 





6359 046776 

001415 



8EQ 




4233 | 

6360 047000 

012746 

007312 


MOV 

#WRD20,-(SP) 




6361 047004 

012746 

007272 


MOV 

#WRD18.-(SP) 





6362 047010 

012746 

007100 


MOV 

#SAY2,-(SP> 





6363 047014 

012746 

000003 


MOV 

#3,-(SP> 





6364 047020 

010600 



MOV 

SP.RO 

# 

SP,* 



6365 047022 

104414 



TRAP 

14 





6366 047024 

010105 



MOV 

R1.R5 
#10, SP 


*, COUNT 


4238 

6367 047026 

062706 

000010 


ADD 

• 



4232 

6368 047032 

032716 

000001 

10$: 

BIT 

#1,(SP) 

ni 




4247 

6369 047036 

001430 



BEQ 




4250 

6370 047040 

016701 

165276 


MOV 

BOARD, R1 


* , T80ARD 


6371 047044 

016702 

165274 


MOV 

8ANK.R2 


*,TBANK 


4251 

6372 047050 

016646 

000020 


MOV 

20(SP),-(SP) 

• 

SECTOR,* 


4252 

6373 047054 

004767 

170116 


JSR 

PC, DECODE 





6374 047060 

016600 

000030 


MOV 

30 (SP) ,R0 


LUN,* 


4253 

6375 047064 

006300 



ASL 

m 





6376 047066 

006300 



ASL 

RO 





6377 047070 

006300 



ASt 

RO 





6378 047072 

006300 



ASL 

RO 





6379 047074 

066700 

165242 


ADD 

BOARD, RO 





6380 047100 

006300 



ASL 

RO 





6381 047102 

060560 

033714 


ADD 

R5,TR1ES(R0) 

• 

COUNT,* 



6382 047106 

010167 

165230 


MOV 

R1, BOARD 


TBOARD.* 


4254 

6383 047112 

010267 

165226 


MOV 

R2.BANK 


TBANK , * 


4255 

6384 047116 

005726 



TST 

(SP> + 




4249 

6385 047120 

005067 

165214 

11$: 

CLR 

RETRYING 




4258 

6386 047124 

010300 



MOV 

R3.R0 


VALUE,* 


4114 

6387 047126 

005726 



TST 

(SP)* 

• 



4113 

6388 047130 

6389 

000207 



RTS 

PC 





6390 



; Routine Size 

: 227 words 

14 words 




6391 



; Maximum stack depth per invocation: 




6396 










6397 





- 




1 
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SEQ 0168 


6399 

WOO 

W01 

WO 2 

W03 

W04 

W05 

W06 

WO 7 

W08 

W09 

W10 

W11 

W12 

W13 

W14 

W15 

W16 

W17 

W18 

W19 

W20 

W21 

W22 

W23 

W24 

W25 

W26 

W30 

W31 

W35 

W36 

W37 

W38 

W39 

W40 

W41 

W42 

W43 

W44 

W45 

W46 

W47 

W48 


047132 
047132 
047136 
047140 
047144 
047150 
047152 
047160 
0471 W 
047170 
047174 


TO SET UP BUFFER POINTERS BEFORE A TRANSFER 


27-Mar-1982 19:24:42 
27-Mar-1982 19:23:44 


TOPS-20 Bliss-16 V2(212) 
PA : <NE ALE >ML X4 . 8L 1 . 5 (34) 


4261 

4262 

4263 

4264 

4265 

4266 

4267 

4268 

4269 

4270 

4271 

4272 

4273 

4274 

4275 

4276 

4277 

4278 

4279 

4280 

4281 

4282 

4283 

4284 

4285 


016600 

006300 

066700 

020027 

103403 

012767 

016700 

062700 

010067 

000207 


Zsbttl 'TO SET UP BUFFER POINTERS BEFORE A TRANSFER* 
routine SET.PTRS (URDCNT) : novalue = 
begin 

! ROUTINE: SET.PTRS (URDCNT) 

! PURPOSE: TO MAKE SURE THAT THE BUFFER POINTERS ARE SUITA8LY PLACED 

! BEFORE A TRANSFER. SO THAT THEY WILL SUPPORT THE CHOSEN WORD 

! COUNT WITHIN THE BUFFER SPACE. 

i 

i ARGUMENT: URDCNT = THE NUMBER OF WORDS IN A TRANSFER. 

i 

i RESULTS: ’WPTR* AND *RPTR' ARE SET BACK TO THE START OF THE BUFFERS 

! ONLY IF THE WORD COUNT WON'T FIT. OTHERWISE. THEY ARE LEFT 

! UNCHANGED. 

I 

j NOTE: THE WRITE BUFFER IS LOCATED BEFORE THE READ BUFFER. 

if (.WPTR ♦ .WRDCNT*2) geqa END.UBUFF then WPTR = UBUFF; 

RPTR = .WPTR ♦ (BUFSIZ*2); 
return; 


.S8TTL SET.PTRS TO SET UP BUFFER POINTERS BEFORE A TRANSFER 


000002 

163524 

022670 

012670 163510 
163504 
010000 
163476 


SET.PTRS: 

MOV 2(SP).R0 

ASL RO 

ADD UPTR.RO 

CMP RO.fEND.WBUFF 
BLO 1$ 

MOV fWBUFF.WPTR 

IS: MOV WPTR.RO 

ADD #10000. RO 

MOV RO.RPTR 

RTS PC 

; Routine Size: 18 words 
; Maximum stack depth per invocation: 0 words 


URDCNT.* 


CZNLB80 PERFORMANCE EXERCISER MACRO M1113 29-MAR-82 13:41 
SET.PTRS TO SET UP BUFFER POINTERS BEFORE A TRANSFER 


N 13 
PAGE 157 


SEQ 0169 


6454 

6455 

6456 

6457 

6458 

6459 

6460 

6461 

6462 

6463 

6464 

6465 

6466 

6467 

6468 

6469 

6470 

6471 

6472 

6473 

6474 

6475 

6476 

6477 

6481 

6482 

6486 

6487 

6488 

6489 

6490 

6491 

6492 

6493 

6494 

6495 

6496 

6497 

6498 

6499 

6504 

6505 


MLX4 


4286 

4287 

4288 

4289 

4290 

4291 

4292 

4293 

4294 

4295 

4296 

4297 

4298 

4299 

4300 

4301 

4302 

4303 

4304 

4305 

4306 


CHOOSING A WORD COUNT 

Xsbttl 'CHOOSING A WORD COUNT' 
routine GET.WRDCNT (SECTOR, LAST) = 
begin 

local 

TEMP, 

WRDCNT; 

TEMP = .LAST - .SECTOR ♦ 1; 


version czmlbb changed gtr to gtru 

If (BUFSIZ/256) gtru .TEMP 
then 

WRDCNT = .TEMP*256 

else 

WRDCNT = 8UFSIZ; 

return .WRDCNT; 
end; 


27-Mar-1982 19:24:42 
27-Mar-1982 19:23:44 


TOPS-20 811SS-16 V2(212> 
PA:<NEALE>MLX4.8LJ .5 (35) 


INUMBER OF SECTORS LEFT TO TEST 


•LESS THAN A FULL BUFFER LEFT? 

! YES — USE AS LARGE A COUNT AS FITS 
!N0 — USE THE ENTIRE BUFFER SIZE 





.SBTTL 

GET.WRDCNT CHOOSING A WORD 

COUNT 

047176 



GET.WRDCNT: 



047176 

016600 

000002 

MOV 

2(SP).R0 

• 

0 

047202 

166600 

000004 

SUB 

4(SP).R0 

0 

047206 

005200 


INC 

RO 


047210 

020027 

000010 

CMP 

R0,#10 

0 

047214 

103003 


BHIS 

1$ 


047216 

000300 


SWAB 

RO 

0 

047220 

105000 


CLR8 

RO 


047222 

000207 


RTS 

PC 

• 

• 

047224 

012700 

004000 

IS: NOV 

#4000, RO 

0 

047230 

000207 


RTS 

PC 

• 

• 


LAST.* 

SECTOR.* 

TEMP,* 


*, WRDCNT 


4294 

4299 

4301 

4299 

4303 

4287 


Routine Size: 14 words 

Maximum stack depth per invocation: 0 words 


SEO 01 7u 


CZMLBBO PERFORMANCE EXERCISER MACRO M1113 
GET.URDCNT CHOOSING A WORD COUNT 


a I <» 
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6507 

6508 

6509 

6510 

6511 

6512 

6513 

6514 

6515 

6516 

6517 

6518 

6519 

6520 

6521 

6522 

6523 

6524 

6525 

6526 

6527 

6528 

6529 

6530 

6531 

6532 

6533 

6534 

6535 

6536 

6537 

6538 

6539 

6540 

6541 

6542 

6543 

6544 

6545 

6546 

6547 

6548 

6549 

6550 

6551 

6552 

6553 

6554 

6555 

6556 

6557 

6558 

6559 

6560 

6561 


;RLX4 


4307 

4308 

4309 

4310 

4311 

4312 

4313 

4314 

4315 

4316 

4317 

4318 

4319 

4320 

4321 

4322 

4323 

4324 

4325 

4326 

4327 

4328 

4329 

4330 

4331 

4332 

4333 

4334 

4335 

4336 

4337 

4338 

4339 

4340 

4341 

4342 

4343 

4344 

4345 

4346 

4347 

4348 

4349 

4350 

4351 

4352 

4353 

4354 

4355 

4356 

4357 

4358 


COMMAND INTEGRITY ROUTINE 

Xsbttl ’COMMAND INTEGRITY ROUTINE’ 
routine INTEGRITY : novalue = 
begin 


27-Mar-1982 19:24:42 
27-Mar-1982 19:23:44 


!* 1 * START OF ROUTINE 


♦♦ 


ROUTINE: INTEGRITY 

PURPOSE: TO MAKE SURE THAT THE BASIC Mill TRANSFER COMMANDS 

WHICH WILL BE USED BY THE EXERCISER (WRITE, READ. 
WRITE CHECK) WORK PROPERLY. 

THE CODE FOR ’INTEGRITY’ IN BRIEF: 

BEGIN 1 (START OF ROUTINE) 

SAY ROUTINE IS RUNNING 
INCR COMPLEMENT FLAG FROM 0 TO 1 
BEGIN 2 (START OF COMPLEMENT FLAG SELECTION LOOP) 

GENERATE THE PATTERN 
INCR LOGICAL UNIT NUMBER FROM 0 TO LAST 
BEGIN 3 (START OF LOGICAL UNIT SELECTION LOOP) 

TESTLOOP: 

BEGIN 4 (START OF LOOP THAT COMPLETELY TESTS 1 UNIT) 

IF UNIT IS ACTIVE 
THEN 

BEGIN 5 (START OF TEST FOR AN ACTIVE UNIT) 

SECTOR = LOWEST 
GET WRDCNT 
WRITE 

LOOK FOR ERRORS (IF DROP UNIT, LEAVE TESTLOOP) 

READ 

LOOK FOR ERRORS (IF DROP UNIT, LEAVE TESTLOOP) 

MITE CHECK 

LOOK FOR ERRORS (IF DROP UNIT, LEAVE TESTLOOP) 

END 5 (END OF TEST FOR AN ACTIVE UNIT) 

END 4 (END OF LOOP THAT COMPLETELY TESTS 1 UNIT) 

END 3 (END OF LOGICAL UNIT SELECTION LOOP) 

END 2 (END OF COMPLEMENT FUG SELECTION LOOP) 

RETURN 

END 1 (END OF ROUTINE) 


label 

LOOP; 

local 

VALUE, 

WRDCNT, 

OLDSEC, 

OLDCHN, 

SECTOR, 

DBL. VALUE; 


TOPS-20 Bliss-16 V2(212) 
PA:<NEALE>MLX4.BLI .5 (36) 
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GET .URDCNT CHOOSING A WORD COUNT 


SEO 01 7 1 


6563 ;MIX4 

6564 ; 

6565 

6566 ; 

6567 ; 

6568 ; 

6569 ; 

6570 ; 

6571 ; 

6572 ; 

6573 ; 

6574 ; 

6575 ; 

6576 ; 

6577 ; 

6578 ; 

6579 ; 

6580 ; 

6581 ; 

6582 ; 

6583 ; 

6584 ; 

6585 ; 

6586 ; 

6587 ; 

6588 ; 

6589 ; 

6590 ; 

6591 ; 

6592 ; 

6593 ; 

6594 ; 

6595 ; 

6596 ; 

6597 ; 

6598 ; 

6599 ; 

66GC ; 

6601 ; 

6602 ; 

6603 ; 

6604 ; 

6605 ; 

6606 ; 

6607 ; 

6608 ; 

6609 ; 

6610 ; 

6611 ; 
6612 ; 

6613 ; 

6614 ; 

6615 ; 

6616 ; 
6617 ; 


COMMAND INTEGRITY ROUTINE 


27-Mar-l982 19:24:42 
27-Mar-1982 19:23:44 


TOPS -20 Bliss-16 V2<212> 
PA:<NEALE>MLX4.8LI .5 (36) 


4359 I 

4360 

4361 

4362 

4363 

4364 

4365 

4366 

4367 

4368 LOOP 

4369 

4370 

4371 

4372 

4373 

4374 

4375 

4376 

4377 

4378 
4V9 

4380 

4381 

4382 

4383 

4384 

4385 
4586 

4387 

4388 

4389 

4390 

4391 

4392 

4393 

4394 

4395 

4396 

4397 

4398 

4399 

4400 

4401 

4402 

4403 

4404 

4405 

4406 

440 7 

4408 

4409 

4410 


PRINTS (SAY2. WRD34, RTNO); 

."RUNNING COMMAND INTEGRITY ROUTINE' 

incr COMP FLAG from 0 to 1 do 
begin 

GEN3 (.COMP.FLAG); 

Incr LUN from 0 to (.LSUNIT - 1) do 
begin 


begin !* 4 * START 

if .DRIVE.STATUS C.LUN.1 eql ACTIVE 

begin !* 5 * START 

LSLUN = .LUN; 

SECTOR = LOWEST; 

URDCNT - GET.WRDCNT (.SECTOR, HIGHEST); 

VALUE = write (.LUN. .URDCNT. UBUFF. LOUEST); 


SEE HOU SUCCESSFUL THE WRITE WAS: 


!* 2 * START OF COMPLEMENT FLAG SELECTION LOOP 


!* 3 * START OF LOGICAL UNIT SELECTION LOOP 
!* 4 * START OF LOOP THAT COMPLETELY TESTS 1 UNIT 


!* 5 * START OF TEST FOR AN ACTIVE UNIT 


selectone .VALUE of 
set 


begin 


! SEE 'SYSERR* FOR DEFINITION 
•OF ERROR » CONTAINED IN 'VALUE' 


!* 5A * RETRY ALLOWED 


if RETRY (SIX. write, .LUN. .URDCNT, UBUFF, LOWEST) neq 0 
then 'THE RETRY FAILED — SYSTEM FATAL ERROR 


begin 

WH? DAOPT C.LUN3 = C0DE.4; 

ERRDF (1, MSG1, 0); !**»* INTEGRITY ROUTINE ERROR 01 **** 
DODU (.LUN); 

leave LOOP; ‘JUMP JUST BEYOND END OF BLOCK * 4 * 

end; 


!* 5A * 


begin „ !* 
WH? DROPT C.LUNJ = C0DE.5; 
ERRIJF (2, MSG1 , 0); !* 
DODU (.LUN); 

leave LOOP; !J 
end; ! * 


!* 58 * FATAL CONTROLLER ERROR — NO RETRY ALLOWED 
5- 

! t*** INTEGRITY ROUTINE ERROR 02 **** 


! JUMP JUST BEYOND END OF BLOCK * 4 * 
!* SB * 


eSIdF (3, MSG1. 0); 


!* 5C * FATAL DRIVE ERROR — NO RETRY ALLOWED 
it*** INTEGRITY ROUTINE ERROR 03 


CZMLBBO PERFORMANCE EXERCISER MACRO Mil 13 
GET .WRDCNT CHOOSING A WORD COUNT 
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0 14 
PAGE 160 


SEO 01/, 


6619 

6620 
6621 
6622 

6623 

6624 

6625 

6626 

6627 

6628 

6629 

6630 

6631 

6632 

6633 

6634 

6635 

6636 

6637 

6638 

6639 

6640 

6641 

6642 

6643 

6644 

6645 

6646 

6647 

6648 

6649 

6650 

6651 

6652 

6653 

6654 

6655 

6656 

6657 

6658 

6659 

6660 
6661 
6662 
6663 

OOO 1 * 

6665 

6666 

6667 

6668 

6669 

6670 

6671 

6672 

6673 


MLX4 


COMMAND INTEGRITY ROUTINE 


27-M*r-1982 19:24:42 
27-Mar-1982 19:23:44 


TOPS-20 Bliss-16 V2(212) 
PA : <NEALE>HLX4 .BL J . 5 (36) 


4411 

4412 

4413 

4414 

4415 

4416 

4417 

4418 

4419 

4420 

4421 

4422 

4423 

4424 

4425 

4426 

4427 

4428 

4429 

4430 

4431 

4432 

4433 

4434 

4435 

4436 

4437 

4438 

4439 

4440 

4441 

4442 
44*3 

4444 

4445 

4446 

4447 

4448 

4449 

4450 

4451 

4452 

4453 

4454 

4455 

4456 

4457 

4458 

4459 

4460 

4461 

4462 


WHY DROPT [.LUN] = C0DE.6; 

DODO (.LUN); 

leave LOOP; !JUMP JUST BEYOND END OF BLOCK * 4 * 

end; ! • 5C * 

tes; 

VALUE - read (.LUN, .WRDCNT, RBUFF, LOWEST); 

+ SEE HOW SUCCESSFUL THE READ WAS: 


selectone .VALUE of 
set 


.'SEE •SYSERR’ FOR DEFINITION 
•OF ERROR # CONTAINED IN 'VALUE' 


CO] : 


If (DBL.VALUE = DOUBLE.CHECK (WBUFF, RBUFF, .WRDCNT)) neq 0 
then 

begin 

SAYWHO (.LUN); , 

PRINTS (SAY1, MSGS); 

."ECC LOGIC FAILED TO DETECT DATA ERROR' 

PRINTS (FMT12A, ..DBL.VALUE, .DBL.VALUE); 

•'GOOD DATA: XXXXXX AT LOCATION Y?YYYY 
DBL VALUE = .DBL.VALUE ♦ BUFSIZ*2; 

PRlflTB (FMT12B, ..DBL.VALUE, .DBL.VALUE); 

•'BAD DATA: PPPPPP AT LOCATION QOQQQQ' 

WHY DROPT C.LUN] = C0DE.8; 

ERRPF (4, MSG1, 0); .'**** INTEGRITY ROUTINE ERROR 04 **** 
DODU (.LUN); 

leave LOOP; JJUMP JUST BEYOND END OF BLOCK * 4 * 

end; 


Cl] 


begin 


!* 5D * RETRY ALLOWED 


j.WJ"< S ,X. r " d - - LU ?f HE - ?! TRY * F«LEO ' —“syItE^StAL ERROR 

ERRDF R (?! MSGI^O)/?****' INTEGRITY ROUTINE ERROR 05 **** 
DODU (.LUN); 

leave LOOP; JJUMP JUST BEYOND END OF BLOCK * 4 * 

end; 


end; 


!* 5D * 

•* 5E * FATAL CONTROLLER ERROR — NO RETRY ALLOWED 


C2J : 

begin :* 

1$RDF R (6! MSG1^0); COI>E ”!**** INTEGRITY ROUTINE ERROR 06 **** 
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SEQ 0173 


6675 

6676 

6677 

6678 

6679 

6680 
6681 
6682 

6683 

6684 

6685 

6686 

6687 

6688 

6689 

6690 

6691 

6692 

6693 

6694 

6695 

6696 

6697 

6698 

6699 

6700 

6701 

6702 

6703 

6704 

6705 

6706 

6707 

6708 

6709 

6710 

6711 

6712 

6713 

6714 

6715 

6716 

6717 

6718 

6719 

6720 

6721 

6722 

6723 

6724 

6725 

6726 

6727 

6728 

6729 


COMMAND INTEGRITY ROUTINE 


4463 

4464 

4465 

4466 
446'' 

4468 

4469 

4470 

4471 

4472 

4473 

4474 

4475 

4476 

4477 

4478 

4479 

4480 

4481 

4482 

4483 

4484 

4485 

4486 

4487 

4488 

4489 

4490 

4491 

4492 

4493 

4494 

4495 

4496 

4497 

4498 

4499 

4500 

4501 

4502 

4503 

4504 

4505 

4506 

4507 

4508 

4509 

4510 

4511 
4M2 

4513 

4514 


DODU (.LUN); 
leave LOOP; 
end; 


27-Mar-1982 19:24:42 TOPS-20 Bliss-16 V2(212) 
27-Har-1982 19:23:44 PA:<NEALE>MLX4.BLI.5 (36) 


.'JUMP JUST BEYOND END OF BLOCK * 4 * 
!* 5E * 


C33 : 


begin !* 5F * FATAL DRIVE ERROR — NO RETRY ALLOWED 

ERkDF (7, MSG1 , 0); !***• INTEGRITY ROUTINE ERROR 07 **** 

WHY DROPT C.LUN3 = CODE 6; 

DODO (.LUN); 

leave LOOP; !JUMP JUST BEYOND END OF BLOCK * 4 * 

end; !* 5F * 


C43 : 

begin !* 56 * UNRECOVERABLE DATA ERROR 

ISOLATE (); 

ERRDF (8. MSG2. 0); .'**** INTEGRITY ROUTINE ERROR 08 **** 

WHY DROPT C.LUN3 = C0DE.7; 

DODO (.LUN); 

leave LOOP; !JUHP JUST BEYOND END OF BLOCK * 4 * 

end; !* 5G * 


C5J : 
begin 

ISOLATE (); 


!* 5H * RECOVERABLE DATA ERROR 


if .ERROUT then PRINTS (FMT106, .CHAN); 

! ' BIT QQ' 

OLDSEC = .MLEL; 

OLDCHN = .CHAN; 

if RETRY (ONE. read. .LUN. .WRDCNT. RBUFF. LOWEST) eql 5 
then 

if ((.MLEL eql .OLDSEC) and (.CHAN eql .OLDCHN)) 
then 

begin 

if .ERROUT then ERRHRD (9. MSG4. 0); 

!***« INTEGRITY ROUTINE ERROR 09 **** 
UP HARD.COUNT (.LUN. .BOARD); 
end 

else 

begin 

if .ERROUT then ERRSOFT (10. MSG3. 0); 

.'**** INTEGRITY ROUTINE ERROR 10 **** 
UP SOFT. COUNT (.LUN. .BOARD); 
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6731 

6732 

6733 

6734 

6735 

6736 

6737 

6738 

6739 

6740 

6741 

6742 

6743 

6744 

6745 

6746 

6747 

6748 

6749 

6750 

6751 

6752 

6753 

6754 

6755 

6756 

6757 

6758 

6759 

6760 

6761 

6762 

6763 

6764 

6765 

6766 

6767 

6768 

6769 

6770 

6771 

6772 

6773 

6774 

6775 

6776 

6777 

6778 

6779 

6780 

6781 

6782 

6783 

6784 

6785 


COMMAND INTEGRITY ROUTINE 


27-M*r-1982 19:24:42 
27-Har-1982 19:23:44 


TOPS-20 Bliss-16 V2(212) 
PA:<NEALE>MLX4.8LI.5 (36) 


4515 

4516 

4517 

4518 

4519 

4520 

4521 

4522 

4523 

4524 

4525 

4526 

4527 

4528 

4529 

4530 

4531 

4532 

4533 

4534 

4535 

4536 

4537 

4538 

4539 

4540 

4541 

4542 

4543 

4544 

4545 

4546 

4547 

4548 

4549 

4550 

4551 

4552 

4553 

4554 

4555 

4556 

4557 

4558 

4559 

4560 

4561 

4562 

4563 

4564 

4565 

4566 


begin 

if .ERROUT then ERRSOFT (11, MSG3, 0>; 

!**** INTEGRITY ROUTINE ERROR 11 **** 
UP SOFT.COUNT (.LUN, .BOARD); 
end; 

end; !* 5H * 

tes; 

VALUE = CHECK (.LUN, .URDCNT, UBUFF, LOWEST); 


SEE HOW SUCCESSFUL THE WRITE CHECK WAS: 


selectone .VALUE of 
set 


begin 


! SEE 'SYSERR' FOR DEFINITION 
•OF ERROR # CONTAINED IN 'VALUE' 


!* 51 ♦ RETRY ALLOWED 


if RETRY (SIX, CHECK, .LUN, .WRDCNT, UBUFF, LOWEST) neq 0 
then .'THE RETRY FAILED — SYSTEM FATAL ERROR 


begin 

WHY DROPT C.LUN3 = C0DE.4; 

ERRDF (12, MSG1 , 0); !•*** INTEGRITY ROUTINE ERROf 

DODU (.LUN); 

leave LOOP; .'JUMP JUST BEYOND END OF BLOCK * 4 * 

end; 


!•*** INTEGRITY ROUTINE ERROR 12 **** 


•* 51 * 


begin !* 

WHY DROPT C.LUN3 = C0DE.5; 


•* 5J * FATAL CONTROLLER ERROR — NO RETRY ALLOWED 


ERR&F (13, MSG1, 0); 
DODU (.LUN); 
leave LOOP; 
end; 


"!**** INTEGRITY ROUTINE ERROR 13 **** 

.'JUMP JUST BEYOND END OF BLOCK * 4 * 
!* 5J * 


begin !* 5K * FATAL DRIVE ERROR ~ NO RETRY ALLOWED 

ERRDF (14, MSG1, 0); !•*** INTEGRITY ROUTINE ERROR 14 **** 

WHY DROPT C.LUNJ = CODE.6; 

DODO (.LUN); 

leave LOOP; .'JUMP JUST BEYOND END OF BLOCK * 4 * 

end; !* 5K * 
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SEQ 0175 


6787 ;MLX4 

6788 ; 

6789 

6790 

6791 

6792 

6793 

6794 

6795 

6796 

6797 

6798 

6799 

6800 
6801 
6802 

6803 

6804 

6805 

6806 

6807 

6808 

6809 

6810 
6811 
6812 

6813 

6814 

6815 

6816 

6817 

6818 

6819 

6820 
6821 
6822 

6823 

6824 

6825 

6826 

6827 

6828 

6829 

6830 

6831 

6832 

6833 

6834 

6835 

6836 

6837 

6838 

6839 

6840 

6841 


COMMAND INTEGRITY ROUTINE 


27-Mar-1982 19:24:42 
27-Mar-1982 19:23:44 


T0PS-20 Bliss-16 V2(2 12) 
PA:<NEALE>MLX4.BLI.5 (36) 


4567 

4568 

4569 

4570 

4571 

4572 

4573 

4574 

4575 

4576 

4577 

4578 

4579 

4580 

4581 

4582 

4583 

4584 

4585 

4586 

4587 

4588 

4589 

4590 

4591 

4592 

4593 

4594 

4595 

4596 

4597 

4598 

4599 

4600 

4601 

4602 

4603 

4604 

4605 

4606 

4607 

4608 

4609 

4610 

4611 

4612 

4613 

4614 

4615 

4616 

4617 

4618 


begin 


beg 

ISOLATE (); 

ERRDF (15, MSG2. 0>; 

WHY DROP T r.LUNJ = C0DE.7; 
DODO (.LUN); 
leave LOOP; 
end; 


!* 5L * UNRECOVERABLE DATA ERROR 
!•*** INTEGRITY ROUTINE ERROR 15 


***• 


.'JUMP JUST BEYOND END OF BLOCK 
!* 5L * 


* 4 * 


[53 


begin 

ISOLATE O; 


!* 5M * RECOVERABLE DATA ERROR 


if .ERROUT then PRINTB (FMT10B, .CHAN); 

! * BIT 00’ 

OLDSEC * .MLEL; 

OLDCHN = .CHAN; 

if RETRY (ONE. CHECK, .LUN. .WRDCNT. UBUFF, LOWEST) eql 5 
then 

if ((.MLEL eql .OLDSEC) and (.CHAN eql .OLDCHN)) 
then 

begin 

if .ERROUT then ERRHRD (16. MSG4, 0); 


else 


!***• INTEGRITY ROUTINE ERROR 16 **** 
UP HARD .COUNT (.LUN, .BOARD); 
end 

i 

begin 

if .ERROUT then ERRSOFT (17. MSG3. 0); 

***** INTEGRITY ROUTINE ERROR 17 **** 
UP SOFT.COUNT (.LUN, .BOARD); 
end 


else 


tes; 


end; 


begin 

if .ERROUT then ERRSOFT (18, MSG3, 0); 

!**** INTEGRITY ROUTINE ERROR 18 **** 
UP, SOFT. COUNT (.LUN. .BOARD); 
end; 

!* 5M * 


end; 


!* 5 * END OF TEST e 0R AN ACTIVE DRIVE 
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SEO 0177 


6899 

6900 

6901 

6902 

6903 

6904 

6905 

6906 

6907 

6908 

6909 

6910 

6911 

6912 

6913 

6914 

6915 

6916 

6917 

6918 

6919 

6920 

6921 

6922 

6923 

6924 

6925 

6926 

6927 

6928 

6929 

6930 

6931 

6932 

6933 

6934 

6935 

6936 

6937 

6938 

6939 

6940 

6941 

6942 

6943 

6944 

6945 

6946 

6947 

6948 

6949 

6950 

6951 

6952 

6953 


;MU4 


047406 

047412 

047416 

047420 

047422 

047424 

047430 

047432 

047436 

047440 

047444 

047446 

047452 

047456 

047460 

047462 

047466 

047470 

047474 

047500 

047502 

047504 

047512 

047514 

047516 

047520 

047522 

047524 

047526 

047530 

047534 

047536 

047544 

047546 

047550 

047552 

047554 

047556 

047560 

047562 

047566 

047570 

047572 

047574 

047576 

047600 

047606 

047610 

047612 

047616 

047620 

047622 


COMMAND INTEGRITY ROUTINE 


27-M*r-1982 19:24:42 
27-M«r-1982 19:23:44 


016046 

034500 



MOV 

TOP. SECT (RO) ,-(SP) 


004767 

177560 



JSR 

PC .GET. WRDCNT 


010003 




MOV 

R0.R3 

; *. WRDCNT 

010416 




NOV 

R4,(SP) 

; LUN,* 

010346 




MOV 

R3,-(SP> 

; WRDCNT,* 

012746 

012670 



MOV 

#W8UFF,-<SP> 


011246 




MOV 

(R2).-(SP) 


004767 

175766 



JSR 

PC. WRITE 


010005 




MOV 

R0.R5 

; *, VALUE 

020527 

000001 



CMP 

R5,#1 

; VALUE,* 

001031 




8NE 

3$ 


012746 

000006 



MOV 

#6,-<SP> 

9 

012746 

045424 



MOV 

#WRITE,-(SP) 


010446 




MOV 

R4,-(SP) 

; LUN,* 

010346 




NOV 

R3.-CSP) 

; WRDCNT,* 

012746 

012670 



MOV 

fWBUFF ,-(SP) 


011246 




MOV 

<R2>,-(SP> 


004767 

176530 



JSR 

PC .RE TRY 


062706 

000014 



ADD 

#14. SP 


005700 




TST 

RO 


001446 




BE 8 

7$ 


112764 

000004 

034446 


H0V8 

*4.WHY.DR0PT(R4) 

; *,*(LUN) 

104455 




TRAP 

55 

9 

000001 




.WORD 

1 


011070 




.WORD 

MSG1 


000000 




.WORD 

0 


010400 




MOV 

R4.R0 

; LUN.* 

104451 




TRAP 

51 


000431 




BR 

5J 

• 

9 

020527 

000002 


3S: 

CMP 

R5,#2 

; VALUE,* 

001012 




BNE 

41 


112764 

000005 

034446 


M0V8 

#5,WHY.DR0PT(R4> 

; *,*<LUN) 

104455 




TRAP 

55 

9 

000002 




.WORD 

2 


011070 




.WORD 

MSG1 


000000 




.WORD 

0 


010400 




MOV 

R4.R0 

; LUN,* 

104451 




TRAP 

51 


000414 




BR 

5S 

9 

020527 

000003 


4S: 

CMP 

R5.#3 

; VALUE.* 

001014 




BNE 

7$ 


104455 




TRAP 

55 

9 

000003 




.WORD 

3 


011070 




.WORD 

MSG1 


000000 




.WORD 

0 


112764 

000006 

034446 


MOVB 

#6,WHY.DR0PT(R4) 

; *,*(LUN) 

010400 




MOV 

R4.R0 

; LUN,* 

104451 




TRAP 

51 


062706 

000012 


5$: 

ADD 

#12. SP 

9 

000502 



6$: 

BR 

81 


010416 



7$: 

MOV 

R4.CSP) 

; LUN,* 

010346 




MOV 

R3.-(SP) 

; WRDCNT,* 


TOPS 

PA:< 


4377 


4383 

4389 


4392 

4393 


4394 

4395 
4383 

4402 

4403 


4404 

4405 
4383 

4410 


4411 

4412 

4413 
4417 


j 


J K 
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6955 




;MLX4 





6956 




• 

0 


COMMAND INTEGRITY ROUTINE 



6957 

6958 047624 

012746 

022670 



MOV 

#RBUFF,-(SP) 



6959 047630 

011246 

004767 




MOV 

(R2) ,-<SP) 



6960 047632 

175754 



JS R 

PC, READ 



6961 047636 

010005 




MOV 

R0.R5 

• 

0 

•.VALUE 

6)67 047640 

001072 




BNE 

9$ 

0 


6963 047642 

012746 

012670 



MOV 

fWBUFF ,-(SP) 

• 

0 


6964 047646 

012746 

022670 



MOV 

#RBUFF,-(SP) 



6965 047652 

010346 




MOV 

R3.-CSP) 

• 

• 

WRDCNT,* 

6966 047654 

004767 

174446 



JSR 

PC, DOUBLE. CHECK 



6967 047660 

062706 

000006 



ADD 

#6,SP 



6968 047664 

010066 

000032 



MOV 

R0.32CSP) 

10i 

• 

0 

*, DBL. VALUE 

6969 047670 

001477 




BEQ 



6970 047672 

010446 




MOV 

R4.-(SP) 

% 

0 

LUN,* 

6971 047674 

004767 

165624 



J SR 

PC.SAYWHO 



6972 047700 

012716 

011216 



MOV 

#M$65,(SP) 

• 

0 


6973 047704 

012746 

007072 



MOV 

#SAY1,-(SP) 



6974 047710 

012746 

000002 



MOV 

#2.-C$P> 



6975 047714 

010600 




MOV 

SP,RO 

0 

SP,* 

6976 047716 

104414 




TRAP 

14 



6977 047720 

016616 

000040 



MOV 

40<SP),<SP> 

840(SP),-(SP) 

0 

DBL. VALUE,* 

6978 047724 

017646 

000040 



MOV 

0 

DBL. VALUE,* 

6979 047730 

012746 

006710 



MOV 

#FMT12A f -(SP> 

#3, -ISP) 



6980 047734 

012746 

000003 



MOV 



6981 047740 

010600 




MOV 

SP,RO 

• 

0 

SP,* 

6982 C47742 

104414 




TRAP 

14 



6983 047744 

062766 

010000 

000046 


ADD 

#1 0000,46 (SP) 

• 

• 

*. DBL. VALUE 

6984 047752 

016616 

000046 



MOV 

46(SP).(SP) 

• 

• 

DBL. VALUE,* 

6985 047756 

017646 

000046 



MOV 

B46(SP>,-(SP> 

• 

0 

DBL. VALUE,* 

6986 047762 

012746 

006756 



MOV 

#FMT128,-(SP) 

#3.-<SP) 



6987 047766 

012746 

000003 



MOV 



6988 047772 

010600 




MOV 

$P,RO 

0 

SP,* 

6989 047774 

104414 




TRAP 

14 



6990 047776 

112764 

000010 

034446 


M0V8 

#10,WHY.DROPT(R4) 

0 

*,*(LUN) 

6991 050004 

104455 




TRAP 

55 

0 


6992 050006 

000004 




.WORD 

4 



6993 050010 

011070 




.WORD 

M5G1 



6994 050012 

000000 




.WORD 

0 



6995 050014 

010400 




MOV 

R4,R0 

• 

LUN.* 

6996 050016 

104451 




TRAP 

51 



6997 050020 

062706 

000042 



ADD 

142, SP 

0 


6998 050024 

000510 



8$: 

BR 

16$ 



6999 050026 

020527 

000001 


9$: 

CMP 

R5,#1 

• 

• 

VALUE,* 

7000 050032 

001033 




BNE 

12* 



7001 050034 

012746 

000006 



MOV 

#6,-(SP> 

#READ,-(SP) 

0 


7002 050040 

012746 

045612 



MOV 



7003 050044 

010446 




MOV 

R4.-CSP) 

• 

0 

LUN.* 

7004 050046 

010346 

012746 




MOV 

R3.-CSP) 

0 

WRDCNT.* 

7005 050050 

022670 



MOV 

#R8UFF,-(SP) 



7006 050054 

7007 050056 

011246 




MOV 

(R2),-(SP) 



004767 

176142 



JSR 

PC .RETRY 
#14, SP 



7008 050062 

062706 

000014 



ADD 



7 009 050066 

005700 




TST 

RO 




SEQ 0178 

27-Mif-1982 19*24:4 2 TOPS 

27-Mar-1'*82 19:23:44 PA:< 


4423 

4428 


4431 

4432 


4434 


4436 

4437 


4439 

4440 

4441 

4442 
4423 
4448 


6 

PS 

:< 

90 

93 

94 


9 2 
77 

30 


)1 


>9 

>8 

2 

5 


6 


4 
0 
1 

5 
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7011 




;MLX4 


7012 




• 


7013 

7014 050070 

001002 



10$: 

BNE 

7015 050072 


i'-'-Wl 

034446 

11$: 

JMP 

7016 050076 

112764 


Move 

7017 050104 

104435 




TRAP 

7018 050106 





.WORD 

7019 050110 

riVuvl 




.WORD 

7020 050112 

iViViVl 





7021 050114 

MvUvl 




MOV 

7022 050116 

Ifvirrl 




TRAP 

7023 050120 

RvJfrl 



12$: 

BR 

7024 050122 

| • 



CMP 

7025 050126 

■mi 1*1 rm 




BNE 

7026 050130 

112764 


034446 



7027 050136 

104455 




TRAP 

7028 050140 

KBS! 




.WORD 

7029 050142 






7030 050144 

IvJvJvl 




.WORD 

7031 050146 





NOV 

7032 050150 

104451 




TRAP 

7033 050152 




13$: 

BR 

7034 050154 

mml 



CMP 

7035 050160 

001012 




BNE 

7036 050162 

104455 




TRAP 

7037 050164 






7038 050166 

■it infill 




.WORD 

7039 050170 

■VjtIvI 




.WORD 

7040 050172 

| ft 




H0V8 

7041 050200 





MOV 

7042 050202 

104451 




TRAP 

7043 050204 

000416 



14$: 

BR 

7044 050206 




CMP 

7045 050212 





BNE 

7046 050214 

004767 

167112 



JSR 

7047 050220 

104455 




TRAP 

7048 050222 





.WORD 

7049 050224 





.WORD 

7050 050226 

I'A'jI'jI 




.WORD 

7051 050230 

112764 


034446 


HOVB 

7052 050236 

010400 




MJaM 

7053 050240 

104451 



15$: 

16$: 

TRAP 

7054 050242 

7055 050246 




ADD 

JMP 

7056 050252 

■ IfUilTz] 



17$: 

CMP 

7057 050256 

KmiiLiJ 




BNE 

7058 050260 

004767 

167046 

131766 


JSR 

7059 050264 

032767 



BIT 

7060 050272 

001423 




BEO 

7061 050274 


164110 



MOV 

7062 050300 

BviTvM 




ASR 

7063 050302 

■VmVl 




ASR 

7064 050304 





ASR 

7065 050306 

006200 




ASR 


0 


3 


SEQ 0179 


COMMAND INTEGRITY ROUTINE 


11 $ 

24$ 

#4,WHV.DR0PT (R4) 
55 

5 

MSG1 

0 

R4.R0 

51 

15$ 

R5.#2 

13i 

#5.WHV.DR0PT(R4> 

55 

6 

MSG1 

0 

R4.R0 

51 

15 $ 

R5,#3 

14i 

55 

7 

MS61 

0 

#6,WHY.DR0PT (R4) 

R4.R0 

51 

15$ 

R5.#4 

17i 

PC, ISOLATE 
10 

MS62 

0 

#7,WHY.DR0PT (R4) 

R4.R0 

51 

#20. SP 
37$ 

R5,#5 

24i 

PC. ISOLATE 
fl.ERROUT 

I8i 

RML. REGU2.R0 

RO 

RO 

RO 

RO 


27-M*r-1982 19:24:42 TOPS 
27-M»r-1982 19:23:44 PA:< 


*,*(LUN) 

4451 

4452 

LUN,* 

4453 

VALUE.* 

4454 

4423 

*,*(LUN) 

4461 

4462 

LUN,* 

4463 

VALUE.* 

4464 

4423 


4469 

*,*CLUN) 

LUN.* 

4470 

4471 

VALUE,* 

4472 

4423 


4477 

4478 

*,*<LUN) 

LUN,* 

4479 

4480 


4481 

VALUE,* 

4423 


4486 

4488 
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7067 




;MLX4 


7068 






7069 






7070 050310 

006200 




ASR 

7071 050312 

I'K-rX'J 




ASR 

7072 050314 

042700 

177700 



BIC 

7073 050320 

010046 




MOV 

7074 050322 

012746 

006640 



MOV 

7075 050326 

012746 

000002 



MOV 

7076 050332 

010600 




MOV 

7077 050334 

104414 




TRAP 

7078 050336 

062706 

000006 



ADD 

7079 050342 

017766 

164044 

000036 

18$: 

MOV 

7080 050350 

017700 

164034 



MOV 

7081 050354 

006200 




ASR 

7082 050356 

006200 




ASR 

7083 050360 

006200 




ASR 

7084 050362 

006200 




ASR 

7085 050364 

006200 




ASR 

7086 050366 

006200 




ASR 

7087 050370 

042700 

177700 



BIC 

7088 050374 

010066 

000034 



MOV 

7089 050400 

012746 

000001 



MOV 

7090 050404 

012746 

045612 



MOV 

7091 050410 

010446 




MOV 

7092 050412 

010346 




MOV 

7093 050414 

012746 

022670 



MOV 

7094 050420 

011246 




MOV 

7095 050422 

004767 

175576 



JSR 

7096 050426 

062706 

000014 



ADD 

7097 050432 

020027 

000005 



CMP 

7098 050436 

001051 




BNE 

7099 050440 

027766 

163746 

000036 


CMP 

7100 050446 

001034 




BNE 

7101 050450 

016646 

000034 



MOV 

7102 050454 

017700 

163730 



MOV 

7103 050460 

006200 




ASR 

7104 050462 

006200 




AS R 

7105 050464 

006200 




ASR 

7106 050466 

006200 




ASR 

7107 050470 

006200 




ASR 

7108 050472 

006200 




ASR 

7109 050474 

042700 

177700 



BIC 

7110 050500 

020026 




CMP 

7111 050502 

001016 




BNE 

7112 050504 

032767 

000001 

131546 


BIT 

7113 050512 

001404 




BEQ 

7114 050514 

104456 




TRAP 

7115 050516 

000011 




.WORD 

7116 050520 

011202 




.WORD 

7117 050522 





.WORD 

7118 050524 

010446 



19$: 

MOV 

7119 050526 

016746 

163610 



MOV 

7120 050532 

004767 

166664 



JSR 

7121 050536 

000426 




BR 


COMMAND INTEGRITY ROUTINE 

RO 

RO 

#1 77700-R0 
RO.-(SP) 

#FMT10B,-(SP) 

#2.-<SP) 

SP.RO 

14 

#6,SP 

®ML . RE G*44 , 36 ( SP) 

3ML.REG+42.R0 

RO 

RO 

RO 

RO 

RO 

RO 

#1 77700, RO 
R0,34(SP) 

#1,-< P) 

#READ.-<SP> 

R4,-(SP) 

R3,-(SP) 

M8UFF,-(SP> 

(R2).-(SP) 

PC -RE TRY 
#14, SP 
R0,#5 

2li 

aML.REG*44,36(SP) 

20 $ 

34(SP),-(SP) 

aML.REG*42,R0 

RO 

RO 

RO 

RO 

RO 

RO 

#1 77700, RO 
RO-(SP)* 

20i 

#1 -ERROUT 
19§ 

56 

11 

MSG4 

0 

R4,-(SP) 

BOARD, -(SP) 

PC -UP. HARD. COUNT 
23i 


SEO 0180 

27-M*r-1982 19:24:42 TOPS 
27-FUr-1982 19:23:44 PA:< 


; SP,* 

; *.OLDSEC 


4491 

4492 


; *,OLDCHN 
0 

; LUN,* 

; WRDCNT,* 


4494 


; *,OLDSEC 4497 

; OLDCHN,* 


4501 

; LUN.* 4504 

4497 


H 14 
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7123 




;MLX4 





7124 




a 


COMMAND INTEGRITY ROUTINE 



7125 

7126 050540 

032767 

000001 

131512 

20$: 

BIT 

fl.ERROUT 

22§ 

# 


7127 050546 

001415 




BEO 



7128 050550 

104457 




TRAP 

57 



7129 050552 

000012 




.WORD 

12 



7130 050554 

011166 




.WORD 

MSG3 



7131 050556 

000000 




.WORD 

0 



7132 050560 

000410 




BR 

22$ 

# 


7133 050562 

032767 

000001 

131470 

21$: 

BIT 

#1 .ERROUT 

22§ 

a 


7134 050570 

001404 




BEO 



7135 050572 

104457 




TRAP 

57 



7136 050574 

000013 




.UORD 

13 



7137 050576 

011166 




.WORD 

MSG3 



7138 050600 

000000 




.WORD 

0 



7139 050602 

010446 



22$: 

MOV 

R4.-CSP) 

a 

LUN.* 

7140 050604 

016746 

163532 



MOV 

BOARD. -<SP) 



7141 050610 

004767 

167270 



JSR 

PC. UP. SOFT. COUNT 



7142 050614 

022626 



23$: 

CMP 

(SP)+.(SP>* 

a 


7143 050616 

010416 



24$: 

MOV 

R4. (SP) 

• 

a 

LUN,* 

7144 050620 

010346 




NOV 

R3,-(SP) 

a 

WRDCNT,* 

7145 050622 

012746 

012670 



MOV 

#WBUFF,-<SP> 



7146 050626 

011246 




NOV 

(R2).-(SP) 



7147 050630 

004767 

175144 



JSR 

PC. CHECK 



7148 050634 

010005 




MOV 

R0.R5 

• 

# 

•.VALUE 

7149 050636 

020527 

000001 



CMP 

R5.#1 

25i 

• 

a 

VALUE.* 

7150 050642 

001031 




BNE 



7151 050644 

012746 

000006 



MOV 

#6,-(SP) 

a 

0 


7152 050650 

012746 

046000 



MOV 

#CHECK.-(SP) 



7153 050654 

010446 




MOV 

R4.-CSP) 

a 

LUN.* 

7154 050656 

010346 




MOV 

R3.-CSP) 

a 

WRDCNT.* 

7155 050660 

012746 

012670 



MOV 

#W6UFF.-<SP) 



7156 050664 

011246 




MOV 

(R2),-(S P) 



7157 050666 

004767 

175332 



JSR 

PC. RETRY 
#14. SP 



7158 050672 

062706 

000014 



ADD 



7159 050676 

005700 




TST 

RO 



7160 050700 

001462 




BEO 

28$ 



7161 050702 

112764 

000004 

034446 


M0V8 

#4,WHY.DR0PT(R4) 

• 

a 

*,*(LUN) 

7162 050710 

104455 




TRAP 

55 

« 

0 


7163 050712 

000014 




.WORD 

14 



7164 050714 

011070 




.WORD 

MSG1 



7165 050716 

000000 




.WORD 

0 



7166 050720 

010400 




MOV 

R4.R0 

0 

LUN.* 

7167 050722 

104451 




TRAP 

51 



7168 050724 

000450 




BR 

28$ 

0 


7169 050726 

020527 

000002 


25$: 

CMP 

R5.#2 

26i 

• 

a 

VALUE.* 

7170 050732 

001012 




BNE 



7171 050734 

112764 

000005 

034446 


MOVB 

#5.WHY.DR0PT(R4) 

• 

a 

*.*(LUN) 

7172 050742 

104455 




TRAP 

55 

• 

a 


7173 050744 

000015 




.WORD 

15 



7174 050746 

011070 




.WORD 

MSG1 



7175 050750 

000000 




.WORD 

0 



7176 050752 

010400 




MOV 

R4.R0 

a 

a 

LUN.* 

71 7 7 050754 

104451 




TRAP 

51 




SEO 0181 

27-Mar-1982 19:24:42 TOPS 
27-Mar- 1982 19:23:44 PA:< 

4509 


4512 

4518 


4521 

*435 

4527 


4533 

4539 


4542 

4543 


4544 

4545 
4533 

4552 

4553 


4554 




8 15 
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7235 




;MLX4 



7236 




* 


COMMAND INTEGRITY ROUTINE 

rc5r 

72 38 051202 

012746 

046000 



MOV 

#CHECK,-(SP> 

7239 051206 

010446 




MOV 

R4.-CSP) 

7240 051210 

010346 




MOV 

R3,-(St-J 

7241 051212 

012746 

012670 



MOV 

#WBUFF,-(SP) 

7242 051216 

011246 




MOV 

(R2).-(SP) 

7243 051220 

004767 

175000 



JSR 

PC.RETRY 

7244 05 1-, ?4 

062706 

000014 



ADD 

#14. SP 

7245 05123° 

020027 

000005 



CMP 

§Q.#5 

72 46 051234 

001051 




BNE 

33$ 

7247 051236 

027766 

163150 

000044 


CMP 

BML . REG*44 ,44 (SP) 

7248 051244 

001034 




BNE 

32$ 

7249 051246 

016600 

000042 



MOV 

42CSPJ.R0 

7250 051252 

017702 

163132 



MOV 

BML.REG+42.R2 

7251 051256 

006202 




A SR 

R2 

7252 051260 

006202 




ASR 

R2 

7253 051262 

006202 




ASR 

R2 

7254 051264 

006202 




ASR 

R2 

7255 051266 

006202 




ASR 

R2 

7256 051270 

006202 




ASR 

R2 

7257 051272 

042702 

177700 



BIC 

#1 77700, R2 

7258 051276 

020200 




CMP 

R2.R0 

7259 051300 

001016 




BNE 

32$ 

7260 051302 

032767 

000001 

130750 


BIT 

fl.ERROUT 

7261 051310 

001404 




BEO 

31$ 

7262 051312 

104456 




TRAP 

56 

7263 051314 

000020 




.WORD 

20 

7264 051316 

011202 




.WORD 

MSG4 

7265 051320 

000000 




.WORD 

0 

7266 051322 

010446 



31*: 

MOV 

R4.-CSP) 

7267 051324 

016746 

163012 



MOV 

BOARD, -(SP) 

7268 051330 

004767 

166066 



JSR 

PC. UP. HARD. COUNT 

7269 051334 

000426 




BR 

35$ 

7270 051336 

032767 

000001 

130714 

32$: 

BJT 

fl.ERROUT 

7271 051344 

001415 




BEO 

34$ 

7272 051346 

104457 




TRAP 

57 

7273 051350 

000021 




.WORD 

21 „ 

7274 051352 

011166 




.WORD 

MS63 

7275 051354 

000000 




.WORD 

0 

7276 051356 

000410 




BR 

34$ 

7277 051360 

032767 

000001 

130672 

33$: 

BIT 

fl.ERROUT 

7278 051366 

001404 




BEQ 

34$ 

7279 051370 

104457 




TRAP 

57 

7280 051372 

000022 




.WORD 

22 , 

7281 051374 

011166 




.WORD 

MS63 

7282 051376 

oooooo 




.WORD 

0 

7283 051400 

010446 



34$: 

MOV 

R4.-CSP) 

7284 051402 

016746 

162734 



MOV 

BOARD, -(SP) 

7285 051406 

004767 

166472 



JSR 

PC.UP. SOFT. COUNT 

7286 051412 

022626 



35$: 

CMP 

(SP)+,(SP>+ 

7287 051414 

062706 

000026 


36$: 

ADD 

#26, SP 

7288 051420 

005204 



37$: 

INC 

R4 

7289 051422 

020466 

000020 


38$: 

CMP 

R4.20CSP) 


SEQ 0183 

27-Mar-1982 19:24:42 TOPS 
27-M»r-1982 19:23:44 PA:< 


LUN.* 

WRDCNT,* 


; *.OLDSEC 
; OLDCHN,* 


4S88 


; LUN.* 


; LUN.* 


LUN 

LUN.* 


4592 


4595 


4588 

4600 


4603 

4609 


4612 


4576 

4373 

4366 
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7291 

7292 

7293 

7294 051426 

7295 051430 

7296 051434 

7297 051436 

7298 051440 

7299 051444 

7300 051446 

7301 051452 

7302 051456 

7303 

7304 

7305 

7310 

7311 


;MLX4 


002002 

0001 6 7 175656 

005726 

005201 

020127 000001 
003002 

000167 175616 
062706 000022 
000207 


SEQ 0184 


; COMMAND INTEGRITY ROUTINE 

BGE 39$ 

JMP 2$ 

39$: TST (SP)* 

INC R1 

CMP R1 .# 1 
BGT 40$ 

JMP 1$ 

40$: ADD #22, SP 

RTS PC 

; Routine Size: 587 words 
; Maximus stack depth per invocation: 33 words 


27-Mar-1982 19:24:42 
27-Mar-1982 19:23:44 


COMP. FLAG 
COMP. FLAG,* 
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SEQ 0185 


7313 

7314 

7315 

7316 

7317 

7318 

7319 

7320 

7321 

7322 

7323 

7324 

7325 

7326 

7327 

7328 

7329 

7330 

7331 

7332 

7333 

7334 

7335 

7336 

7337 

7338 

7339 

7340 

7341 

7342 

7343 

7344 

7345 

7346 

7347 

7348 

7349 

7350 

7351 

7352 

7353 

7354 

7355 

7356 

7357 

7358 

7359 

7360 

7361 

7362 

7363 

7364 

7365 

7366 

7367 


;MLX4 


4630 

4631 

4632 

4633 

4634 

4635 

4636 

4637 

4638 

4639 

4640 

4641 

4642 

4643 

4644 

4645 

4646 

4647 

4648 

4649 

4650 

4651 

4652 

4653 

4654 

4655 

4656 

4657 

4658 

4659 

4660 

4661 

4662 

4663 

4664 

4665 

4666 

4667 

4668 
4b69 

4670 

4671 

46 72 

4673 

4674 

4675 

4676 

4677 

4678 


DEFINITION OF OPTION 1 

Xsbttl 'DEFINITION OF OPTION 1* 
routine OPTl : novalue = 
begin 


27-Mar-1982 19:24:4 2 
27-Mar-1982 19:23:44 


TOPS-20 Bliss-16 V2(212) 
PA:<NEALE>MLX4.BLI .5 (37) 


!* 1 * START OF ROUTINE 


ROUTINE: 
PURPOSE : 


TO CHECK ADDRESSES USING DATA = SECTOR NUMBER. 
TRANSFERS ARE 4K WORDS IN LENGTH. AND ALL SECTORS 
ARE TESTED. 


THE CODE FOR 'OPTl* IN BRIEF: 

BEGIN 1 (START OF ROUTINE) 

SAY ROUTINE IS RUNNING 

I NCR COMPLEMENT FLAG FROM 0 TO 1 

: BEGIN 2 (START OF COMPLEMENT FLAG SELECTION LOOP) 

: INCR LOGICAL UNIT FROM 0 TO LAST 
: BEGIN 3 (START OF LOGICAL UNIT SELECTION LOOP) 

: : TESTLOOP: 

: : BEGIN 4 (START OF LOOP THAT COMPLETELY TESTS ONE UNIT) 

: IF UNIT IS ACTIVE 
: THEN 

: : : : BEGIN 5 (START OF TEST FOR AN ACTIVE UNIT) 

: INITIALIZE WRITE AND READ BUFFER POINTERS 
: : : SECTOR = LOWEST 

: WHILE SECTOR LEO HIGHEST DO 
: BEGIN 6 (START OF SECTOR SELECTION LOOP) 

: GET WRDCNT 
: GENERATE THE PATTERN 
: SET UP BUFFER POINTERS BEFORE TRANSFER 
: : : : : WRITE 

: LOOK FOR ERRORS (IF DROP UNIT, LEAVE TESTLOOP) 

: CHOOSE WHETHER TO WRITE CHECK OR READ 
: DO THE WRITE CHECK OR READ 
: : : : : LOOK FOR ERRORS (IF DROP UNIT, LEAVE TESTLOOP) 

: : : : CHANGE BUFFER POINTERS AFTER TRANSFER 

: UPDATE SECTOR NUMBER 8Y NUMBER OF SECTORS IN PREVIOUS TRANSFER 
: END 6 (END OF SECTOR SELECTION LOOP) 

: END 5 (END OF TEST FOR AN ACTIVE UNIT) 

: END 4 (END OF TESTLOOP) 

: END 3 (END OF LOGICAL UNIT SELECTION LOOP) 

: END 2 (END OF COMPLEMENT FLAG SELECTION LOOP) 

RETURN 

END 1 (END OF ROUTINE) 


label 

LOOP; 

local 

VALUE, 
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7369 

7370 

7371 

7372 

7373 

7374 

7375 

7376 

7377 

7378 

7379 

7380 

7381 

7382 

7383 

7384 

7385 

7386 

7387 

7388 
7399 

7390 

7391 

7392 

7393 

7394 

7395 

7396 

7397 

7398 

7399 

7400 

7401 

7402 

7403 

7404 

7405 

7406 

7407 

7408 

7409 

7410 

7411 

7412 

7413 

7414 

7415 

7416 

7417 

7418 

7419 

7420 

7421 

7422 

7423 


DEFINITION OF OPTION 1 


27-Mar-1982 19:24:42 
27-',ar-1982 19:23:44 


TOPS -20 Bliss-16 V2<212> 
PA:<NEALE>MLX4.8LI.5 137) 


4679 

4680 

4681 

4682 

4683 

4684 

4685 

4686 

4687 I 

4688 

4689 

4690 

4691 

4692 

4693 

4694 

4695 LOOP 

4696 

4697 

4698 

4699 

4700 

4701 

4702 

4703 

4704 

4705 

4706 

4707 

4708 

4709 

4710 

4711 

4712 

4713 

4714 

4715 

4716 

4717 

4718 

4719 

4720 

4721 

4722 

4723 

4724 

4725 

4726 

4727 

4728 

4729 

4730 


WRDCNT, 

COMMAND, 

PTR, 

OLDSEC, 

OLDCHN. 

SECTOR, 

DBL. VALUE; 

PRINTS (SAY2. WRD34, RTN1 ) ; 

! 'RUNNING 0PT1 ' 

incr COMP FLAG from 0 to 1 do 
begin 

incr LUN from 0 to (.L$UNIT - 1) do 
begin 

) • 

begin 

if .DRIVE STATUS C.LUN3 eql ACTIVE 
then 

begin 

LSLUN = .LUN; 

UPTR = UBUFF; 

RPTR * R8UFF; 

SECTOR = LOWEST; 

while .SECTOR lequ HIGHEST do 
begin 

GEN1 (.SECTOR, .COMP.FLAG); 


!* 2 * START OF COMPLEMENT FLAG SELECTION LOOP 


!* 3 * START OF LOGICAL UNIT SELECTION LOOP 

!• 4 * START OF THE LOOP THAT COMPLETELY TESTS ONE UNIT 


!* 5 * START OF TEST FOR AN ACTIVE UNIT 


»* 6 * START OF SECTOR SELECTION LOOP 


WRDCNT - GET WRDCNT T. SECTOR, HIGHEST); 

SET PTRS (.WRDCNT); 

VALOE = write (.LUN, .WRDCNT, .WPTR, .SECTOR); 


SEE HOW SUCCESSFUL THE WRITE WAS: 


selectone .VALUE of 
set 

Cl J : 

begin 


! SEE 'SYSERR' FOR DEFINITION 
! OF ERROR # CONTAINED IN 'VALUE' 


!* 6A * RETRY ALLOWED 


if RETRY (SIX. write. .LUN. .WRDCNT, .WPTR. .SECTOR) neq 0 
then ITHE RETRY FAILED — SYSTEM FATAL ERROR 

begin 

WHY DROPT C.LUNJ = C0DE.4; 

ERR0F (101. MSG1 , 0); !•*** OPTION 1 ERROR 01 

DODU (.LUN); 

leave LOOP; .'JUMP JUST BEYOND END OF BLOCK * 4 * 
end; 
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StO 0187 


7425 

7426 

7427 

7428 

7429 

7430 

7431 

7432 

7433 

7434 

7435 

7436 

7437 

7438 

7439 

7440 

7441 

7442 

7443 

7444 

7445 

7446 

7447 

7448 

7449 

7450 

7451 

7452 

7453 

7454 

7455 

7456 

7457 

7458 

7459 

7460 

7461 

7462 

7463 

7464 

7465 

7466 

7467 

7468 

7469 

7470 

7471 

7472 

7473 

7474 

7475 

7476 

7477 

7478 

7479 


DEFINITION OF OPTION 1 


4731 

4732 

4733 

4734 

4735 

4736 

4737 

4738 

4739 

4740 

4741 

4742 

4743 

4744 

4745 

4746 

4747 

4748 

4749 

4750 

4751 

4752 

4753 

4754 

4755 

4756 

4757 

4758 

4759 

4760 

4761 

4762 

4763 

4764 

4765 

4766 

4767 

4768 

4769 

4770 

4771 

4772 

4773 

4774 

4775 

4776 

4777 

4778 

4779 

4780 

4781 

4782 


27-Mar-1982 19:24:42 
27-Mar-1982 19:23:44 


!* 6A * 


TOPS-20 Bliss-16 V2C212) 
PA:<NEALE>MLX4.8LI .5 (37) 


[23 : 

begin 


begin !* 68 * FATAL CONTROLLER ERROR — NO RETRY ALLOWED 

WHY DROPT C.LUN3 = C0DE.5; 

ERR DF <102. MSG1 , 0); .'**** OPTION 1 ERROR 02 **** 

DODU (.LUN); 

leave LOOP; ‘JUMP JUST BEYOND END OF BLOCK * 4 * 

end; !* 68 * 

[33 • 

begin ** 6C * FATAL DRIVE ERROR — NO RETRY ALLOWED 

ERRDF (103, MSG1 , 0); ***** OPTION 1 ERROR 03 **** 

WHY DROPT C.LUN3 = C0DE.6; 

DODO (.LUN); 

leave LOOP; !JUMP JUST BEYOND END OF BLOCK * 4 * 

end; !* 6C * 

tes; 

COMMAND = CHOOSE (>; 

if .COMMAND eql read 
then 

begin 

PTR s RPTR* 

VALUE = reaS (.LUN, .WRDCNT , .RPTR, .SECTOR); 
end 

else 

begin 

PTR = WPTR* 

VALUE = CHECK (.LUN, .WRDCNT, .WPTR, .SECTOR); 
end; 


SEE HOW SUCCESSFUL THE OPERATION WAS: 


selectone .VALUE of 
set 


! SEE •SYSERA' FOR DEFINITION 
•OF ERROR * CONTAINED IN 'VALUE* 


CO 3 : 


if .COMMAND eql read 
then 

begin 

if (DBL„ VALUE = DOUBLE.CHECK (.WPTR. .RPTR, .WRDCNT)) neq 0 
then 

begin 

civyun ( i iuj\ • 

PRINTS (SAY1/MSG5); !*ECC LOGIC FAILED TO DETECT DATA ERROR* 


6 15 

CZMLBBO PERFORMANCE EXERCISER MACRO M1113 29-MAR-82 13:41 PAGE 176 
INTEGRITY COMMAND INTEGRITY ROUTINE 


SEQ 0188 


f481 

7482 

7483 

7484 

7485 

7486 

7487 

7488 

7489 

7490 

7491 

7492 

7493 

7494 

7495 

7496 

7497 

7498 

7499 

7500 

7501 

7502 

7503 

7504 

7505 

7506 

7507 

7508 

7509 

7510 

7511 

7512 

7513 

7514 

7515 

7516 

7517 

7518 

7519 

7520 

7521 

7522 

7523 

7524 

7525 

7526 

7527 

7528 

7529 

7530 

7531 

7532 

7533 

7534 

7535 


MLX4 


DEFINITION OF OPTION 1 


4783 

4784 

4785 

4786 

4787 

4788 

4789 

4790 

4791 

4792 

4793 

4794 

4795 

4796 

4797 

4798 

4799 

4800 

4801 

4802 

4803 

4804 

4805 

4806 

4807 

4808 

4809 

4810 

4811 

4812 

4813 

4814 

4815 

4816 

4817 

4818 

4819 

4820 

4821 

4822 

4823 

4824 

4825 

4826 
1327 

4828 

4829 

4830 

4831 

4832 

4833 

4834 


27-Mar-1982 19:24:42 
27-Mar-1982 19:23.44 


' )PS-20 Bliss-16 V2<212) 

P «:<NEALE>MLX4.BLI,5 (37) 


PRINTS (FMT12A, . .DBL VALUE, .DBL VALUE); 

."GOOD DATA: XXXXXX AT LOCATION YYYVYY' 

DBL VALUE = .DBL. VALUE ♦ BUFSI2*2; 

PRIRTB (FMT12B, ..DBL. VALUE, .DBL VALUE); 

! 'BAD DAT*: PPPPPP AT LOCATION OQQOQQ' 

WHY DROPT C.LUN] = C0DE.8; 

ERR0F (104. MSG1 , 0); !***• OPTION 1 ERROR 04 **** 

DODU (.LUN); 

leave LOOP; .'JUMP JUST BEYOND END OF BLOCK * 4 « 
end; 


end; 


[13 : 


!* 6D * RETRY ALLOWED 


begin 

if RETRY (SIX, .COMMAND, .LUN, *WRDCNT, .PTR. .SECTOR) neq 0 
then .'THE RETRY FAILED — SYSTEM FATAL ERROR 

begin 

WHY. DROPT C.LUN] = C0DE.4; 

ERRPF (105. MSG1. 0); !*•** OPTION 1 ERROR 05 **** 

DODU (.LUN); 

leave LOOP; !JUMP JUST BEYOND END OF BLOCK * 4 * 
end; 


end; 


.'* 6D * 


C 23 


begin 

WHY DROPT C.LUN3 = C0DE.5; 


ERRBF (106- MSG1. 0); 
DODU (.LUN); 


I* 6E * FATAL CONTROLLER ERROR — NO RETRY ALLOWED 
!***• OPTION 1 ERROR 06 **** 


leave LOOP; 
end; 


•JUMP JUST BEYOND END OF BLOCK * 4 * 
i* 6E * 


[33 


begin 

WHY DROPT [.LUN] = C0DE.6; 


ERR0F <107. MSG1. 0); 
DODU (.LUN); 


!* 6F * FATAL DRIVE ERROR — NO RETRY ALLOWED 
!**** OPTION 1 ERROR 07 **** 


leave LOOP; 
end; 


C43 


! JUMP JUST BEYOND END OF BLOCK * 4 * 
6F * 


!* 6G * UNRECOVERABLE DATA ERROR 


begin 

ISOLATE (); 

ER RDF (108. MSG2- 0); !*•** OPTION 1 ERROR 08 **** 

WHY DROPT l.LUNJ = C0DE.7; 

DODO (.LUN); 

leave LOOP; iJUMP JUST BEYOND END OF BLOCK * 4 • 

end; 6G * 
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SEU 0189 


7537 ;MLX4 

7538 ; 

7539 

7540 

7541 

7542 

7543 

7544 

7545 

7546 

7547 

7548 

7549 

7550 

7551 

7552 

7553 

7554 

7555 

7556 

7557 

7558 

7559 

7560 

7561 

7562 

7563 

7564 

7565 

7566 

7567 

7568 

7569 

7570 

7571 

7572 

7573 

7574 

7575 

7576 

7577 

7578 

7579 

7580 

7581 

7582 

7583 

7584 

7585 

7586 

7587 

7588 

7589 

7590 

7591 


DEFINITION OF OPTION 1 


4835 

4836 

4837 

4838 

4839 

4840 

4841 

4842 

4843 

4844 

4845 

4846 

4847 
4843 

4849 

4850 

4851 

4852 

4853 

4854 

4855 

4856 

4857 

4858 

4859 

4860 

4861 

4862 

4863 

4864 

4865 

4866 

4867 

4868 

4869 

4870 

4871 

4872 

4873 

4874 

4875 

4876 

4877 

4878 

4879 

mo 

4881 

4882 

4883 

4884 

4885 

4886 


27-Mar-1982 19:24:42 
27-Mar-K82 19:23:44 


TOPS *20 Bliss-16 V2C212) 
PA:<NEALE>MLX4.BLI.5 (37) 


C5J 


begin 

ISOLATE (); 


! * 6H * RECOVERABLE DATA ERROR 
if .ERROUT then PRINTS (FMT106, .CHAN); 


! ' BIT 00’ 

OLDSEC = .HLEL; 

OLDCHN = .CHAN; 

if RETRY (ONE, .COMMAND, .LUN, .URDCNT, .PTR, .SECTOR) eql 5 
then 

if ((.MLEL eql .OLDSEC) and (.CHAN eql .OLDCHN)) 
then 

begin 


else 


if .ERROUT then ERRHRD (109, MSG4, 0); 

UP HARD.COUNT (.LUN, .BOARD); 
end 

* 

begin 

if .ERROUT then ERRSOFT (110, MSG3, 0); 

UP SOFT.COUNT (.LUN, .BOARD); 
end 


***** OPTION 1 ERROR 09 **** 


***** OPTION 1 ERROR 10 **** 


else 


begin 

if .ERROUT then ERRSOFT (111, MSG3, 0); !**♦* OPTION 1 ERROR 11 **** 

UP SOFT. COUNT (.LUN, .BOARD); 
end; 

!* 6 H * 


end; 


end; 

tes; 

WPTR = .WPTR ♦ (,WRDCNT*2); 

SECTOR = .SECTOR ♦ (.WRDCNT/256); 
end; !* 6 * 

!* 5 • 


END OF SECTOR SELECTION LOOP 
END OF TEST FOR AN ACTIVE UNIT 


Test to see if this uut's address space is 
to be read for soft errors. This test is 
is intended for DMT purposes. 
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SEQ 0190 


7593 

7594 

7595 

7596 

7597 

7598 

7599 

7600 

7601 

7602 

7603 

7604 

7605 

7606 

7607 
7S08 

7609 

7610 

7611 

7612 

7613 

7614 

7615 

7616 

7617 

7618 

7619 

7620 

7621 

7622 

7623 

7624 

7625 

7626 

7627 

7628 

7629 

7630 

7631 

7632 

7633 

7634 

7635 

7636 

7637 

7638 

7639 

7640 

7641 

7642 

7643 

7644 

7645 

7646 

7647 


4887 

4888 

4889 

4890 

4891 

4892 

4893 

4894 

4895 

4896 

4897 

4898 

4899 

4900 

4901 

4902 

4903 

4904 

4905 

4906 

4907 

4908 

4909 

4910 

4911 

4912 

4913 

4914 

4915 

4916 

4917 

4918 

4919 

4920 

4921 

4922 

4923 

4924 

4925 

4926 

4927 

4928 

4929 

4930 

4931 

4932 

4933 

4934 
P 4935 
P 4936 

4937 

4938 


DEFINITION OF OPTION 1 

if .EFNS21 
then 

begin 

I 

! version C2mlbb changed incr to incru 


2 7-Mar- 1982 19:24:42 
2 7-Mar- 1982 19:23:44 


TOPS-20 Bliss-16 V2(212) 
PA:<NEALE>MLX4.BLl .5 (37) 


!Is the background pattern to be read 


incru SECTOR from LOWEST to HIGHEST do 

if read (.LUN, 256, RBUFF, .SECTOR) eql 5 
then 

begin 

ISOLATE (); .'Find the failing bank and board no. 

if .ERROUT then PRINTS (FMT10B, .CHAN); 

! Print where the error is 

I 

! Save the contents of the ML error location 
! register so we can compare it to the new 
contents of this register after the retry, 
j This is done to classify the error. 

OLDSEC = .MLEL; 

OLDCHN = .CHAN; 

i 

I Do a classify retry call. If the same error 
! occures then classify it as a hard error. If 
! a different error occured or the error went away 

• then classify it as a soft error. 

if RETRY (ONE. .COMMAND. .LUN. 256. .PTR. .OLDSEC) eql 5 
then 

i 

! The same error occured so see if it is at the same 
! sector and channel number, if so then classify 
.' it as a hard error else classiy it as a soft 

• error. 

i 

if ((.MLEL eql .OLDSEC) and (.CHAN eql .OLDCHN)) 
then 

begin ISame error occured 'hard' 


if .ERROUT 
then 

begin 

ERRHRD (112, 


JPrint error if enabled 


iRD (112, 'Error number 

MSG4, .'Error message 

0); .'Additional message routine 


j 


J 15 
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SEQ 0191 


7649 ;MLX4 

7650 ; 

7651 

7652 ; 

7653 ; 

7654 ; 

7655 ; 

7656 ; 

7657 ; 

7658 ; 

7659 ; 

7660 ; 

7661 ; 

7662 ; 

7663 ; 

7664 ; 

7665 ; 

7666 ; 

7667 ; 

7668 ; 

7669 ; 

7670 ; 

7671 ; 

7672 ; 

7673 ; 

7674 ; 

7675 ; 

7676 ; 

7677 ; 

7678 ; 

7679 ; 

7680 ; 

7681 ; 

7682 ; 

7683 ; 

7684 ; 

7685 ; 

7686 ; 

7687 ; 

7688 ; 

7689 ; 

7690 ; 

7691 ; 

7692 ; 

7693 ; 

7697 

7698 

7702 051460 

7703 051464 


DEFINITION OF OPTION 1 


27-Mar-1982 19:24:42 TOPS-20 BlTss-16 V2(212) 

27-Mar-1982 19:23:44 PA:<*5ALE>MLX4.BU .5 (37) 


UP HARD.COUNT (.LUN, .BOARD); 
end 


begin 


!Not the same error 'soft' 
IPrint error if enabled 


if .ERROUT JPrint error if enabled 

then 

begin 

ERkSOFT (113, lError number 

MSG3, ! Error message 
0); ! Additional message routine 

end; 


UP SOFT.COUNT (.LUN, .BOARD); 
end 


begin 


!Not the same error 'soft' 


if .ERROUT .'Print error if enabled 

then 

begin 

ERRSOFT (114, .'Error number 

MSG3, .'Error message 

0); '.Additional message routine 

end; 

UP SOFT.COUNT (.LUN, .BOARD); 
end; 


return; 

end; 


!* 4 * END OF LOOP THAT COMPLETELY TESTS ONE UNIT 
!* 3 * END OF LOGICAL UNIT SELECTION LOOP 

!• 2 * END OF COMPLEMENT FLAG SELECTION LOOP 


•* 1 * END OF ROUTINE 


004167 

162706 


133650 

000020 


0PT1 : 


.S8TTL OPT1 DEFINITION OF OPTION 1 
J SR R1.SSAVE5 

SUB #20, SP 


K 15 
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0PT1 DEFINITION OF OPTION 1 SEQ 0192 


7705 




;MLX4 



27-Mar-1982 19:24:42 

TOPS 

7706 

7707 

7708 051470 




0 


DEFINITION OF OPTION 1 

27-Nar-1982 19:23:44 

PA:< 

012746 

007626 



NOV 

#RTN1.-(SP> 

*URD34,-(SP> 

# 

4687 

7709 051474 

012746 

007344 



NOV 



7710 051500 

012746 

007100 



NOV 

#SAY2,-(SP) 



7711 051504 

012746 

000003 



NOV 

#3,-<SP) 



7712 051510 

010600 




NOV 

SP.RO 

; SP,* 


7713 051512 

104414 




TRAP 

14 


4690 

7714 051514 

005066 

000026 



CLR 

26CSP) 

; COMP. FLAG 

7715 051520 

016766 

130266 

000012 

1$: 

NOV 

LSUNIT.12(SP) 

• 

4693 

7716 051526 

005066 

000010 



CLR 

10CSP) 

; LUN 


7717 051532 

000167 

002254 



JNP 

41$ 


4698 

7718 051536 

016600 

000010 


2$: 

MOV 

10(SP) ,R0 

; LUN,* 

7719 051542 

006200 




ASR 

RO 



7720 051544 

006200 




ASR 

RO 



7721 051546 

006200 




ASR 

RO 



7722 051550 

062700 

034442 



ADD 

#DRIVE. STATUS, RO 



7723 051554 

010046 




NOV 

RO.-(SP) 



7724 051556 

016646 

000012 



NOV 

12(SP).-(SP) 

#177770- (SP) 

#1,-(SP> 

; LUN.* 


7725 051562 

042716 

177770 



BIC 



7726 051566 

012746 

0C0001 



NOV 



7727 051572 

005046 




CLR 

-ISP) 



7728 051574 

004767 

132556 



J SR 

PC-BLSGT2 
#10, SP 



7729 051600 

062706 

000010 



ADD 



7730 051604 

005300 




DEC 

RO 



7731 051606 

001402 



3$: 

BEQ 

4$ 



7732 051610 

000167 

001516 


JNP 

29$ 


4701 

7733 051614 

016667 

000010 

130252 

4$: 

NOV 

10(SP) ,LSLUN 

; LUN.* 

7734 051622 

012767 

012670 

161040 


NOV 

#WBUFF,WPTR 

9 

4702 

7735 051630 

012767 

022670 

161034 


NOV 

#R8UFF,RPTR 

9 

4703 

7736 051636 

016605 

000010 



NOV 

10(SP) ,R5 

; LUN.* 

4704 

7737 051642 

006305 




ASL 

R5 



7738 051644 

016504 

034460 



NOV 

LOW. SECT (R5) ,R4 

; *, SECTOR 

4706 

7739 051650 

020465 

034500 


5$: 

CMP 

R4,T0P.SECT(R5) 

; SECTOR,* 

7740 051654 

101355 




BHJ 

3$ 


4708 

7741 051656 

010446 




NOV 

R4,-(SP) 

; SECTOR.* 

7742 051660 

016646 

000030 



NOV 

30(SP)--(SP) 

PC.GEN1 

; COMP. FLAG,* 


7743 051664 

004767 

167042 



JSR 


4709 

7744 051670 

010416 




NOV 

R4.(SP) 

; SECTOR.* 

7745 051672 

016546 

034500 



NOV 

TOP. SECT (R5) ,-(SP) 



7746 051676 

004767 

175274 



JSR 

PC,GET.WRDCNT 



7747 051702 

010002 




NOV 

R0.R2 

; *,WRDCNT 

4710 

7748 0517C5 

010216 




NOV 

R2,(SP) 

; WRDCNT,* 

7749 051706 

004767 

175220 



JSR 

PC,SET.PTRS 


4711 

7750 051712 

016616 

000016 



MOV 

16(SP),(SP) 

; LUN,* 

7751 051716 

010246 




MOV 

R2,-(SP> 

; WRDCNT,* 


7752 051720 

016746 

160744 



NOV 

WPTR.-(SP) 



7753 051724 

010446 




NOV 

R4,-CSP) 

; SECTOR.* 


7754 051726 

004767 

173472 



JSR 

PC, WRITE 

; *, VALUE 


7755 051732 

010003 




NOV 

R0,R3 

4717 

7756 051734 

020327 

000001 



CMP 

R3,#1 

; VALUE,* 

7757 051740 

001035 




BNE 

6$ 


4723 

7758 051742 

012746 

000006 



MOV 

#6,-(SP) 

9 

7759 051746 

012746 

045424 



NOV 

#WRITE,-(SP) 




i 
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7761 




;MLX4 



7762 

7763 

7764 051752 

016646 

000030 


• 

MOV 

DEFINITION OF OPTION 1 

30(SP),-(SP) 

R2,-(s£) 

7765 051756 

010246 




MOV 

7766 051760 

016746 

160704 



MOV 

WPTR,-(SP) 

7767 051764 

010446 




MOV 

R4,-(SP) 

7768 051766 

004767 

174232 



JSR 

PC, RETRY 
#14, SP 

7769 051772 

062706 

000014 



ADD 

7770 051776 

005700 




TST 

RO 

7771 052000 

001456 




SEQ 

9S 

7772 052002 

016601 

000024 



MOV 

24(SP) ,R1 

7773 052006 

112761 

000004 

034446 


M0V8 

#4,WHY.DR0PT(R1) 

7774 052014 

104455 




TRAP 

55 

7775 052016 

000145 




.WORD 

145 

7776 052020 

011070 




.WORD 

MSG1 

7777 052022 

OOOCOO 




.WORD 

0 

7778 052024 

016600 

000024 



MOV 

24<SP),R0 

7779 052030 

104451 




TRAP 

51 

7780 052032 

000436 




BR 

8$ 

7781 052034 

020327 

000002 


6$: 

CMP 

R3,#2 

7782 052040 

001015 




BNE 

7 $ 

7783 052042 

016601 

000024 



MOV 

2 4(SP).R1 

7784 052046 

112761 

000005 

034446 


MOVB 

#5,WHY.DR0PT(R1) 

7785 052054 

104455 




TRAP 

55 

7786 052056 

000146 




.WORD 

146 

7787 052060 

011070 




.WORD 

MSG1 

7788 052062 

000000 




.WORD 

0 

7789 052064 

016600 

000024 



MOV 

24(SP),R0 

7790 052070 

104451 




TRAP 

51 

7791 052072 

000416 




BR 

8$ 

7792 052074 

020327 

000003 


7$: 

CMP 

R3,#3 

7793 052100 

001016 




BNE 

9$ 

7794 052102 

104455 




TRAP 

55 

7795 052104 

000147 




.WORD 

147 

7796 052106 

011070 




.WORD 

MSG1 

7797 052110 

000000 




.WORD 

0 

7798 052112 

016601 

000024 



MOV 

24(SP),Rl 

7799 052116 

112761 

000006 

034446 


MOVB 

#6,WHY.0ROPT(R1) 

7800 052124 

010100 




MOV 

R1.R0 

7801 052126 

104451 




TRAP 

51 

7802 052130 

062706 

000014 


8$: 

ADD 

#14, SP 

7803 052134 

000543 




BR 

14$ 

7804 052136 

004767 

174024 


9$: 

JSR 

PC. CHOOSE 

7805 052142 

010066 

000034 



MOV 

R0,34(SP) 

7806 052146 

005001 




CLR 

R1 

7807 052150 

020027 

045612 



CMP 

RO.#READ 

ioi 

7808 052154 

001015 




BNE 

7809 052156 

005201 




INC 

R1 

7810 052160 

016766 

160506 

000036 


MOV 

RPTR,36(SP> 

24<s£),-<SP> 

R2,-(SP) 

RPTR,-<SP) 

78H 052166 

016646 

000024 



MOV 

7812 052172 

010246 




MOV 

7813 052174 

016746 

160472 



MOV 

7814 052200 

010446 




MOV 

R4.-(SP) 

7815 052202 

004767 

173404 



JSR 

PC .READ 


SEQ 0193 


27- Mar-1982 19:24:42 TOPS 

27-Mar-1982 19:23:44 PA:< 


; LUN.* 


; WRDCNT,* 


; SECTOR,* 


; LUN,* 

4726 

0 

4727 

; LUN,* 

4728 

• 

4729 

; VALUE,* 

4717 

; LUN,* 

4736 

# 

4737 

; LUN,* 

4738 

§ 

4739 

; VALUE,* 

4717 

• 

4744 

; LUN,* 

4745 

; LUN.* 

4746 

• 

4747 

• 

0 

4751 

; *, COMMAND 


• 

4753 

; COMMAND.* 


; *,PTR 

4756 

.* LUN,* 

4757 


; SECTOR,* 


1 






M 15 
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OPT1 DEFINITION 

OF OPTION 1 







SEO 

0194 

7817 




;MIX4 




27-Mar-1982 

19:24:42 

TOPS 

7818 




* 


DEFINITION OF OPTION 1 


27-Mar- 1982 

19:23:44 

PA:< 

7819 











7820 052206 

000413 




BR 

11$ 





7821 052210 

016766 

160454 

000036 

10$: 

MOV 

WPTR,36(SP) 

; *.PTR 



4761 

7822 052216 

016646 

000024 



MOV 

24(SP),-(SP) 

; LUN,* 



4762 

7823 052222 

010246 




MOV 

R2,-(SP) 

: WRDCNT,* 




7824 052224 

016746 

160440 



MOV 

UPTR.-(SP) 





7825 052230 

010446 




MOV 

R4,-(SP) 

; SECTOR,* 




7826 052232 

004767 

173542 



JSR 

PC, CHECK 





7827 052236 

010003 



11$: 

MOV 

R0.R3 

; *, VALUE 




7828 052240 

301102 




ONE 

15$ 




4769 

7829 052242 

006001 




ROR 

R1 

# 



4774 

7830 052244 

103402 




BLO 

13$ 





7831 052246 

000167 

001016 


12$: 

JMP 

28$ 





7832 052252 

016746 

160412 


13$: 

MOV 

WPTR.-(SP) 

0 



4778 

7833 052256 

016746 

160410 



MOV 

RPTR.-(SP) 





7834 052262 

010246 




MOV 

R2,-(SP) 

; WRDCNT,* 




7835 052264 

004767 

172036 



JSR 

PC, DOUBLE. CHECK 





7876 052270 

062706 

000006 



ADD 

#6,SP 





7837 052274 

010066 

000042 



MOV 

R0.42CSP) 

; *,DBL. VALUE 




7838 052300 

001762 




BEQ 

12$ 





7839 052302 

016646 

000034 



MOV 

34(SP) ,-(SP) 

; LUN,* 



4781 

7840 052306 

004767 

163212 



JSR 

PC,SAYWHO 





7841 052312 

012716 

011216 



MOV 

#MSG5, (SP) 

# 



4782 

7842 052316 

012746 

007072 



MOV 

#SAY1,-(SP) 





7843 052322 

012746 

000002 



MOV 

#2,-(SP) 





7844 052326 

010600 




MOV 

SP.RO 

; SP,* 




7845 052330 

104414 




TRAP 

14 





7846 052332 

016616 

000050 



MOV 

50(SP). (SP) 

; DBL. VALUE,* 



4783 

7847 052336 

017646 

000050 



MOV 

850(SP),-(SP) 

; DBL. VALUE,* 




7848 052342 

012746 

006710 



MOV 

#FMT12A,-(SP) 





7849 052346 

012746 

000003 



MOV 

#3,-<SP) 





7850 052352 

010600 




MOV 

SP.RO 

; SP,* 




7851 052354 

104414 




TRAP 

14 





7852 052356 

062766 

010000 

000056 


ADD 

#10000,56 (SP) 

; *, DBL. VALUE 



4785 

7853 052364 

016616 

000056 



MOV 

56(SP) , (SP) 

; DBL. VALUE,* 



4786 

7854 052370 

017646 

000056 



MOV 

S56(SP) ,-(SP) 

; DBL. VALUE,* 




7855 052374 

012746 

006756 



MOV 

#FMT12B--(SP) 





7856 052400 

012746 

000003 



MOV 

#3,-(SP> 





7857 052404 

010600 




MOV 

SP,RO 

; SP,* 




7858 052406 

104414 




TRAP 

14 





7859 052410 

016601 

000056 



MOV 

56(SP) ,R1 

; LUN,* 



■T« 

X 

oo 

00 

7860 052414 

112761 

000010 

034446 


M0V8 

#10,WHY.DR0PT(R1) 





7861 052422 

104455 




TRAP 

55 

0 



4789 

7862 052424 

000150 




.WORD 

150 





7863 052426 

011070 




.WORD 

MSG1 





7864 052430 

000000 




.WORD 

0 





7865 052432 

016600 

000056 



MOV 

56(SP),R0 

; LUN.* 



4790 

7866 052436 

104451 




TRAP 

51 





7867 052440 

062706 

000046 



ADD 

#46, SP 




4791 

7868 052444 

000522 



14$: 

BR 

20$ 





7869 052446 

020327 

000001 


15$: 

CMP 

R3.#1 

; VALUE,* 



4769 

7870 052452 

001035 




BNE 

16$ 





7871 052454 

012746 

000006 



MOV 

#6,-(SP) 




4799 
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SEQ 0196 


7929 




;MLX4 




7930 




• 

9 


DEFINITION OF OPTION 1 

7931 








7932 052712 

000167 

001070 


20$: 

JMP 

40$ 

7933 C52716 

020327 

000005 


21$: 

CMP 

R3,#5 

7934 052722 

001162 




BNE 

28$ 

7935 052724 

004767 

164402 



JSR 

PC 

, ISOLATE 

7936 052730 

032767 

000001 

127322 


BIT 

#1 

,ERROUT 

7937 052736 

001423 




BEQ 

22$ 

7938 052740 

017701 

161444 



MOV 

8ML.REG*42,R1 

7939 052744 

006201 




ASR 

R! 


7940 052746 

006201 




A SR 

R1 


7941 052750 

006201 




ASR 

R1 


7942 052752 

006201 




A SR 

R1 


7943 052754 

006201 




ASR 

R1 


7944 052756 

006201 




ASR 

R1 


7945 052760 

042701 

177700 



BIC 

#1 77700, R1 

7946 052764 

010146 




MOV 

R1 

,-(SP> 

7947 052766 

012746 

006640 



MOV 

#FMT10B--(SP> 

7948 052772 

012746 

000002 



MOV 

#2.-<SP> 

7949 052776 

010600 




MOV 

SP.RO 

7950 053000 

104414 




TRAP 

14 

7951 053002 

062706 

000006 



ADD 

#6,SP 

7952 053006 

017766 

161400 

000050 

22$: 

MOV 

aMl.RE6+44,50(SP) 

7953 053014 

017701 

161370 



MOV 

9ML.REG+42.R1 

7954 053020 

006201 




ASR 

R1 


7955 053022 

006201 




ASR 

R1 


7956 053024 

006201 




ASR 

R1 


7957 053026 

006201 




ASR 

R1 

7958 053030 

006201 




ASR 

R1 


7959 053032 

006201 




ASR 

R1 


7960 053034 

042701 

177700 



BIC 

#1 77700, R1 

7961 053040 

010166 

000040 



MOV 

R1,40(SP) 

7962 053044 

012746 

000001 



MOV 

#1 

,-(SP) 

7963 053050 

016646 

000046 



MOV 

46(SP),-(SP) 

7964 053054 

016646 

000040 



MOV 

40(SP),-(SP) 

7965 053060 

010246 




MOV 

R2,-(SP) 

7966 053062 

016646 

000056 



MOV 

56(SP),-(SP) 

7967 053066 

010446 




NOV 

R4,-(SP) 

7968 053070 

004767 

173130 




PC, RE TRY 

7969 053074 

062706 

000014 



KH 

#14,SP 

7970 053100 

020027 

000005 



CMP 

R0.*5 

7971 053104 

001052 




BNE 

25* 

7972 0*31 C6 

027766 

161300 

000050 


CMP 

BML.RE6*44,50(SP) 

7973 053114 

001035 




BNE 

24$ 

7974 053116 

016600 

000040 



MOV 

40(SP),R0 

7975 053122 

017701 

161262 



MOV 

BML.RE6+42,R1 

7976 053126 

006201 




ASR 

R1 


1977 053130 

006201 




ASR 

R1 

1 

7978 053132 

006201 




ASR 

R1 


7979 053134 

006201 




ASR 

R1 

' 

7980 053136 

006201 




ASR 

R1 


7981 053140 

006201 




ASR 

R1 

! 

7982 053142 

042701 

177700 



BIC 

#1 77700, R1 

7983 053146 

020100 




CMP 

R1 

,R0 


27 -Mar-1982 19:24:42 TOPS 
27-Mar-1982 19:23:44 PA:< 


; VALUE,* 4769 

; 4837 

4839 


; SP .* 


; *,OLDSEC 4842 

; 4843 


*,OLDCHN 

4845 

COMMAND,* 

LUN,* 

WRDCNT,* 

PTR,* 

SECTOR.* 


; *,OLDSEC 4848 

; OLDCHN.* 
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SEO 0197 


7935 




;HLX4 


DEFINITION OF OPTION 1 

7986 




• 

# 


7987 

7988 053150 

001017 




8NE 

24$ 

7989 053152 

032767 

000001 

127100 


BIT 

R1.ERR0UT 

23i 

7990 053160 

001404 




BEQ 

7991 053162 

104456 




TRAP 

56 

7992 053164 

000155 




.WORD 

155 

7993 053166 

011202 




.WORD 

MSG4 

7994 053170 

000000 



23$: 

.WORD 

0 

7995 053172 

016646 

000034 


MOV 

34(SP),-(SP) 

7996 053176 

016746 

loll 40 



MOV 

BOARD, -(SP) 

7997 053202 

004767 

164214 



JSR 

PC, UP. HARD. COUNT 

27i 

7998 053206 

000427 




BR 

7999 053210 

032767 

000001 

127042 

24$: 

BIT 

fl.ERROUT 

26 i 

8000 053216 

001415 




BEQ 

8001 053220 

104457 




TRAP 

57 

8002 053222 

000156 




.WORD 

156 

8003 053224 

011166 




.WORD 

MSG3 

8004 053226 

000000 




.WORD 

0 

8005 053230 

000410 




BR 

26$ 

8006 053232 

032767 

000001 

127020 

25$: 

BIT 

#1 .ERROUT 

26$ 

8007 053240 

001404 




BEQ 

8008 053242 

104457 




TRAP 

57 

8009 053244 

000157 




.WORD 

157 

8010 053246 

011166 




.WORD 

MSG3 

8011 053250 

000000 




.WORD 

0 

8012 053252 

016646 

000034 


26$: 

MOV 

34<SP),-(SP) 

8013 053256 

016746 

161060 



MOV 

BOARD. -(SP) 

8014 053262 

004767 

164616 



JSR 

PC. UP. SOFT. COUNT 

8015 053266 

022626 



27$: 

CMP 

(SP)+. (SP)* 

8016 053270 

010200 



28$: 

NOV 

R2.R0 

8017 053272 

006300 




ASL 

RO 

8018 053274 

066700 

157370 



ADD 

WPTR.RO 

8019 053300 

010067 

157364 



NOV 

RO.WPTR 

8020 053304 

010216 




MOV 

R2.(SP) 

#400, -(SP) 

8021 053306 

012746 

000400 



MOV 

8022 053312 

004767 

131652 



JSR 

PC ,8L$DIV 

8023 053316 

060400 




ADD 

R4.R0 

8024 053320 

010004 




MOV 

R0.R4 

8025 053322 

062706 

000026 



ADD 

#26, SP 

3026 053326 

000167 

176316 



JMP 

5$ _ 

8027 053332 

032767 

000001 

126722 

29$: 

BIT 

#1 .EFNS21 

30i 

8028 053340 

001002 




BNE 

8029 053342 

000167 

000440 



JMP 

40$ 

8030 053346 

016600 

000010 


30$: 

MOV 

10(SP).R0 

8031 053352 

006300 




ASL 

RO 

8032 053354 

016001 

034500 



NOV 

T0P.SECT(R0).R1 

8033 053360 

016005 

034460 



MOV 

^OW.SECT(RO).R5 

8034 053364 

000167 

000406 



JMP 

8035 053370 

016646 

000010 


31 S: 

NOV 

10(SP),-(SP) 

8036 053374 

012746 

000400 



MOV 

#400.- (SP) 
#RBUFF,-(SP) 

R5,-(SP) 

8037 053400 

8038 053404 

012746 

010546 

022670 



MOV 

MOV 

8039 053406 

004767 

172200 



JSR 

PC, READ 


LUN.* 


27-Mar-1982 19:24:42 TOPS 
27-Mar-1982 19:23:44 PA:< 

4852 

4834 

4848 

4859 


4861 

4867 


; LUN.* 

; WRDCNT,* 


4869 


4836 

4875 


; WRDCNT,* 

; SECTOR.* 
; *, SECTOR 

; LUN.* 

; *, SECTOR 
; LUN,* 

; SECTOR,* 


4876 


4707 

4706 

4887 


4894 


4896 


J 
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8041 

8042 

8043 

8044 053412 

8045 053416 

8046 053422 

8047 053424 

8048 053430 

8049 053436 

8050 053440 

8051 053444 

8052 053446 

8053 053450 

8054 053452 

8055 053454 

8056 033456 

8057 053460 

8058 053464 

8059 053466 

8060 053472 

8061 053476 

8062 053500 

8063 053502 

8064 053506 

8065 053514 

8066 053520 

8067 053522 

8068 053524 

8069 053526 

8070 053530 

8071 053532 

8072 053534 

8073 053540 

8074 053544 

8075 053550 

8076 053554 

8077 053560 

8078 053564 

8079 053570 

8080 053574 

8081 053600 

8082 053604 

8083 053610 

8084 053612 

8085 053620 

8086 053622 

8087 053626 

8088 053632 
053634 

8090 053636 

8091 053640 

8092 053642 


8095 05 


053646 

053652 


062706 

020027 

001164 

00476’’ 

032767 

001423 

017700 

006200 

006200 

006200 

006200 

006200 

006200 

042700 

010046 

012746 

012746 

010600 

104414 

062706 

017766 

017700 

006200 

006200 

006200 

006200 

006200 

006200 

042700 

010066 

012746 

016646 

016646 

012746 

016646 

016646 

004767 

062706 

020027 

001052 

027766 

001035 

016646 

017700 

006200 

006200 

006200 

006200 

006200 

020026 


000010 

000005 

163702 

000001 

160744 


177700 

006640 

000002 


000006 

160700 

160670 


;MLX4 


126622 


000024 32$: 


177700 

000014 

000001 

000022 

000014 

000400 

000032 

000036 

172424 

000014 

000005 

160574 000024 

000014 

160556 


ADD 

CMP 

BNE 

JSR 

BIT 

BEQ 

MOV 

ASR 

ASR 

ASR 

ASR 

ASR 

ASR 

BIC 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

MOV 

MOV 

ASR 

ASR 

ASR 

ASR 

ASR 

ASR 

8JC 

MOV 

MOV 

MOV 

MOV 


177700 


DEFINITION OF OPTION 1 

#10, SP 

R0,#5 

38§ 

PC, ISOLATE 
#1 .ERROUT 
32i 

BML.REGH2.R0 

RO 

RO 

RO 

RO 

RO 

RO 

A177700.R0 

RO.-(SP) 

#FMT10B,-(SP) 

#2,-(SPf 

SP.RO 

14 

#6.SP 

8ML . REGH4 , 24 ( SP) 

aML.REGH2,R0 

RO 

RO 

RO 

RO 

RO 

RO 

#1 77700.R0 
R0.14CSP) 

#1.-<SP) 

22(SP),-(SP) 

14(SP).-(SP) 

#400. -<SP) 

32(s£),-($P> 

36(SP)»-(SP) 

PC .RE TRY 
#14.SP 
R0.#5 
35i 

BML.REGH4.24CSP) 

34$ 

14(SP),-(SP) 

bml.regh2.ro 

RO 

RO 

RO 

RO 

RO 

RO 

#1 77700, RO 
RO.(SP)* 


SEQ 0198 


27-Mar-1982 19:24:42 TOPS 
27-Mar -1982 19:23:44 PA:< 


; SP.* 

; *,OLDSEC 


; *,OLDCHN 

* 

; COMMAND.* 
; LUN.* 

; PTR.* 

; OLDSEC,* 

; *. OLDSEC 
; OLDCHN,* 


4899 

4901 


4910 

4911 


4919 


4928 








E 16 
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OPT! DEFINITION OF OPTION 1 







SEQ 

0199 

809 7 




;MLXA 




27-Mar-1982 

19:2A:A 2 

TOPS 

8098 




• 

9 


DEFINITION OF OPTION 1 


27-Mar- 1982 

19:23:AA 

PA:< , 

8099 











8100 05 365 A 

001017 




SNE 

3A$ 





8101 053656 

032767 

000001 

12637A 


BIT 

#1 .ERROUT 

• 

# 



A932 

8102 05366A 

001 AOA 




BEQ 

33t 





8103 053666 

10AA56 




TRAP 

56 

• 

9 



A937 

81 OA 053670 

000160 




.WORD 

160 





8105 053672 

011202 




.WORD 

MSGA 





8106 05367A 

000000 




.WORD 

0 





8107 053676 

0166A6 

000010 


33$: 

MOV 

10(SP),-(SP) 

9 

LUN,* 


A9A0 

8108 053702 

0167A6 

160A3A 



MOV 

BOARD, -<SP) 





8109 053706 

00A767 

163510 



JSR 

PC. UP. HARD. COUNT 





8110 053712 

000A27 




BR 

37$ 

9 



A928 

8111 05371 A 

032767 

000001 

126336 

3AS: 

BIT 

#1, ERROUT 

9 



A9A5 

8112 053722 

001 A1 5 




BEQ 

36$ 





8113 05372A 

10AA57 




TRAP 

57 

• 

9 



A950 

811 A 053726 

000161 




.WORD 

161 





8115 053730 

011166 




.WORD 

MSG3 





8116 053732 

000000 




.WORD 

0 





3117 05373A 

000A10 




BR 

36$ 

• 

9 



A953 

8118 053736 

032767 

000001 

12631 A 

35$: 

BIT 

#1. ERROUT 

• 

9 



A959 

8119 0537AA 

001 AOA 




BEQ 

36$ 





8120 0537A6 

10AA57 




TRAP 

57 

9 



A96A 

8121 053750 

000162 




.WORD 

162 





8122 053752 

011166 




.WORD 

MSG3 





8123 05375A 

000000 




.WORD 

0 





81 2A 053756 

0166A6 

000010 


36$: 

MOV 

10(SP),-(SP) 

• 

9 

LUN,* 


A967 

8125 053762 

0167A6 

16035A 



MOV 

BOARD, -(SP) 





8126 053766 

00A767 

16A112 



JSR 

PC, UP. SOFT. COUNT 





8127 053772 

022626 



37$: 

CMP 

(SP)*, (SP)* 

« 

9 



A898 

8128 05377A 

005205 



38$: 

INC 

R5 

• 

9 

SECTOR 


A89A 

8129 053776 

020501 



39$: 

CMP 

R5-R1 

9 

SECTOR,* 



8130 05AOOO 

101002 




BHI 

AOS 





8131 05A002 

000167 

177362 



JMP 

31$ 





8132 05A006 

005266 

000010 


A0$: 

INC 

10 (SP) 

9 

LUN 


A693 

8133 05A012 

026666 

000010 

000012 

A1$: 

CMP 

10(SP) ,12(SP) 

• 

9 

LUN,* 



81 3A 05A020 

002002 




B6E 

A2$ 





8135 05 A 022 

000167 

175510 



JMP 

2$ 





8136 05A026 

005266 

000026 


A2$: 

INC 

26(SP) 

• 

9 

COMP. FLAG 


A690 

8137 05A032 

026627 

000026 

000001 


CMP 

26(SP),#1 

• 

9 

COMP. FLAG,* 



8138 05A0A0 

003002 




BGT 

A3S 





8139 05A0A2 

000167 

175A52 



JMP 

1$ 





81A0 05A0A6 

062706 

000030 


A3$: 

ADD 

#30, SP 

9 



A628 

81 A 1 05A052 

000207 




RTS 

PC 





81 A2 











81 A3 




; Routine Size: 

638 words 





81 A A 




; Maximum stack depth per invocation: 

37 words 




81A9 











8150 
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SEQ 0200 


3152 

8153 

8154 

8155 

8156 

8157 

8158 

8159 

8160 
8161 
8162 

8163 

8164 

8165 

8166 

8167 

8168 

8169 

8170 

8171 

8172 

8173 

8174 

8175 

8176 

8177 

8178 

8179 

8180 
8181 
8182 

8183 

8184 

8185 

8186 

8187 

8188 

8189 

8190 

8191 

8192 

8193 

8194 

8195 

8196 

8197 

8198 

8199 

8200 
8201 
8202 

8203 

8204 

8205 

8206 


;MLX4 


4981 

4982 

4983 

4984 

4985 

4986 

4987 

4988 

4989 

4990 

4991 

4992 

4993 

4994 

4995 

4996 

4997 

4998 

4999 

5000 

5001 

5002 

5003 

5004 

5005 

5006 

5007 

5008 

5009 

5010 

5011 

5012 

5013 

5014 

5015 

5016 

5017 

5018 

5019 

5020 

5021 

5022 

5023 

5024 

5025 

5026 

5027 

5028 

5029 

5030 

5031 

5032 


DEFINITION OF OPTION 2 

Xsfcttl 'DEFINITION OF OPTION 2* 
rout in* 0PT2 : novalue = 
begin 


27-Mar-1982 19:24:42 
27-Mar-1982 19:23:44 


T0PS-20 Bliss-16 V2(212) 
PA:<NEALE>MLX4.BLI.5 (38) 


!* 1 * START OF ROUTINE 


ROUTINE: 

PURPOSE: 


TO CHECK ON DATA RELIABILITY USING THE PATTERNS FROM 
THE PATTERN TABLE. 


THE CODE FOR '0PT2' IN BRIEF: 

BEGIN 1 (START OF ROUTINE) 

SAY THE ROUTINE IS RUNNING 
CHOOSE A MAXIMUM PATTERN NUMBER 
I NCR COUNT FROM 1 TO (2* MAX) 

: BEGIN 2 (START OF PATTERN SELECTION LOOP) 

: GENERATE THE PATTERN 
: I NCR LU4 FROM 0 TO LAST 
: BEGIN 3 (START OF LOGICAL UNIT SELECTION LOOP) 

: : TESTLOCP: 

: BEGIN 4 (START OF LOOP THAT COMPLETELY TESTS 1 UNIT) 

: : IF UNIT IS ACTIVE 
: : : THEN 

: : : : BEGIN 5 (START OF TEST FOR AN ACTIVE UNIT) 

: INITIALIZE THE WRITE AND READ BUFFER POINTERS 
: : : : SECTOR = LOWEST 

: WHILE SECTOR LEO HIGHEST DO 
: : : : BEGIN 6 (START OF SECTOR SELECTION LOOP) 

: : GET.WHDCNT 

: SET UP BUFFER POINTERS BEFORE TRANSFER 
: : : : : WRITE 

: LOOK FOR ERRORS (IF DROP UNIT. LEAVE TESTLOOP) 

: CHOOSE WHETHER TO WRITE CHECK OR READ 
: DO THE WRITE CHECK OR READ 
: : : : : LOOK FOR ERRORS (IF DROP UNIT, LEAVE TESTLOOP) 

: CHANGE BUFFER POINTERS AFTER TRANSFER 

: UPDATE SECTOR NUMBER BY NUMBER OF SECTORS IN PREVIOUS TRANSFER 
: END 6 (END OF SECTOR SELECTION LOOP) 

: END 5 (END OF TEST FOR AN ACTIVE UNIT) 

: END 4 (END OF TESTLOOP) 

: END 3 (END OF LOGICAL UNIT SELECTION LOOP) 

: IF NOT THE QUICK VERIFY PASS THEN 'LOOP READ' (DESCRIBED BELOW) 

: END 2 (END OF PATTERN SELECTION LOOP) 

RETURN 

END 1 (END OF ROUTINE) 

label 

LOOP. 

L00P2; 
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SEO 0201 


8208 ;MLX4 

8209 ; 

8210 
8211 ; 

8212 ; 

8213 ; 

8214 ; 

8215 ; 

8216 ; 

8217 ; 

8218 ; 

8210 ; 

8220 ; 

8221 ; 

8222 : 

8223 ; 

8224 ; 

8225 ; 

8226 ; 

8227 ; 

8228 ; 

8229 ; 
e230 ; 

8231 ; 

8232 ; 

8233 ; 

8234 ; 

8235 ; 

8236 ; 

8237 ; 

8238 ; 

8239 ; 

8240 ; 

8241 ; 

8242 ; 

8243 ; 

8244 ; 

8245 ; 

8246 ; 

8247 ; 

8248 ; 

8249 ; 

8250 ; 

8251 ; 

8252 ; 

8253 ; 

8254 ; 

8255 ; 

8256 ; 

8257 ; 

8258 ; 

8259 ; 

8260 ; 

8261 ; 

8262 ; 


27-Mar-1982 19:24:42 
27-Mar-198? 19:23:44 


DEFINITION OF OPTION 2 27-Mar-198? 

local 

WRDCNT, 

VALUE, 

TEMP, 

MAXPAT, 

OLDSEC, 

OLDCHN, 

SECTOR, 

PTR, 

COMMAND, 

DBL.VALUE; 

PRINTB (SAV2, WRD34, RTN2) ; 

! 'RUNNING 0PT2' 

PATTERN = 0; 

if .QUICK neq 0 then MAXPAT = 1 else MAXPAT * NUM.PATS; 


T0PS-20 8liss-16 V2C212) 
PA:<NEALE>MLX4.BLI.5 (38) 


5070 LOOP 


incr COUNT from 1 to (.MAXPAT*2) do 

begin !* 2 * STAJ 

SELPAT (); 

if .PATTERN gtr 0 
then 

PRINTB (FMT1A, PHR9, .PATTERN) 

J 'PATTERN NUMBER XX* 

else 

begin 

TEMP = -(.PATTERN): 

PRINTB (FMT18, PHR9. .TEMP); 

." PATTERN NUMBER - XX' 

end; 

GEN2 (.PATTERN); 

incr LUN from 0 to (.LSUNJT - 1) do 

begin !* 3 * STA 

begin !* 4 * STA 

if .DRIVE.STATUS C.LUNJ eql ACTIVE 
then 

begin !* 5 * STA 

LSLUN = .LUN; 

VP TR = VBUFF: 

RPTR = R8UFF; 

SECTOR = LOWEST; 

while .SECTOR lequ HIGHEST do 

begin !* 6 * STA 

WRDCNT - GET WRDCNT (.SECTOR. HIGHEST); 
SET PTRS (.WRDCNT); 


!* 2 * START OF PATTERN SELECTION LOOP 


!* 3 * START OF LOGICAL UNIT SELECTION LOOP 

!* 4 * START OF THE LOOP THAT COMPLETELY TESTS 1 UNIT 


!* 5 * START OF TEST FOR AN ACTIVE UNIT 


•* 6 * START OF SECTOR SELECTION LOOP 
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SEQ 0202 


8264 ;MLX4 

8265 ; 

8266 

8267 ; 

8268 ; 

8269 ; 

8270 ; 

8271 ; 

82 
82 
82 
82 
821 
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8 
83 
83 i i 

8312 

8313 

8314 

8315 

8316 

8317 

8318 


5085 

5086 

5087 

5088 

5089 

5090 

5091 

5092 

5093 

5094 

5095 

5096 

5097 

5098 

5099 

5100 

5101 

5102 

5103 

5104 

5105 

5106 

5107 

5108 

5109 

5110 

5111 

5112 

5113 

5114 

5115 

5116 

5117 

5118 

5119 

5120 

5121 

5122 

5123 

5124 

5125 

5126 

5127 

5128 

5129 

5130 

5131 

5132 

5133 

5134 

5135 

5136 


VALUE = write (.LUN, .WRDCNT, .WPTR, .SECTOR); 


SEE HOU SUCCESSFUL THE WRITE WAS: 


selectone .VALUE of 
set 

C1J : 
begin 


.'SEE 'SYSERR' FOR DEFINITION 
!0F ERROR * CONTAINED IN 'VALUE' 


!* 6A * RETRY ALLOWED 


if RETRY (SIX, write, .LUN, .WRDCNT, .WPTR. .SECTOR) neg 0 
then ! THE RETRY FAILED — SYSTEM FATAL ERROR 


begin 

WHY DROPT [.LUND = C0DE.4; 


ERRUF (2 01. MSG1. 0); ***** OPTION 2 ERROR 01 **** 

DODU (.LUN); 

leave LOOP; !JUMP JUST BEYOND END OF BLOCK * 4 * 
end; 

end; !* 6A * 

begin !* 68 * FATAL CONTROLLER ERROR — NO RETRY ALLOWED 


WHY DROPT [.LUND = C0DE_5; 


ERRBF (202. MSG1. 0); !***• OPTION 2 ERROR 02 **** 

DODU (.LUN); 

leave LOOP; iJUMP JUST BEYOND END OF BLOCK * 4 * 

end; !* 6B * 


begin ;* 6C * fatal drive error — no retri 

ERRDF (203. MSG1, 0); !**** OPTION 2 ERROR 03 **** 

WHY DROPT l.LUND = C0DE.6; 

DODO (.LUN); 

leave LOOP; !JUMP JUST BEYOND END OF BLOCK * 4 * 

end; !* 6C * 

tes; 

COMMAND = CHOOSE (); 

if .COMMAND eql read 
then 

begin 

PTR > RPTR* 

VALUE = read (.LUN, .WRDCNT. .RPTR. .SECTOR); 
end 

else 

begin 

PTR = .WPTR; 

VALUE = CHECK (.LUN, .WRDCNT. .WPTR. .SECTOR); 


i* 6C * FATAL DRIVE ERROR — NO RETRY ALLOWED 


J 



CZMLBBO PERFORMANCE EXERCISER 
OPT! DEFINITION OF OPTION 1 


MACRO Ml 113 29-MAR-82 13:41 PA6E 191 


SEQ 0203 


8320 ;MLX4 

8321 ; 


8366 

8367 

8368 


DEFINITION OF OPTION 2 


27-Mar-1982 19:24:42 
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TOPS-20 Bliss-16 V2(212) 
PA : <NEALE>MLX4 .BLI . 5 (38) 


SEE HOU SUCCESSFUL THE OPERATION WAS: 


selectone .VALUE of 
set 


! SEE ’SYSERR’ FOR DEFINITION 
.'OF ERROR » CONTAINED IN ’VALUE’ 


if .COMMAND eql read 
then 

begin 

if (DBL. VALUE = DOUBLE.CHECK (.WPTR, .RPTR, .URDCNT)) neq 0 
then 


begin 

SAYWHO (.LUN); 


PRINTB (SAY1. MSG5); J’ECC LOGIC FAILED TO DETECT DATA ERROR’ 

PRINTB (FMT12A, ..DBL VALUE, .DBL VALUE); 

! 'GOOD DATA: XXXXXX AT LOCATION YYYYYY' 

DBL VALUE = .DBL. VALUE ♦ BUFSIZ*2; 

PRIflTB (FMT12B, ..DBL VALUE, .DBL VALUE); 

! 'BAD DAT*: PPPPPP AT LOCATION QQQQQQ ' 

WHY DROPT C.LUN3 = C0DE.8; 

ERR0F (204, MS61, 0); !*♦** OPTION 2 ERROR 04 **** 

DODU (.LUN); 

leave LOOP; 1JUMP JUST BEYOND END OF BLOCK * 4 * 
end; 


begin !* 6D * RETRY ALLOWED 

if RETRY (SIX, .COMMAND, .LUN, .URDCNT, .PTR. .SECTOR) neg 0 

ERR ^ 


begin 

WHY.DF 


! THE RETRY FAILED — SYSTEM FATAL 


WHY DROPT C.LUNJ = C0DE.4; 

ERR0F (205, MSG1, 0); .'**** OPTION 2 ERROR 05 **** 

DODU (.LUN); 

leave LOOP; .'JUMP JUST BEYOND END OF BLOCK * 4 * 
end; 


begin !* 6t 
WHY DROPT C.LUN3 = C0DE.5; 
ERRPF (206, MSG1, 0); 

DODU (.LUN); 


!* 6D * 


!* 6E * FATAL CONTROLLER ERROR — NO RETRY ALLOWED 


**** OPTION 2 ERROR 06 **** 
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8376 

8377 

8378 

8379 

8380 

8381 

8382 

8383 

8384 

8385 

8386 

8387 

8388 

8389 

8390 

8391 

8392 

8393 

8394 

8395 

8396 

8397 

8398 

8399 

8400 

8401 

8402 

8403 

8404 

8405 

8406 

8407 

8408 

8409 

8410 

8411 

8412 

8413 

8414 

8415 

8416 

8417 

8418 

8419 

8420 

8421 

8422 
3423 

8424 

8425 

8426 

8427 

8428 

8429 

8430 


MLX4 


5189 

5190 

5191 

5192 

5193 

5194 

5195 

5196 

5197 

5198 

5199 

5200 

5201 

5202 

5203 

5204 

5205 

5206 

5207 

5208 

5209 

5210 

5211 

5212 

5213 

5214 

5215 

5216 

5217 

5218 

5219 

5220 

5221 

5222 

5223 

5224 

5225 

5226 

5227 

5228 

5229 

5230 

5231 

5232 

5233 

5234 

5235 

5236 

5237 

5238 

5239 

5240 


J 16 
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leave LOOP; 
end; 


SEQ 0204 


27-Mar-1982 19:24:42 
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TOPS-20 Bliss-16 V2(212> 
PA:<NEALE>MLX4.BLI .5 (38> 


[33 


.MJMP JUST BEYOND END OF BLOCK * 4 * 
!* 6E * 


6F * FATAL DRIVE ERROR — MO RETRY ALLOWED 


Er8dF (207. MSG1 , 0); !*•** OPTION 2 ERROR 07 **** 

WHY DROPT E.LUN3 = C0DE.6; 

DODO (.LUN); 

leave LOOP; .'JUMP JUST BEYOND END OF BLOCK * 4 * 

end; !* 6F * 


[43 


begin ^ 

ERRDF (2081 MSG2. 0); !***♦ OPTION 2 ERROR 08 **** 

WHY DROPT L . LUN] = C0DE.7; 

DODO (.LUN); 

leave LOOP; .'JUMP JUST BEYOND END OF BLOCK * 4 * 

end; .'* 66 * 


!* 6G * UNRECOVERABLE DATA ERROR 


C53 : 
begin 

ISOLATE (); 


!* 6H * RECOVERABLE DATA ERROR 


if .ERROUT then PRINTB (FMT108. .CHAN); 

!' BIT QQ’ 

OLDSEC = .MLEL; 

OLDCHN = .CHAN; 

if RETRY (ONE. .COMMAND. .LUN. .WRDCNT. .PTR, .SECTOR) eql 5 
then 

if ((.MLEL eql .OLDSEC) and (.CHAN eql .OLDCHN)) 
then 

begin 

if .ERROUT then ERRHRD (209, MSG4, 0); 


***** OPTION 2 ERROR 09 **** 


else 


UP HARD_COUNT (.LUN, .BOARD); 
end 

t 

begin 

if .ERROUT then ERRSOFT (210, MSG3, 0); 

UP SOFT.COUNT (.LUN, .BOARD); 
end 


***** OPTION 2 ERROR 10 **** 


else 


begin 
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SEQ 0205 


8432 ;MLX4 

8433 ; 

8434 

8435 ; 

8436 ; 

8437 ; 

8438 ; 

8439 ; 

8440 ; 

8441 ; 

8442 ; 

8443 ; 

8444 ; 

8445 ; 

8446 ; 

8447 ; 

8448 ; 

8449 ; 

8450 ; 

8451 ; 

8452 ; 

8453 ; 

8454 ; 

8455 ; 

8456 ; 

8457 ; 

8458 ; 

8459 ; 

8460 ; 

8461 ; 

8462 ; 

8463 ; 

8464 ; 

8465 ; 

8466 ; 

84i 
84i 
84i 
84 

8471 

84 72 ; 

8473 ; 

8474 ; 

8475 ; 

8476 ; 

8477 ; 

8478 ; 

8479 ; 

8480 ; 

8481 ; 

8482 ; 

8483 ; 

8484 ; 

8485 ; 

8486 ; 


DEFINITION OF OPTION 2 
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5241 

5242 

5243 

5244 

5245 

5246 

5247 

5248 

5249 

5250 

5251 

5252 

5253 

5254 

5255 

5256 

5257 

5258 

5259 

5260 

5261 

5262 

5263 

5264 

5265 

5266 

5267 

5268 

5269 

5270 

5271 

5272 

5273 

5274 

5275 

5276 

5277 

5278 

5279 

5280 

5281 

5282 

5283 

5284 

5285 

5286 
5267 

5288 

5289 

5290 

5291 

5292 


if .ERROUT then ERRSOFT (211. MSG3, 0); !**•* OPTION 2 ERROR 11 **** 

UP SOFT_COUNT (.IUN, .BOARD); 
end; 

end; !* 6H * 

tes; 

WPTR = .WPTR ♦ (.WRDCNT*2); „ 

SECTOR = .SECTOR + (.WRDCNT/256); 

end; !* 6 * END OF SECTOR SELECTION LOOP 

!* 5 * END OF TEST FOR AN ACTIVE UNIT 


if .OUICK eql 0 
then 

begin 


!* 4 * END OF TESTLOOP 

•* 3 * END OF LOGICAL UNIT SELECTION LOOP 


! * 11 * START OF LOOP READING SECTION 


THIS IS THE 'LOOP READ' SECTION UHICH WAS MENTIONED IN 
THE DOCUMENTATION AT THE 8EGINNING OF THIS ROUTINE. IT 
IS NOT EXECUTED DURING THE QUICK VERIFY PASS. 8UT IT IS 
FOR EVERY OTHER PASS THROUGH 0PT2. 

THE CODE IN BRIEF: 

BEGIN 11 (START OF LOOP READING SECTION) 

INCR LUN FROM 0 TO LAST 

: BEGIN 12 (START OF LOGICAL UNIT SELECTION LOOP) 

: TESTL00P2: 

: BEGIN 13 (START OF LOOP THAT COMPLETELY TESTS 1 UNIT) 

: IF UNIT IS ACTIVE 

• . then 

- BEGIN 14 (START OF TEST FOR AN ACTIVE UNIT) 

: INITIALIZE THE WRITE AND READ BUFFER POINTERS 
: SECTOR = LOWEST 

: WHILE SECTOR LEO HIGHEST DO 

: : : : BEGIN 15 (START OF SECTOR SELECTION LOOP) 

; : : : GET WRDCNT 

: : : : SET UP BUFFER POINTERS BEFORE TRANSFER 

: : : : CHOOSE WHETHER TO WRITE CHECK OR READ 

: : : : INCR KOUNT FROM 1 TO TIMES „ R 

: : : : BEGIN 16 (START OF COUNTING LOOP FOR LOOP READING) 

: : : : : DO THE WRITE CHECK OR READ 

: LOOK FOR ERRORS (IF DROP UNIT. LEAVE TESTL00P2) 

: END 16 (END OF COUNTING LOOP FOR LOOP READING) 

: : : : CHANGE BUFFER POINTERS AFTER TRANSFER , _ _ 

: UPDATE SECTOR NUMBER BY # SECTORS IN PREVIOUS TRANSFER 
: : : : END 15 (END OF SECTOR SELECTION LOOP) 
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SEQ 0206 


8488 

8489 

8490 

8491 

8492 

8493 

8494 

8495 

8496 

8497 

8498 

8499 

8500 

8501 

8502 

8503 

8504 

8505 

8506 

8507 

8508 

8509 

8510 

8511 

8512 

8513 

8514 

8515 

8516 

8517 

8518 

8519 

8520 

8521 

8522 

8523 

8524 

8525 

8526 

8527 

8528 

8529 

8530 

8531 

8532 

8533 

8534 

8535 

8536 

8537 

8538 

8539 

8540 

8541 

8542 


DEFINITION OF OPTION 2 
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5293 

5294 

5295 

5296 

5297 

5298 

5299 

5300 

5301 L00P2 

5302 

5303 

5304 

5305 

5306 

5307 

5308 

5309 

5310 

5311 

5312 

5313 

5314 

5315 

5316 

5317 

5318 

5319 

5320 

5321 

5322 

5323 

5324 

5325 

5326 

5327 

5328 

5329 

5330 

5331 

5332 

5333 

5334 

5335 

5336 

5337 

5338 

5339 

5340 

5341 

5342 

5343 

5344 


: END 14 (END OF TEST FOR AN ACTIVE UNIT) 
: : END 13 (END OF TESTL00P2) 

: END 12 (END OF LOGICAL UNIT SELECTION LOOP) 
END 11 (END OF LOOP READING SECTION) 


incr LUN from 0 to (.LSUNIT - 1) do 
begin 

begin 


!* 12 * START OF LOGICAL UNIT SELECTION LOOP 

!* 13 * START OF THE 2ND LOOP THAT COMPLETELY TESTS 1 UNIT 


if .DRIVE.STATUS C.LUN3 eql ACTIVE 
then . . , 

begin ! * 14 * 

LSLUN = .LUN; 

WPTR = UBUFF; 

RPTR = RBUFF; 

SECTOR = LOWEST; 

while .SECTOR lequ HIGHEST do 

begin !* 15 * 


START OF LOOP THAT TESTS AN ACTIVE UNIT 


begin :* i> * START OF SECTOR SELECTION LOOP 

URDCNT = GET URDCNT (.SECTOR. HIGHEST); 

SET PTRS (.URDCNT): 

COMMAND = CHOOSE (); 

incr KOUNT from 1 to TIMES.TOJ.OOP do 

begin 16 * START OF COUNTING LOOP FOR LOOP READING 

if .COMMAND eql read 
then 

begin 

PTn = RPTR' 

VALUE = read (.LUN. .URDCNT, .RPTR. .SECTOR); 
end 

else 

begin 

PTR * .WPTR; 

VALUE ~ CHECK (.LUN, .URDCNT, .WPTR. .SECTOR); 


! SEE HOW SUCCESSFUL THE OPERATION WAS: 

i_ 

selectone .VALUE of !SEE ’SYSERR’ FOR DEFINITION 

set ! OF ERROR # CONTAINED IN ’VALUE’ 


if .COMMAND eql read 
then 

begin 


J 
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SEO 0207 


8544 

8545 

8546 

8547 

8548 

8549 

8550 

8551 

8552 

8553 

8554 

8555 

8556 

8557 

8558 

8559 

8560 

8561 

8562 

8563 

8564 

8565 

8566 

8567 

8568 

8569 

8570 

8571 

8572 

8573 

8574 

8575 

8576 

8577 

8578 

8579 

8580 

8581 

8582 

8583 

8584 

8585 

8586 

8587 

8588 

8589 

8590 

8591 

8592 

8593 

8594 

8595 

8596 

8597 

8598 


DEFINITION OF OPTION 2 
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TO PS-20 Bliss-16 V2(212i 
PA:<NEALE>MLX4.BLI .5 (38) 


if (DBL. VALUE = D0U8LE.CHECK (.WPTR, .RPTR, .WRDCNT) ) neq 0 
then 

begin 

SAY WHO (.LUN); 

PRINTS (SAY1 , MSG5); 

f'ECC LOGIC FAILED TO DETECT DATA ERROR* 

PRINTS (FMT12A, ..DBL VALUE, .DBL VALUE); 

."GOOD DATA: XXXXHX AT LOCATION YYYYYY* 

DBL VALUE = .DBL. VALUE + BUFSIZ*2; 

PRINTS (FMT12B. . .DBL. VALUE, . DBL. VALUE ) ; 

! 'BAD DATA: PPPPPP AT LOCATION OOQOQQ* 

WHY DROPT C.LUN3 - CODE.8; 

ERR5F (212, MSG1 , 0); !***• OPTION 2 ERROR 12 **** 

DODU (.LUN); 

leave L00P2; .'JUMP JUST BEYOND END OF BLOCK * 4 * 

end; 


begin 


!* 16A * 


RETRY ALLOWED 


if RETRY (SIX, .COMMAND, .LUN, . WRDCNT, .PTR, .SECTOR) neq 0 
then .'THE RETRY FAILED — SYSTEM FATAL ERROR 

begin 

WHt.DROPT C.LUN3 = C0DE.4; 

ERRDF (2 13, MSG1 , 0); !**** OPTION 2 ERROR 13 **** 

DODU (.LUN); 

leave L00P2; .'JUMP JUST BEYOND END OF BLOCK * 13 * 
end; 


!* 16A * 


begin !* 16B * 

WHY DROPT C.LUN3 = CODE.5; 
ERRBf (214, MSG1 , 0); 

DODU (.LUN); 


FATAL CONTROLLER ERROR — NO RETRY ALLOWED 
•**** OPTION 2 ERROR 14 **** 


leave LOOP2; 


!* 16B * 


.'JUMP JUST BEYOND END OF BLOCK * 13 * 


begin !* 16 C * FATAL DRIVE ERROR — NO RETRY ALLOWED 

ERRDF *215, MSG1 , 0); !*•** OPTION 2 ERROR 15 **** 

WHY DROPT L.LUNJ = C0DE.6; 

DODO (.LUN); 

leave LOOP2; !JUMP JUST BEYOND END OF BLOCK * 13 * 

end; !* 16C * 


C43 : 

begin 


.'* 16D * 


UNRECOVERABLE DATA ERROR 



SEQ 0208 
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8600 

8601 

8602 

8603 

8604 

8605 

8606 

8607 

8608 

8609 

8610 
8611 
8612 
8613 
5614 

8615 

8616 

8617 

8618 

8619 

8620 
8621 
8622 

8623 

8624 

8625 

8626 

8627 

8628 

8629 

8630 

8631 

8632 

8633 

8634 

8635 

8636 

8637 

8638 

8639 

8640 

8641 

8642 

8643 

8644 

8645 

8646 

8647 

8648 

8649 

8650 

8651 

8652 

8653 

8654 


MLX4 
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5397 

5398 

5399 

5400 

5401 

5402 

5403 

5404 

5405 

5406 

5407 

5408 

5409 
J410 

5411 

5412 

5413 

5414 

5415 

5416 

5417 

5418 

5419 

5420 

5421 

5422 

5423 

5424 

5425 

5426 

5427 

5428 

5429 

5430 

5431 

5432 

5433 

5434 

5435 

5436 

5437 

5438 

5439 

5440 

5441 

5442 

5443 

5444 

5445 

5446 

5447 

5448 
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29-MAR-82 13:41 PACE 196 


27-Mar-1982 19:24:42 TOPS-20 Bliss-16 V2<212> 

2 27-Mar-1982 19:23:44 PA:<NEAIE>MLX4.BLI .5 (38) 

ISOLATE (>; 

ERRDF (216- MS 62- 0); !«*** OPTION 2 ERROR 16 **** 

WHY DROPT L.LUNJ = C0DE.7; 

DODO (.LUN); 

leave L00P2; .'JUMP JUST BEYOND END OF BLOCK * 13 * 

end; !* 16D * 

LS3 : 

begin !* 16E * RECOVERABLE DATA ERROR 

ISOLATE (); 

if .ERROUT then PRINTS (FMT108. .CHAN); BIT OQ' 

OLDSEC = .MLEL; 

OLDCHN = .CHAN; 

if RETRY (ONE- .COMMAND. .LUN, .WRDCNT, .PTR, .SECTOR) eql 5 
then 

if ((.MLEL eql .OLDSEC) and (.CHAN eql .OLDCHN)) 
then 

begin 

if .ERROUT then ERRHRD (217. MSG4, 0); 

.'**** OPTION 2 ERROR 17 **** 

UP HARD_COUNT (.LUN, .BOARD); 
end 

else 

begin 

if .ERROUT then ERRSOFT (218, MS63- 0); 

••*** OPTION 2 ERROR 18 **** 

UP SOF T_COUN'f (.LUN, .BOARD); 
en3 

else 

begin 

if .ERROUT then ERRSOFT (219. MS63, 0); !*•** OPTION 2 ERROR 19 

UP SOF T_ COUNT (.LUN, .BOARD); 
end; 

end; !* 16E * 

tes; 

end; !* 16 * END OF COUNTING LOOP FOR LOOP READING 

UPTR = .WPTR ♦ ( .WRDCNT*2); 

SECTOR = .SECTOR + (.WRDCNT/256); 
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SEQ 0209 


8656 

8657 

8658 

8659 

8660 
8661 
8662 

8663 

8664 

8665 

8666 

8667 

8668 

8669 

8670 

8671 

8672 

8673 

8674 

8675 

8676 

8677 

8678 

8679 

8680 
8681 
8682 

8683 

8684 

8685 

8686 

8687 

8688 

8689 

8690 

8691 

8692 

8693 

8694 

8695 

8696 

8697 

8698 

8699 

8700 

8701 

8702 

8703 

8704 

8705 

8706 

8707 

8708 

8709 

8710 


DEFINITION OF OPTION 2 


27-Mar-1982 19:24:42 
27-Mar- 1982 19:23:44 


TOPS-20 Bliss-16 V2<212) 
PA:<NEALE>MLX4.BLI .5 (38) 


5449 

5450 

5451 

5452 

5453 

5454 

5455 

5456 

5457 

5458 

5459 

5460 

5461 

5462 

5463 

5464 

5465 

5466 

5467 

5468 

5469 

5470 
5*71 

5472 

5473 

5474 

5475 

5476 

5477 

5478 

5479 

5480 

5481 

5482 

5483 

5484 

5485 

5486 

5487 

5488 

5489 

5490 

5491 

5492 

5493 

5494 

5495 

5496 

5497 

5498 

5499 

5500 


! * 15 * END OF SECTOR SELECTION LOOP 
!* 14 * END OF TEST FOR AN ACTIVE UNIT 


! Test to see if this uut's address space is 
! to be read for soft errors. This test is 
is intended for DMT purposes. 


if .EFNS21 
then 

begin 


!Is the background pattern to be read 


version czmlbb changed incr to incru 

incru SECTOR from LOWEST to HIGHEST do 


if read (.LUN, 256. RBUFF, .SECTOR) eql 5 
then 

iISlATE (); !F ind the failing bank and board no. 

if .ERROUT then PRINTB (FMT10B, .CHAN); 

‘ Print where the error is 

I 

i Save the contents of the ML error location 
! register so we can compare it to the new 
contents of this register after the retry. 

! This is done to classify the error. 

t 

OLDSEC = .MLEL; 

OLDCHN = .CHAN; 

I 

! Do a classify retry call. If the same error 
! occures then classify it as a hard error. If 
! a different error occured or the error went away 
! then classify it as a soft error. 

if RETRY (ONE. .COMMAND. .LUN. 256. .PTR, .OLDSEC) eql 5 
then 

i 

! The same error occured so see if it is at the same 
! sector and channel number, if so then classify 
! it as a hard error else classiy it as a soft 
! error. 

I 

if ((.MLEL eql .OLDSEC) and (.CHAN eql .OLDCHN)) 
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SEQ 0210 


8712 

8713 

8714 

8715 

8716 

8717 
£718 

8719 

8720 

8721 

8722 

8723 

8724 

8725 

8726 

8727 

8728 

8729 

8730 

8731 

8732 

8733 

8734 

8735 

8736 

8737 

8738 

8739 

8740 

8741 

8742 

8743 

8744 

8745 

8746 

8747 

8748 

8749 

8750 

8751 

8752 

8753 

8754 

8755 

8756 

8757 

8758 

8759 

8760 

8761 

8762 

8763 

8764 

8765 

8766 


MLX4 


DEFINITION OF OPTION 2 


5501 

5502 

5503 

5504 

5505 

5506 
P 5507 
P 5508 

5509 

5510 

5511 

5512 

5513 

5514 

5515 

5516 

5517 

5518 

5519 
P 5520 
P 5521 

5522 

5523 

5524 

5525 

5526 

5527 

5528 

5529 

5530 

5531 

5532 

5533 
P 5534 
P 5535 

5536 

5537 

5538 

5539 

5540 

5541 

5542 

5543 

5544 

5545 

5546 

5547 

5548 

5549 

5550 

5551 

5552 


then 


27-Mar-1982 19:24:42 T0PS-20 Bliss-16 V2(212) 
27-Mar-1982 19:23:44 PA:<NEALE>MLX4.BLI.5 (38) 


{Same error oc cured 'hard' 


else 


begin 

if .ERROUT .'Print error if enabled 
then 

begin 

ERRHRD (220, !Error number 

MSG4, .'Error message 

0); .'Additional message routine 

end; 

UP HARD_COUNT (.LUN, .BOARD); 
en3 


begin 


!Not the same error 'soft* 


if .ERROUT {Print error if enabled 
then 

begin 

ERRSOFT (221, .'Error number 

MSG3, .'Error message 

0); {Additional message routine 

end; 


UP SOFT.COUNT (.LUN, .BOARD); 
en3 


else 


begin 


!Not the same error 'soft' 
{Print error if enabled 


if .ERROUT 
then 

begin 

ERRSOFT <222, .'Error number 

MSG3, .'Error message 
0); {Additional message routine 

end; 

UP S0FT.C0UNT (.LUN, .BOARD); 
end; 


end; 


end; 


end; 

end; 


end; 


end; 


!* 13 * END OF TESTLOOP2 

!* 12 * END OF LOGICAL UNIT SELECTION LOOP 

!* 11 * END OF LOOP READING SECTION 

!* 2 * END OF PATTERN SELECTION LOOP 



F 1 
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8768 - ML X4 






27-Mar-1982 

19:24:42 T0PS-20 Bliss-16 V2(212) 

or OO « nLM*? 

8769 ; 


DEFINITION OF OPTION 2 



27-Mar-1982 

19:23:44 PA:<NEALE>MLX4.8LI .5 (38) 

8770 








8771 ; 

5553 

return; 






8772 ; 

5554 

end; 




!* 1 * END 

OF ROUTINE 

8776 

8777 




.S8TTL 

0PT2 DEFINITION OF OPTION 2 


8781 054054 

004167 

131254 

0PT2: 

JSR 

R1 „$SAVE5 


• 

8782 054060 

162706 

000026 


SUB 

#26, SP 



8783 054064 

012746 

007634 


MOV 

#RTN2,-(SP) 


0 

8784 054070 

012746 

007344 


MOV 

#WR034.-(SP) 



8785 054074 

012746 

007100 


MOV 

#SAY2.-(SP) 



8786 054100 

012746 

000003 


MOV 

#3,-(SP) 



8787 054104 

010600 



MOV 

SP,RO 


; SP,* 

8788 054106 

104414 



TRAP 

14 



8789 054110 

005067 

156562 


CLR 

PATTERN 



8790 054114 

005767 

156554 


TST 

QUICK 



8791 054120 

001403 



BEQ 

If 



8792 054122 

012705 

000001 


MOV 

#1 ,R5 


; *,MAXPAT 

8793 054126 

000402 



8R 

2$ 



8794 054130 

012705 

000012 

1$: 

MOV 

#12,R5 


; *,MAXPAT 

8795 054134 

010566 

000032 

2$: 

MOV 

R5,32(SP) 


; MAXPAT,* 

8796 054140 

006366 

000032 


ASL 

32 (SP) 



8797 054144 

005066 

000030 


CLR 

30 (SP) 


; COUNT 

8798 054150 

000167 

003650 


JMP 

74$ 



8799 054154 

004767 

164706 

3$: 

JSR 

PC,SELPAT 



8800 054160 

005767 

156512 


TST 

PATTERN 



8801 054164 

003413 



BLE 

4$ 



8802 054166 

016746 

156504 


MOV 

PATTERN, -(SP) 



8803 054172 

012746 

010100 


MOV 

#PHR9,-(SP> 



8804 054176 

012746 

006126 


MOV 

#FMT1A.-(SP) 



8805 054202 

012746 

000003 


MOV 

#3,-(SP) 



8806 054206 

010600 



MOV 

SP,RO 


; SP,* 

8807 054210 

104414 



TRAP 

14 



8808 054212 

000417 



BR 

5$ 


• 

8809 054214 

016766 

156456 000034 

4$: 

MOV 

PAT TERN, 34 (SP) 


; *,TEMP 

8810 054222 

005466 

000034 


NEG 

34 (SP) 


; TEMP 

8811 054226 

016646 

000034 


MOV 

34(SP),-(SP) 


; TEMP,* 

8812 054232 

012746 

010100 


MOV 

#PHR9,-(SP) 



8813 054236 

012746 

006142 


MOV 

#FMT1B,-(SP> 



8814 054242 

012746 

000003 


MOV 

#3,-(SP) 



8815 054246 

010600 



MOV 

SP,RO 


; SP,* 

8816 054250 

104414 



TRAP 

14 



8817 054252 

016716 

156420 

5$: 

MOV 

PATTERN, (SP) 


0 

8818 054256 

004767 

165150 


JSR 

PC,GEN2 



8819 054262 

016766 

125524 000034 


MOV 

L$UNIT,34(SP) 


0 

8820 054270 

005005 



CLR 

R5 


; LUN 

8821 054272 

000167 

001462 


JMP 

33$ 



8822 054276 

010500 


6$: 

MOV 

R5,R0 


; LUN,* 


SEQ 0211 


4982 

5045 


5047 

5049 


5051 


5053 

5055 

5057 


5055 

5061 

5062 


5066 

5068 

5073 


6 1 
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8824 




;MLX4 


DEFINITION OF OPTION 2 



8825 

8826 
8827 




# 




054300 

006200 



ASR 

RO 



8828 

054302 

006200 



ASR 

RO 



8829 

054304 

006200 



ASR 

RO 



8830 

054 

062700 

034442 


ADD 

#DRJ VE.STATUS.RO 



8831 

054.ii 2 

010046 



MOV 

RO.-(SP) 


LUN,* 

8832 

054314 

010546 



MOV 

R5,-(SP) 

#1^7770, (SP) 

9 

8833 

054316 

042716 

177770 


BIC 



8834 

054322 

012746 

000001 


MOV 

#1,-(SP) 



8835 

054326 

005046 



CLR 

-<SP) 



8836 

054330 

004767 

130022 


JSR 

PC.BLSGT2 
#10. SP 



8837 

054334 

062706 

000010 


ADD 



8838 

054340 

005300 



DEC 

RO 



8839 

054342 

001127 



BNE 

11$ 



8840 

054344 

010567 

125524 


MOV 

R5.L$LUN 

9 

LUN.* 

8841 

054350 

012767 

012670 

156312 

MOV 

#U8UFF.UPTR 

9 


8842 

054356 

012767 

022670 

156306 

MOV 

#RBUFF.RPTR 

9 

LUN,* 

8843 

054364 

010501 



MOV 

R5.R1 

9 

8844 

054366 

006301 



ASL 

R1 


*, SECTOR 

8845 

054370 

016104 

034460 


MOV 

LOU. SECT (R1 ) ,R4 

9 

8846 

054374 

020461 

034500 

7$: 

CMP 

R4.T0P.SECTCR1) 

ni 

9 

SECTOR.* 

8847 

054400 

101110 



BHI 


SECTOR.* 

8848 

054402 

010446 



MOV 

R4,-(SP) 

m 

9 

8849 

054404 

016146 

034500 


MOV 

TOP. SECT (R1 ) ,-(SP) 



8850 

054410 

004767 

172562 


JSR 

PC.GET.URDCNT 


*,URDCNT 

8851 

054414 

010002 



MOV 

RO. R2 

• 

9 

8852 

054416 

010216 



MOV 

R2,(SP) 

9 

WRDCNT,* 

8853 

054420 

004767 

172506 


JSR 

PC.SET.PTRS 



8854 

054424 

010516 



MOV 

R5. (SP) 

9 

LUN.* 

8855 

054426 

010246 



MOV 

R2,-(SP) 

9 

WRDCNT.* 

8856 

054430 

016746 

156234 


MOV 

UPTR.-(SP) 


SECTOR,* 

8857 

054434 

010446 



MOV 

R4.-(SP) 

9 

8858 

054436 

004767 

170762 


JSR 

PC. WRITE 


*, VALUE 

8859 

054442 

010003 



MOV 

R0.R3 

9 

8860 

054444 

020327 

000001 


CMP 

R3,#1 

9 

VALUE.* 

8861 

054450 

001031 



BNE 

8$ 



8862 

054452 

012746 

000006 


MOV 

#6.-(SP) 

9 


8863 

054456 

012746 

045424 


MOV 

fURITE.-(SP) 



8864 

054462 

010546 



MOV 

R5.-CSP) 

9 

LUN,* 

8865 

054464 

010246 



MOV 

R2.-CSP) 

9 

WRDCNT.* 

8866 

054466 

016746 

156176 


MOV 

WPTR.-(SP) 


SECTOR.* 

886 7 

054472 

010446 



MOV 

R4,-(SP> 

9 

8868 

054474 

004767 

171524 


JSR 

PC .RE TRY 
#U.SP 



8869 

054500 

062706 

000014 


ADD 



8870 

054504 

005700 



TST 

RO 



8871 

054506 

001446 



BEQ 

12$ 


*,*(LUN) 

8872 

054510 

112765 

000004 

034446 

MOVB 

#4.WHY.DR0PT(R5) 

9 

8873 

054516 

104455 



TRAP 

55 

• 

9 


8874 

054520 

000311 



.WORD 

311 



8875 

054522 

011070 



.UORD 

MSG1 



8876 

054524 

000000 



.WORD 

0 



8877 

054526 

010500 



MOV 

R5.R0 

• 

9 

LUN.* 

8878 

054530 

104451 



TRAP 

51 




SEG 0212 

27-Mar-1982 19:24:42 TOPS 
27-Mar-1982 19:23:44 PA:< 


5076 

5077 

5078 

5079 

5081 

5083 

5084 

5085 


5091 

5097 


5100 

5101 

5102 
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SEG 0213 


8880 

8881 

8882 

8883 

8884 

8885 
3886 

8887 

8888 

8889 

8890 

8891 

8892 

8893 

8894 

8895 

8896 

8897 

8898 

8899 

8900 

8901 

8902 

8903 

8904 

8905 

8906 

8907 

8908 

8909 

8910 

8911 

8912 

8913 

8914 

8915 

8916 

8917 

8918 

8919 

8920 

8921 

8922 

8923 

8924 

8925 

8926 

8927 

8928 

8929 

8930 

8931 

8932 

8933 

8934 


;MLX4 


054532 

054534 

054540 

054542 

054550 

054552 

054554 

054556 

054560 

054562 

054564 

054566 

054572 

054574 

054576 

054600 

054602 

054604 

054612 

054614 

054616 

054622 

054624 

054630 

054634 

054640 

054644 

054646 

054652 

054660 

054662 

054664 

054670 

054672 

054676 

054700 

054706 

054710 

054712 

054716 

054720 

054724 

054726 

054730 

054736 

054740 

054744 

054750 

054752 

054756 

054762 

054766 


000431 
020327 
001012 
112765 
104455 
000312 
011070 
000000 
010500 
104451 
000414 
020327 
001014 
104455 
000313 
011070 
000000 
112765 
010500 
104451 
062706 
000537 
004767 
010066 
005066 
020027 
001015 
005266 
016766 
010546 
010246 
016746 
010446 
004767 
000412 
016766 
010546 
010246 
016746 
010446 
004767 
010003 
001076 
032766 
001513 
016746 
016746 
010246 
004767 
062706 
010066 
0014 77 


000002 

000005 034446 


000003 


DEFINITION OF OPTION 2 

BR 10S 

CMP R3.#2 

BNE 9$ 

M0V8 #5,WHY.DR0PT(R5) 

TRAP 55 

.WORD 312 

.WORD MSG1 

.WORD 0 

MOV R5,R0 

TRAP 51 

BR 10$ 

CMP R3.#3 

BNE 12$ 

TRAP 55 

.WORD 313 

.WORD MSG1 

.WORD 0 


27-Mar-1982 19:24:42 
27-Mar-1982 19:23:44 


; VALUE.* 

; *,*(LUN) 


; LUN.* 


; VALUE,* 


000006 

03*446 


MOVB 

#6,WHY.DR0PT(R5) 

# 

*.*(LUN) 

5119 




MOV 

R5.R0 

• 

• 

LUN.* 

5120 




TRAP 

51 




000012 


10$: 

ADD 

#12, SP 

• 

a 


5121 



11$: 

BR 

15$ 




171336 


12$: 

JSR 

PC, CHOOSE 

• 

a 


5125 

000034 



MOV 

R0,34(SP) 

» 

•.COMMAND 


000040 



CLR 

40 (SP) 

9 


5127 

045612 



CMP 

RO.#READ 

a 

COMMAND,* 





BNE 

13$ 




000040 



INC 

40(SP) 




156014 

000036 


MOV 

RPTR,36(SP) 

a 

*,PTR 

5130 


* 4 


MOV 

R5. -(SP) 

a 

LUN.* 

5131 




MOV 

R2,-(SP) 

a 

WRDCNT,* 


156002 



MOV 

RPTR.-(SP) 







MOV 

R4,-(SP) 

• 

a 

SECTOR.* 


170714 



JSR 

PC.READ 







BR 

14$ 




155764 

000036 

13$: 

MOV 

WPTR,36(SP) 

• 

a 

*,PTR 

5135 




MOV 

R5.-(SP) 

a 

LUN,* 

5136 




MOV 

R2,-(SP) 

a 

WRDCNT,* 


155752 



MOV 

WPTR,-(SP) 







MOV 

R4,-(SP) 

a 

SECTOR,* 


171054 



JSR 

PC, CHECK 






14$: 

MOV 

R0.R3 

a 

•.VALUE 





BNE' 

16$ 

• 

a 


5143 

000001 

000050 


BIT 

#1 -50 < SP) 

• 

* 


5148 




BEG 

17$ 




155724 



MOV 

WPTR.-(SP) 

a 


5152 

155722 



MOV 

RPTR,-(SP) 







MOV 

R2,-(SP) 

a 

WRDCNT,* 


167350 



JSR 

PC, DOUBLE. CHECK 




000006 



ADD 

#6 ,SP 




000060 



MOV 

R0,60(SP> 

a 

*,DBL. VALUE 





BEG 

17$ 
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8936 

8937 

8938 

8939 

8940 

8941 

8942 

8943 

8944 

8945 

8946 

8947 

8948 

8949 

8950 

8951 

8952 

8953 

8954 

8955 

8956 

8957 

8958 

8959 

8960 

8961 

8962 

8963 

8964 

8965 

8966 

8967 

8968 

8969 

8970 

8971 

8972 

8973 

8974 

8975 

8976 

8977 

8978 

8979 

8980 

8981 

8982 

8983 

8984 

8985 

8986 

8987 

8988 

8989 

8990 


;MLX4 


054770 

054772 

054776 

055002 

055006 

055012 

055014 

055016 

055022 

055026 

055032 

055036 

055040 

055042 

055050 

055054 

055060 

055064 

055070 

055072 

055074 

055102 

055104 

055106 

055110 

055112 

055114 

055116 

055122 

055124 

055130 

055132 

055136 

055142 

055144 

055146 

055152 

055154 

055160 

055164 

055166 

055170 

055174 

055202 

055204 

055206 

055210 

055212 

055214 

055216 

055220 

055224 


010546 

004767 

012716 

012746 

012746 

010600 

104414 

016616 

017646 

012746 

012746 

010600 

104414 

062766 

016616 

017646 

012746 

012746 

010600 

104414 

112765 

104455 

000314 

011070 

000000 

010500 

104451 

062706 

000510 

020327 

001033 

012746 

016646 

010546 

010246 

016646 

010446 

004767 

062706 

005700 

001002 

000167 

112765 

104455 

000315 

011070 

000000 

010500 

104451 

000450 

020327 

001012 


160526 

011216 

007072 

000002 


000066 

000066 

006710 

000003 


010000 000074 

000074 

000074 

006756 

000003 


000010 034446 


000044 

000001 

000006 

000046 


000056 

171044 

000014 


000520 

000004 034446 


000002 


DEFINITION OF OPTION 2 

MOV RS.-(SP) 

JSR PC, SAYUHO 

MOV #HSG5,(SP) 

MOV #SAYl ,-(SP) 

MOV #2.-(5P) 

MOV SP,RO 

TRAP 14 

MOV 66CSP) ,(SP) 

MOV i66(3P),-(SP) 

MOV #FMT12A,-(SP> 

MOV #3,-(SP) 

MOV SP.RO 

TRAP 14 

ADD #10000, 74CSP) 

MOV 74(SP),(SP) 

MOV 874CSP) ,-(SP) 

MOV #FMT12B,-(SP) 

MOV #3,-(SP> 

MOV SP,RO 

TRAP 14 

MOVB #10,WHY.DR0PT(R5) 

TRAP 55 

.WORD 314 

.WORD MSG1 

.WORD 0 

MOV R5.R0 

TRAP 51 

ADD #44, SP 

BR 23$ 

CMP R3,#1 

BNE 19$ 

MOV #6,-(SP) 

MOV 46<SP),-(SP) 

MOV R5.-CSP) 

MOV R2.-(SP> 

MOV 56CSP) ,-CSP) 

MOV R4.-CSP) 

JSR PC, RETRY 

ADD #14,SP 

TST RO 

BNE 18$ 

JMP 31$ 

MOVB #4,WHY.DROPT(R5) 

TRAP 55 

.WORD 315 

.WORD MSG1 

.WORD 0 

MOV R5,R0 

TRAP 51 

BR 22$ 

CMP R3.#2 

BNE 20$ 


SEG 0214 


27-Mar-1982 19:24:42 TOPS 
27-Mar-1982 19:23:44 PA:< 


; lun.* 

5155 

• 

9 

5156 

; SP.* 

; DBL. VALUE,* 

; DBL.VAl UE,* 

5157 

; SP,* 

; *, DBL. VALUE 

5159 

; DBL. VALUE.* 

; DBL. VALUE.* 

5160 

; SP.* 

; *,*(LUN) 

5162 

« 

5163 

; LUN,* 

5164 

• 

# 

5165 

; VALUE,* 

5143 

; COMMAND.* 

; LUN.* 

; WRDCNT,* 

; PTR.* 

; SECTOR,* 

5173 


; *.*(LUN) 

5176 

• 

5177 


; LUN,* 

5178 

• 

5179 

; VALUE,* 

5143 
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8992 

8993 

8994 

8995 

8996 

8997 

8998 

8999 

9000 

9001 

9002 

9003 

9004 

9005 

9006 

9007 

9008 

9009 

9010 

9011 

9012 

9013 

9014 

9015 

9016 

9017 

9018 

9019 

9020 

9021 

9022 

9023 

9024 

9025 

9026 

9027 

9028 

9029 

9030 

9031 

9032 

9033 

9034 

9035 

9036 

9037 

9038 

9039 

9040 

9041 

9042 

9043 

9044 

9045 

9046 


;MLX4 


055226 

055234 

055236 

055240 

055242 

055244 

05j246 

055250 

055252 

055256 

055260 

055262 

055264 

055266 

055270 

055276 

055300 

055302 

055304 

055310 

055312 

055316 

055320 

055322 

055324 

055326 

055334 

055336 

055340 

055344 

055350 

055354 

055356 

055362 

055370 

055372 

055376 

055400 

055402 

055404 

055406 

055410 

055412 

055416 

055420 

055424 

055430 

055432 

055434 

055440 

055446 

055452 


112765 

104455 

000316 

011070 

000000 

010500 

104451 

000433 

020327 

001012 

104455 

000317 

011070 

000000 

112765 

010500 

104451 

000416 

020327 

001017 

004767 

104455 

000320 

011120 

000000 

112765 

010500 

104451 

062706 

000167 

020327 

001157 

004767 

032767 

001423 

017700 

006200 

006200 

006200 

006200 

006200 

006200 

042700 

010046 

012746 

012746 

010600 

104414 

062706 

017766 

017700 

006200 


000005 034446 


000003 


000006 034446 


000004 

162014 


000007 0344*6 


000022 

000406 

000005 

161750 

000001 124670 

157012 


177700 

006640 

000002 


000006 

156746 

156736 


MOVB 

TRAP 

.WORD 

.WORD 

.WORD 

MOV 

TRAP 

BR 

CMP 

BNE 

TRAP 

.WORD 

.WORD 

.WORD 

MOVB 

MOV 

TRAP 

BR 

CMP 

BNE 

JSR 

TRAP 

.WORD 

.WORD 

.WORD 


DEFINITION OF OPTION 2 

#5,WHY.DROPT(R5) 

55 

316 
MSG1 
0 

R5.R0 

51 

22 $ 

R3,#3 

2li 

55 

317 
MSG1 
0 

#6,WHY.DR0PT(R5) 

R5.R0 

51 

22 $ 

R3,#4 

24i 

PC. ISOLATE 
55 



MOVB 

#7,WHY.DR0PT CR5) 


MOV 

R5.R0 


TRAP 

51 

22$: 

ADD 

#22. SP 

23$: 

JMP 

32$ 

24$: 

CMP 

R3.#5 


BNE 

31$ 


JSR 

PC. I SOL ATE 


BIT 

#1 .ERROUT 


BEO 

25i 


MOV 

BML.REG+42.R0 


ASR 

RO 


ASR 

RO 


ASR 

RO 


ASR 

RO 


ASR 

RO 


ASR 

RO 


BIC 

#1 77700.RO 


MOV 

RO.-(SP) 


MOV 

#FMT10B,-(SP) 


MOV 

#2,-(SP) 


MOV 

SP, RO 


TRAP 

14 


ADD 

#6,SP 

25$: 

MOV 

SML . REG+44 ,52 ( SP) 


MOV 

3ML.REG+42.R0 


ASR 

RO 


SEO 0215 
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9048 

9049 

9050 

9051 

9052 

9053 

9054 

9055 

9056 

9057 

9058 

9059 

9060 

9061 

9062 

9063 

9064 

9065 

9066 

9067 

9068 

9069 

9070 

9071 

9072 

9073 

9074 

9075 

9076 

9077 

9078 

9079 

9080 

9081 

9082 

9083 

9084 

9085 

9086 

9087 

9088 

9089 

9090 

9091 

9092 

9093 

9094 

9095 

9096 

9097 

9098 

9099 

9100 

9101 

9102 


;MLX4 


055454 

055456 

055460 

055462 

055464 

055466 

055472 

055476 

055502 

055506 

055510 

055512 

055516 

055520 

055524 

055530 

055534 

055536 

055544 

055546 

055552 

055556 

055560 

055562 

055564 

055566 

055570 

055572 

055576 

055600 

055602 

055610 

055612 

055614 

055616 

055620 

055622 

055624 

055630 

055634 

055636 

055644 

055646 

055650 

055652 

055654 

055656 

055660 

055666 

055670 

055672 

055674 


006200 
006200 
006200 
C06200 
006200 
042700 
010066 
012746 
016646 
010546 
010246 
016646 
010446 
004767 
062706 
020027 
001051 
027766 
001034 
016646 
017700 
006200 
006200 
006200 
006200 
006200 
006200 
042700 
020026 
001016 
032767 
001404 
1C4456 
000321 
011202 
000000 
010546 
016746 
004767 
000426 
032767 
001415 
104457 
00 0322 
011166 
000000 
000410 
032767 
001404 
104457 
000323 
011166 


177700 

000054 

000001 

000046 


000056 

170500 

000014 

000005 


156650 000052 

000054 

156632 


177700 


000001 124450 


156512 

161566 

000001 124414 27S: 


000001 124372 28$: 


DEFINITION OF OPTION 2 

ASR RO 

ASR RO 

ASR RO 

ASR RO 

ASR RO 

81 C #1 77700, RO 

MOV R0,54(SP) 

MOV #1.-(SP) 

MOV 46(SP) ,-(SP) 

MOV R5,- (SP) 

MOV R2,-(SP) 

MOV 56<SP).-(SP) 

MOV R4,-(SP) 

JSR PC, RETRY 

ADD #14,SP 

CMP R0,#5 

BNE 28$ 

CMP 8ML.REG+44,52(SP) 

BNE 27$ 

MOV 54(SP) ,-(SP) 

MOV aML.REG«-42,R0 

ASR RO 

ASR RO 

ASR RO 

ASR RO 

ASR RO 

ASR RO 

BIC #177700.R0 

CMP RO.CSPH 

BNE 27$ 

BIT 01.ERROUT 

BEO 26$ 

TRAP 56 

.WORD 321 

.WORD MSG4 

.WORD 0 

MOV R5,-(SP) 

MOV BOARD, “(SP) 

JSR PC. UP. HARD. COUNT 

BR 30$ 

BIT 01.ERROUT 

BEQ 29$ 

TRAP 57 

.WORD 322 

.WORD MSG3 

.WORD 0 

BR 29$ 

BIT #1 .ERROUT 

BEQ 29$ 

TRAP 57 

.WORD 323 

.WORD MSG3 


SEQ 0216 


27-Mar-1982 19:24:42 TOPS 
27-Mar-1982 19:23:44 PA:< 


•.OLDCHN 

COMMAND.* 

LUN.* 

WRDCNT,* 

PTR,* 

SECTOR,* 


5219 | 

i 


; *,OLDSEC 5222 

; OLDCHN.* 


; LUN.* 




I 


L 1 
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9104 




;MLX4 




9105 




9 


DEFINITION OF OPTION 2 


9106 

9107 055676 

000000 




.UORD 

0 


9108 055700 

010546 



29$: 

MOV 

R5,-<SP) 

; LUN,* 

9109 055702 

016746 

156434 



MOV 

BOARD. -(SP) 


9110 055706 

004767 

162172 



JSR 

PC, UP. SOFT. COUNT 


9111 055712 

022626 



30$: 

CMP 

(SP)*,(SP)+ 

9 

9112 055714 

010200 



31$: 

MOV 

R2.R0 

; WRDCNT.* 

9113 055716 

006300 




ASL 

RO 


9114 055720 

066700 

154744 



ADD 

WPTR.RO 


9115 055724 

010067 

154740 



MOV 

RO.WPTR 


91 1o 055730 

010216 




MOV 

R2. (SP) 

; WRDCNT,* 

9117 055732 

012746 

000400 



MOV 

#400, -(SP) 


9118 055736 

004767 

127226 



JSR 

PC.BLSDIV 


9119 055742 

060400 




ADD 

R4,R0 

; SECTOR,* 

9120 055744 

010004 




MOV 

R0.R4 

; *, SECTOR 

9121 055746 

062706 

000024 



ADD 

#24, SP 

• 

• 

9122 055752 

000167 

176416 



JMP 

7$ 

• 

9 

9123 055756 

005205 



32$: 

INC 

R5 

: LUN 

9124 055^60 

020566 

000034 


33$: 

CMP 

R5.34(SP> 

; LUN,* 

9125 055764 

002002 




BGE 

34$ 


9126 055766 

000167 

176304 



JMP 

6$ 


9127 055772 

005767 

154676 


34$: 

TST 

QUICK 

• 

* 

9128 055776 

001402 




BEG 

35$ 


9129 056000 

000167 

002014 



JMP 

73$ 


9130 056004 

016766 

124002 

000034 

35$: 

MOV 

L$UNIT,34(SP) 

■ 

9 

9131 056012 

005005 




CLR 

R5 

; LUN 

9132 056014 

000167 

001766 



JMP 

72$ 


9133 056020 

010500 



36$: 

MOV 

R5,R0 

; LUN,* 

9134 056022 

006200 




ASR 

RO 


9135 056024 

006200 




ASR 

RO 


9136 056026 

006200 




ASR 

RO 


9137 056030 

062700 

034442 



ADD 

#DRIVE. STATUS, RO 


9138 056034 

010046 




MOV 

RO,-(SP) 


9139 056036 

010546 




MOV 

R5,-(SP) 

; LUN,* 

9140 056040 

042716 

177770 



BIC 

#1 77770. (SP) 


9141 056044 

012746 

000001 



MOV 

#1,-(SP) 


9142 056050 

005046 




CLR 

-(S°) 


9143 056052 

004767 

126300 



JSR 

PC.BLSGT2 


9144 056056 

062706 

000010 



ADD 

#10, SP 


9145 056062 

005300 




DEC 

RO 


9146 056064 

001402 




BEG 

38$ 


9147 056066 

000167 

001246 


37$: 

JMP 

60$ 


9148 056072 

010567 

123776 


38$: 

MOV 

R5,L$LUN 

; LUN,* 

9149 056076 

012767 

012670 

154564 


MOV 

#y8UFF,UPTR 

• 

9 

9150 056104 

012767 

022670 

154560 


MOV 

#RBUFF,RPTR 

• 

9 

9151 056112 

010501 




MOV 

R5,R1 

; LUN,* 

9152 056114 

006301 




ASL 

R1 


9153 056116 

016104 

034460 



MOV 

L0W.SECT(R1 ) ,R4 

; *, SECTOR 

9154 056122 

020461 

034500 


39$: 

CMP 

R4,T0P.SECT(R1 ) 

; SECTOR,* 

9155 056126 

101357 




BHI 

37$ 


9156 056130 

010446 




MOV 

R4,-(SP) 

; SECTOR,* 

9157 056132 

016146 

03450° 



MOV 

T0P.SECT(R1),-(SP> 


9158 056136 

004767 

17103-* 



JSR 

PC,GET.WRDCNT 



SEG 0217 

27- Mar-1982 19:24:42 TOPS 
27-Mar-1982 19:23:44 PA:< 


5243 


5210 

5249 


5250 


5082 

5081 

5068 

5258 

5299 

5304 


5307 

5308 

5310 

5312 

5314 
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9160 




;MLX4 




9161 




9 


DEFINITION OF OPTION 2 


9162 

9163 056142 

010002 




MOV 

R0.R2 

; *. WRDCNT 

9164 056144 

010216 




MOV 

R2,(SP) 

; WKDCNT.* 

9165 056146 

004767 

170760 



JSR 

PC,SET.PTRS 


9166 056152 

004767 

170010 



JSR 

PC, CHOOSE 

• 

9167 056156 

010066 

000026 



MOV 

R0.26(SP> 

; *, COMMAND 

9168 056162 

012766 

000001 

000032 


MOV 

#1,32(SP) 

; *,KOUNT 

9169 056170 

005066 

000024 


40$: 

CLR 

24(SP) 

• 

9170 056174 

026627 

000026 

045612 


CMP 

26 (SP), /TREAD 

; COMMAND,* 

9171 056202 

001015 




BNE 

41$ 


9172 056204 

005266 

00C924 



INC 

24 (SP) 


9173 056210 

016766 

154456 

000030 


MOV 

RPTR,30(SP) 

; *.PTR 

9174 056216 

010546 




MOV 

R5,-(SP) 

; LUN.* 

9175 056220 

010246 




MOV 

R2,-(SP) 

; WRDCNT,* 

9176 056222 

016746 

154444 



MOV 

RPTR,-(SP) 


9177 056226 

010446 




MOV 

R4.-(SP> 

; SECTOR,* 

9178 056230 

004767 

167356 



JSR 

PC. READ 


9179 056234 

000412 




BR 

42$ 


9180 056236 

016766 

154426 

000030 

41$: 

MOV 

UPTR,30(SP) 

; *,PTR 

9181 056244 

010546 




MOV 

R5,-(SP) 

; LUN,* 

9182 056246 

010246 




MOV 

R2.-CSP) 

; WRDCNT.* 

9183 056250 

016746 

154414 



MOV 

UPTR.-(SP) 


9184 056254 

010446 




MOV 

R4,-(SP) 

; SECTOR,* 

9185 056256 

004767 

167516 



JSR 

PC, CHECK 


9186 056262 

0:0003 



42$: 

MOV 

R0.R3 

; *. VALUE 

9187 056264 

001076 




BNE 

43$ 

9 

9188 056266 

032766 

000001 

000034 


BIT 

/T1,34(SP) 

9 

9189 056274 

001513 




BEQ 

44$ 


9190 056276 

016746 

154366 



MOV 

UPTR.-(SP) 

9 

9191 056302 

016746 

154364 



MOV 

RPTR,-(SP) 


9192 056306 

010246 




MOV 

R2.-CSP) 

; WRDCNT,* 

9193 056310 

004767 

166012 



JSR 

PC, DOUBLE. CHECK 


9194 056314 

062706 

000006 



ADD 

/T6,SP 


9195 056320 

010066 

000052 



MOV 

R0,52(SP) 

; *,DBL. VALUE 

9196 056324 

001477 




BEQ 

44$ 


9197 056326 

010546 




MOV 

R5,-(SP) 

; LUN,* 

9198 056330 

004767 

157170 



JSR 

PC.SAYUHO 


9199 056334 

012716 

011216 



MOV 

#MS65,(SP) 

9 

9200 056340 

012746 

007072 



MOV 

#SAY1 ,-(SP) 


9201 056344 

012746 

000002 



MOV 

#2,-(SP) 


9202 056350 

010600 




MOV 

SP,RO 

; sp,* 

9203 056352 

104414 




TRAP 

14 


9204 056354 

016616 

000060 



MOV 

60(SP).(SP) 

; DBL. VALUE,* 

9205 056360 

017646 

000060 



MOV 

a60(sp),-(sp> 

; DBL. VALUE.* 

9206 056364 

012746 

006710 



MOV 

#FMT12A,-(SP) 


9207 056370 

012746 

000003 



MOV 

#3,-(SP) 


9208 056374 

010600 




MOV 

SP,RO 

; SP,* 

9209 056376 

104414 




TRAP 

14 


9210 056400 

062766 

010000 

000066 


ADD 

#10000, 66 (SP) 

; *. DBL. VALUE 

9211 056406 

016616 

000066 



MOV 

66(SP). (SP) 

; DBL. VALUE.* 

9212 056412 

017646 

000066 



MOV 

366(SP),-(SP) 

; DBL. VALUE,* 

9213 056416 

012746 

006756 



MOV 

#FMT12B.-(SP) 


9214 056422 

012746 

000003 



MOV 

#3.-(SP) 



SEO 0218 

27-Mo— 1982 19:24:42 TOPS 
27-Mar-1982 19:23:44 PA:< 

5315 

5316 

5318 

5321 


5324 

5325 


5329 

5330 


5337 

5342 


5346 


5349 

5350 

5352 


5354 

5355 
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N 1 
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9216 

9217 

9218 

9219 056426 

9220 056430 

9221 056432 

9222 056440 

9223 056442 

9224 056444 

9225 056446 

9226 056450 

9227 056452 

9228 056454 

9229 056460 

9230 056462 

9231 056466 

9232 056470 

9233 056474 

9234 056500 

9235 056502 

9236 056504 

9237 056510 

9238 056512 

9239 056516 

9240 056522 

9241 056524 

9242 056526 

9243 056532 

9244 056540 

9245 056542 

9246 056544 

9247 056546 

9248 056550 

9249 056552 

9250 056554 

9251 056556 

9252 056562 

9253 056564 

9254 056572 

9255 056574 

9256 056576 

9257 056600 

9258 056602 

9259 056604 

9260 056606 

9261 056610 

9262 056614 

9263 056616 

9264 056620 

9265 056622 

9266 056624 

9267 056626 

9268 056634 

9269 056636 

9270 056640 


;MLX4 


010600 

104414 

112765 

104455 

000324 

011070 

000000 

010500 

104451 

062706 

000510 

020327 

001033 

012746 

016646 

010546 

010246 

016646 

010446 

004767 

062706 

005700 

001002 

000167 

112765 

104455 

000325 

011070 

000000 

010500 

104451 

000450 

020327 

001012 

112765 

104455 

000326 

011070 

000000 

010500 

104451 

000433 

020327 

001012 

104455 

000327 

011070 

000000 

112765 

010500 

104451 

000416 


000010 034446 


000036 

000001 

000006 

000040 


000050 

167506 

000014 

44$: 

000520 

000004 034446 45$: 


000002 

000005 034446 


000003 


000006 034446 


DEFINITION OF OPTION 2 

MOV SP.RO 

TRAP 14 

M0V8 #10,WHY.DR0PT(R5) 

TRAP 55 

.WORD 324 

.WORD MSG1 

.WORD 0 

MOV R5.R0 

TRAP 51 

ADD #36. SP 

6R 50$ 

CMP R3.#1 

BNE 46$ 

MOV #6.-<SP> 

MOV 40(SP).’(SP) 

MOV R5,-(SP) 

MOV R2.-CSP) 

MOV 50(S P).-(SP) 

MOV R4.-CSP) 

JSR PC. RETRY 

ADD #14.SP 

TST RO 

BNE 45$ 

JMP 58$ 

M0V8 #4 , WH Y . DROPT (R5 ) 

TRAP 55 

.WORD 325 

.WORD MSG1 

.WORD 0 

MOV R5.RO 

TRAP 51 

BR 49$ 

CMP R3.#2 

BNE 47$ 

MOVB #5, WHY. DROPT (R5) 

TRAP 55 

.WORD 326 

.WORD MSG1 

.WORD 0 

MOV R5.R0 

TRAP 51 

BR 49$ 

CMP R3,#3 

BNE 48$ 

TRAP 55 

.WORD 327 

.WORD MSG1 

.WORD 0 

MOVB #6, WHY. DROPT (R5) 

MOV R5.R0 

TRAP 51 

BR 49$ 


SEQ 0219 
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9272 

9273 

9274 

9275 056642 

9276 056646 

9277 056650 

9278 056654 

9279 056656 

9280 056660 

9281 056662 

9282 056664 

9283 056672 

9284 056674 

9285 056676 

9286 056702 

9287 056706 

9288 056712 

9289 056714 

9290 05o720 

9291 056726 

9292 056730 

9293 056734 

9294 056736 

9295 056740 

9296 056742 

9297 056744 

9298 056746 

9299 056750 

9300 056754 

9301 056756 

9302 056762 

9303 056766 

9304 056770 

9305 056772 

9306 056776 

9307 057004 

9308 057010 

9309 057012 

9310 057014 

9311 057016 

9312 057020 

9313 057022 

9314 057024 

9315 057030 

9316 057034 

9317 057040 

9318 057044 

9319 057046 

9320 057050 

9321 057054 

9322 057056 

9323 057062 

9324 057066 

9325 057072 

9326 057074 


020327 

001017 

004767 

104455 

000330 

011120 

000000 

112765 

010500 

104451 

062706 

000167 

020327 

001157 

004767 

032767 

001423 

017700 

006200 

006200 

006200 

006200 

006200 

006200 

042700 

010046 

012746 

012746 

010600 

104414 

062706 

017766 

017700 

006200 

006200 

006200 

006200 

006200 

006200 

042700 

010066 

012746 

016646 

010546 

010246 

016646 

010446 

004767 

062706 

020027 

001051 

027766 


;MLX4 


000004 

160456 


000007 034446 


000014 

001076 

000005 

160412 

000001 123332 

155454 


177700 

006640 

000002 


000006 

155410 

155400 


177700 

000046 

000001 

000040 


000050 

167142 

000014 

000005 


DEFINITION OF OPTION 2 


155312 000044 


SEO 0220 




C 2 
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9328 




;MLX4 




9329 




9 


DEFINITION OF OPTION 2 


9330 








9331 057102 

001034 




BNE 

54$ 


9332 057104 

016646 

000046 



MOV 

46(SP) ,-(SP) 

; OLDCHN,* 

9333 057110 

017700 

155274 



MOV 

3ML .REG+42.R0 


9334 057114 

006200 




ASR 

RO 


9335 057116 

006200 




ASR 

RO 


9336 057120 

006200 




ASR 

RO 


933 7 057122 

006200 




ASR 

RO 


9338 057124 

006200 




ASR 

RO 


9339 057126 

006200 




ASR 

RO 


9340 057130 

042700 

177700 



BIC 

#1 77700, RO 


9341 057134 

020026 




CMP 

RO, (SP)+ 


9342 057136 

001016 




BNE 

54$ 


9343 057140 

032767 

000001 

123112 


BIT 

#1 .ERROUT 

9 

9344 057146 

001404 




BEQ 

53$ 


9345 057150 

104456 




TRAP 

56 


9346 057152 

000331 




cUORD 

331 


9347 057154 

011202 




.WORD 

MSG4 


9348 057156 

000000 




.WORD 

0 


9349 057160 

010546 



53$: 

MOV 

R5,-(SP) 

; LUN,* 

9350 057162 

016746 

155154 



MOV 

BOARD, -(SP) 


9351 057166 

004767 

160230 



JSR 

PC, UP. HARD. COUNT 


9352 057172 

000426 




BR 

57$ 

• 

• 

9353 057174 

032767 

000001 

123056 

54$: 

BIT 

#1 ,ERROUT 

* 

9354 057202 

001415 




BEQ 

56$ 


9355 057204 

104457 




TRAP 

57 


9356 057206 

000332 




.WORD 

332 


9357 057210 

011166 




.WORD 

MSG3 


9358 057212 

000000 




.WORD 

0 


9359 057214 

000410 




BR 

56$ 

• 

t 

9360 057216 

032767 

000001 

123034 

55$: 

BIT 

n,ERROUT 

0 

9361 057224 

001404 




BEQ 

56$ 


9362 057226 

104457 




TRAP 

57 


9363 057230 

000333 




.UORD 

333 


9364 057232 

011166 




.WORD 

MSG3 


9365 057234 

000000 




.WORD 

0 


9366 057236 

010546 



56$: 

MOV 

R5,-(SP) 

; LUN,* 

9367 057240 

016746 

155076 



MOV 

BOARD. -(SP) 


9368 057244 

004767 

160634 



JSR 

PC. UP. SOFT. COUNT 


9369 057250 

022626 



57$: 

CMP 

(SP)+,(SP)+ 

9 

9370 057252 

062706 

000010 


58$: 

ADD 

#10, SP 

0 

9371 057256 

005266 

000032 



INC 

32 (SP) 

: KOUNT 

9372 057262 

026627 

000032 

000002 


CMP 

32(SP),#2 

; KOUNT,* 

93 7 3 057270 

003002 




BGT 

59$ 


9374 057272 

000167 

176672 



JMP 

40$ 


9375 057276 

010200 



59$: 

MOV 

R2.R0 

; URDCNT,* 

9376 057300 

006300 




ASL 

RO 


9377 057302 

066700 

153362 



ADD 

UPTR.RO 


9378 057306 

010067 

153356 



MOV 

RO.WPTR 


9379 057312 

010216 




MOV 

R2.(SP) 

; WRDCNT,* 

9380 057314 

012746 

000400 



MOV 

#400, -(SP) 


9381 057320 

004767 

125644 



JSR 

PC,Bl$DIV 


9382 057324 

060400 




ADD 

R4.R0 

; SECTOR,* 


SEQ 0221 

27-Mar-1982 19:24:42 TOPS 
27-Mar-1982 19:23:44 PA:< 


5420 


5423 


5416 

5428 


5431 

5437 


5439 


5405 

5319 

5318 


5447 

5448 
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9384 

9385 

9386 

9387 

9388 

9389 

9390 

9391 

9392 

9393 

9394 

9395 

9396 

9397 

9398 

9399 

9400 

9401 

9402 

9403 

9404 

9405 

9406 

9407 

9408 

9409 

9410 

9411 

9412 

9413 

9414 

9415 

9416 

9417 

9418 

9419 

9420 

9421 

9422 

9423 

9424 

9425 

9426 

9427 

9428 

9429 

9430 
V431 
9 '*32 

9433 

9434 

9435 

9436 

9437 

9438 


;MLX4 


057326 

057330 

057334 

057340 

057346 

057350 

057354 

057356 

057360 

057366 

057372 

057374 

057376 

057402 

057406 

057410 

057414 

057420 

057424 

057426 

057432 

057440 

057442 

057446 

057450 

057452 

057454 

057456 

057460 

057462 

057466 

057470 

057474 

057500 

057502 

057504 

057510 

057516 

057522 

057524 

057526 

057530 

057532 

057534 

057536 

057542 

057546 

057552 

057556 

057560 

057564 

057570 


01000 ^ 

062706 

000167 

032767 

001002 

000167 

010500 

006300 

016066 

016001 

000577 

010546 

012746 

012746 

010146 

004767 

062706 

020027 

001161 

004767 

032767 

001423 

017700 

006200 

006200 

006200 

006200 

006200 

006200 

042700 

010046 

012746 

012746 

010600 

104414 

062706 

017766 

017700 

006200 

006200 

006200 

006200 

006200 

006200 

042700 

010066 

012746 

016646 

010546 

012746 

016646 

016646 


000006 

176562 

000001 122714 60S: 

000430 


034500 000J26 
034460 


000400 

022670 

166176 

000010 

000005 

157700 

000001 122620 
154742 


177700 

006640 

000002 


000006 

154676 000030 63$: 
154666 


177700 

000032 

000001 

000024 

000400 

000034 

000042 


DEFINITION OF OPTION 2 

MOV R0.R4 

ADD #6.SP 

JMP 39i 

BIT #1.EFN$21 

BNE 61$ 

JMP 71$ 

MOV R5.R0 

ASL RO 

MOV TOP.SECT(RO).26(SP) 

MOV LOU. SECT (RO) .R1 

BR 70$ 

MOV R5,-(SP) 

MOV #400. -(SP) 

MOV #RBUFF,-(SP) 

MOV RI.-(SP) 

JSR PC. READ 

ADD #10. SP 

CMP R0,#5 

BNE 69$ 

JSR PC. ISOLATE 

BIT #1 .ERROUT 

BEQ 63$ 

MOV 3ML.REG+42.R0 

ASR RO 

ASR RO 

ASR RO 

ASR RO 

ASR RO 

ASR RO 

BIC #1 77700. RO 

MOV RO.-(SP) 

MOV #FMT10B,-(SP) 

MOV #2,-(SP) 

MOV SP.RO 

TRAP 14 

ADD #6,SP 

MOV 3ML.REG + 44,30(SP) 

MOV 9ML.REG+42.R0 

ASR RO 

ASR RO 

ASR RO 

ASR RO 

ASR RO 

ASR RO 

BIC #1 77700.R0 

MOV R0.32(SP) 

MOV #?,-(SP) 

MOV 24(SP),-(SP) 

MOV R5.-(SP) 

MOV #400. -(SP) 

MOV 34(SP),-(SP) 

MOV 42(SP).-(SP) 


SEQ 0222 
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9440 




;MLX4 



9441 

Q/ / O 




• 


DEFINITION OF OPTION 2 

T HHC 

9443 057574 

004767 

166424 



JSR 

PC .RE TRY 

9444 057600 

062706 

000014 



ADD 

#14. SP 

9445 057604 

020027 

000005 



CMP 

R0.#5 

9446 057610 

001051 




BNE 

66$ 

9447 057612 

027766 

154574 

0^0030 


CMP 

aML.REG+44.30(SP) 

9448 057620 

001034 




BNE 

65$ 

9449 057622 

016646 

000032 



MOV 

32<SP) ,-<SP) 

9450 057626 

017700 

154556 



MOV 

aML.REG+42,R0 

9451 057632 

006200 




ASR 

RO 

9452 057634 

006200 




ASR 

RO 

9453 057636 

006200 




ASR 

RO 

9454 057640 

006200 




ASR 

RO 

9455 057642 

006200 




ASR 

RO 

9456 057644 

006200 




ASR 

RO 

9457 057646 

042700 

177700 



BIC 

#1 77700.R0 

9458 057652 

020026 




CMP 

RO, (SP)+ 

9459 057654 

001016 




BNE 

65$ 

9460 057656 

032767 

000001 

122374 


8IT 

#1. ERROUT 

9461 057664 

001404 




BEG 

64$ 

9462 057666 

104456 




TRAP 

56 

9463 057670 

000334 




.WORD 

334 

9464 057672 

011202 




.WORD 

MSG4 

9465 057674 

000000 




.WORD 

0 

9466 057676 

010546 



64$: 

MOV 

R5,-(S P) 

9467 057700 

016746 

154436 



MOV 

BOARD, -(SP) 

9468 057704 

004767 

157512 



JSR 

PC, UP. HARD. COUNT 

9469 057710 

000426 




BR 

68$ 

9470 057712 

032767 

000001 

122340 

65$: 

BIT 

#1 .ERROUT 

9471 057720 

001415 




8EQ 

67$ 

9472 057722 

104457 




TRAP 

57 

9473 057724 

000335 




.WORD 

335 

9474 057726 

011166 




.WORD 

MS 63 

9475 057730 

000000 




.WORD 

0 

9476 057732 

000410 




BR 

67$ 

9477 057734 

032767 

000001 

122316 

66$: 

BIT 

#1. ERROUT 

9478 057742 

001404 




BEQ 

67$ 

9479 057744 

104457 




TRAP 

57 

9480 057746 

000336 




.WORD 

336 

9481 057750 

011166 




.WORD 

MSG3 

9482 057752 

000000 




.WORD 

0 

9483 057754 

010546 



67$: 

MOV 

R5,-(SP) 

9484 057756 

016746 

154360 



MOV 

BOARD, -(SP) 

9485 057762 

004767 

160116 



JSR 

PC, UP. SOFT. COUNT 

9486 057766 

022626 



68$: 

CMP 

(SP)*,(SP)+ 

9487 057770 

005201 



69$: 

INC 

R1 

9488 057772 

020166 

000026 


70$: 

CMP 

R1 ,26(SP) 

9489 057776 

101002 




BHI 

7li 

9490 060000 

000167 

177370 



JMP 

62$ 

0491 060004 

005205 



71$: 

INC 

R5 

9492 060006 

020566 

000034 


72$: 

CMP 

R5.34(SP) 

9493 060012 

002002 




BGE 

73$ 

9494 060014 

000167 

176000 



JMP 

36$ 


SEQ 0223 


27-Mar- 1982 19:24:42 TOPS 

27-Mar-1982 19:23:44 PA:< 


; *,OLDSEC 
; OLDCHN.* 


; LUN,* 


; LUN,* 


SECTOR 

SECTOR,* 


; LUN 
; LUN,* 



F 2 
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0PT2 definition 

OF OPTION 2 




9496 

9497 

9498 

9499 060020 

062706 

000010 

;MlX4 

* 

73S: 

ADD 

DEFINITION OF OPTION 2 

#10, SP 

9500 060024 

005266 

000030 

74$: 

INC 

30 (SP) 

9501 060030 

026666 

000030 000032 


CMP 

30 ISP) ,32CSP) 

9502 060036 

9503 060040 

003002 

000167 

174110 


BGT 

JMP 

75$ 

3$ 

9504 060044 

062706 

000036 

75$: 

ADD 

#36. SP 

9505 060050 

9506 

9507 

9508 

9513 

9514 

000207 


RTS PC 

; Routine Size: 1023 words 
; Maximum stack depth per invocation: 43 words 


COUNT 

COUNT,* 


SEQ 0224 

27-Mar-1982 19:24:42 TOPS 
27-Mar-1982 19:23:44 PA:< 

5052 

5051 

4982 
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SEQ 0225 


9516 

9517 

9518 

9519 

9520 

9521 

9522 

9523 

9524 

9525 

9526 

9527 

9528 

9529 

9530 

9531 

9532 

9533 

9534 

9535 

9536 

9537 

9538 

9539 

9540 

9541 

9542 

9543 

9544 

9545 

9546 

9547 

9548 

9549 

9550 

9551 

9552 

9553 

9554 

9555 

9556 

9557 

9558 

9559 

9560 

9561 

9562 

9563 

9564 

9565 

9566 

9567 

9568 

9569 

9570 


;MlX4 


DEFINITION OF OPTION 3 

Zsbttl ’DEFINITION OF OPTION 3' 
routine 0PT3 : novalue = 
begin 


27-Mar-1982 19:24:42 
2 7-Mar- 1982 19:23:44 


TOPS-20 Bliss-16 V2C212) 
PA:<NEALE>MLX4.BLI.5 (39) 


! * 1 * START OF ROUTINE 


ROUTINE: 
PURPOSE : 


TO DO A UNIQUE DATA CHECK ON ALL AVAILABLE UNITS. 


THE CODE FOR ’0PT3' IN BRIEF: 

BEGIN 1 (START OF ROUTINE) 

SAY ROUTINE IS RUNNING 

INCR COMPLEMENT FLAG FROM 0 TO 1 

: BEGIN 2 (START OF COMPLEMENT FLAG SELECTION LOOP) 

: GENERATE THE PATTERN 
: INCR LUN FROM 0 TO LAST 
: BEGIN 3 (START OF LOGICAL UNIT SELECTION LOOP) 

: : TESTLOOP: 

: BEGIN 4 (START OF LOOP THAT COMPLETELY TESTS 1 UNIT) 

: : : IF UNIT IS ACTIVE 

: : : THEN 

: : : : BEGIN 5 (START OF TEST FOR AN ACTIVE UNIT) 

: : : : INITIALIZE THE WRITE AND READ BUFFER POINTERS 

: : : SECTOR = LOWEST 

: : : : WHILE SECTOR LEO HI6HEST DO 

: : : : : BEGIN 6 (START OF SECTOR SELECTION LOOP) 

: GET WRDCNT 

: : : : SET UP BUFFER POINTERS BEFORE TRANSFER 
: : : : : WRITE 

: : : : : LOOK FOR ERRORS (IF DROP UNIT, LEAVE TESTLOOP) 

: : : CHOOSE WHETHER TO WRITE CHECK OR READ 

: : : : : DO THE WRITE CHECK OR READ 

: : : : : LOOK FOR ERRORS (IF DROP UNIT. LEAVE TESTLOOP) 

: : : : CHANGE BUFFER POINTERS AFTER TRANSFER 

: UPDATE SECTOR NUMBER BY NUMBER OF SECTORS IN PREVIOUS TRANSFER 
: END 6 (END OF SECTOR SELECTION LOOP) 

: : : : END 5 (END OF TEST FOR AN ACTIVE UNIT) 

: : : END 4 (END OF TESTLOOP) 

: : END 3 (END OF LOGICAL UNIT SELECTION LOOP) 

: END 2 (END OF COMPLEMENT FLAG SELECTION LOOP) 

RETURN 

END 1 (END OF ROUTINE) 


label 

LOOP; 

local 

WRDCNT. 

VALUE. 

OLDSEC, 
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SEQ 0226 


9572 ;MLX4 

9573 ; 

9574 

9575 ; 

9576 ; 

9577 ; 

9578 ; 

9579 ; 

9580 ; 

9581 ; 

9582 ; 

9583 ; 

9584 ; 

9585 ; 

9586 ; 

9587 ; 

9588 ; 

9589 ; 

9590 ; 

9591 ; 

9592 ; 

9593 ; 

9594 ; 

9595 ; 

9596 ; 

9597 ; 

9598 ; 

9599 ; 

9600 ; 

9601 ; 

9602 ; 

9603 ; 

9604 ; 

9605 ; 

9606 ; 

9607 ; 

9608 ; 

9609 ; 

9610 ; 

9611 ; 

9612 ; 

9613 ; 

9614 ; 

9615 ; 

9616 ; 

9617 ; 

9618 ; 

9619 ; 

9620 ; 

9621 ; 

9622 ; 

9623 ; 

9624 ; 

9625 ; 

9626 ; 


DEFINITION OF OPTION 3 


27-Mar-1982 19:24:42 
27-Mar- 1982 19:23:44 


TOPS-20 Bliss-16 V2(212> 
PA:<NEALE>MLX4.BLI.5 (39) 


5607 

5608 

5609 

5610 

5611 

5612 

5613 I 

5614 

5615 

5616 

5617 

5618 

5619 

5620 

5621 

5622 LOOP 

5623 


OLDCHN, 

SECTOR, 

PTR 

COMMAND, 

DBL.VALUE; 

PRINT8 (SAY2, WRD34, RTN3); 

! 'RUNNING 0PT3' 

incr COMP FLAG from 0 to 1 do 

begin" !* 2 * START OF COMPLEMENT FLAG SELECTION LOOP 

GEN3 (.COMP.FLAG); 

incr LUN from 0 to (.LJUNIT - 1) do 

begin 3 * START OF LOGICAL UNIT SELECTION 

begin !* 4 * START OF THE LOOP THAT COMPLETE 

if .DRIVE.STATUS C.LUNJ eql ACTIVE 
then 

begin !* 5 * START OF TEST FOR AN ACTIVE UNI 

LSLUN = .LUN; 

WPTR = U8UFF; 

RPTR = RBUFF; 

SECTOR = LOWEST; 

while .SECTOR lequ HIGHEST do 

begin !* 6 * START OF SECTOR SELECTION LOOP 

URDCNT = GET URDCNT (.SECTOR, HIGHEST); 

SET PTRS C.WRDCNT); 

VALOE = write (.LUN. .WRDCNT, .WPTR, .SECTOR); 


SEE HOW SUCCESSFUL THE WRITE WAS: 


3 » START OF LOGICAL UNIT SELECTION LOOP 
!* 4 * START OF THE LOOP THAT COMPLETELY TESTS 1 UNiT 


!* 5 * START OF TEST FOR AN ACTIVE UNIT 


selectone .VALUE of 
set 

m : 

begin 


•SEE 'SYSERR* FOR DEFINITION 
!0F ERROR # CONTAINED IN ’VALUE' 


!* 6A * RETRY ALLOWED 


if RETRY (SIX, write. .LUN, .WRDCNT. .WPTR, .SECTOR) neq 0 
then .'THE RETRY FAILED — SYSTEM FATAL ERROR 

begin 

WHY DROPT C.LUNJ = C0DE.4; 

ERRIJF (301, MSG1, 0); .'**** OPTION 3 ERROR 01 **** 

DODU (.LUN); 

leave LOOP; .'JUMP JUST BEYOND END OF BLOCK * 4 * 
end; 

end; 6A * 
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SEO 0227 


9628 

9629 

9630 

9631 

9632 

9633 

9634 

9635 

9636 

9637 

9638 

9639 

9640 

9641 

9642 

9643 

9644 

9645 

9646 

9647 

9648 

9649 

9650 

9651 

9652 

9653 

9654 

9655 

9656 

9657 

9658 

9659 

9660 

9661 

9662 

9663 

9664 

9665 

9666 

9667 

9668 

9669 

9670 

9671 

9672 

9673 

9674 

9675 

9676 

9677 

9678 

9679 

9680 

9681 

9682 


MLX4 


DEFINITION OF OPTION 3 


27-Mar-1982 19:24:42 
27-Mar-1982 19:23:44 


T0PS-20 Bliss-16 V2(212) 
PA:<NEALE>MLX4.BLI.5 (39) 


5659 

5660 

5661 

5662 

5663 

5664 

5665 

5666 

5667 

5668 

5669 

5670 

5671 

5672 

5673 

5674 

5675 

5676 

5677 

5678 

5679 

5680 

5681 

5682 

5683 

5684 

5685 

5686 

5687 

5688 

5689 

5690 

5691 

5692 

5693 

5694 

5695 

5696 

5697 

5698 

5699 

5700 

5701 

5702 

5703 

5704 

5705 

5706 

5707 

5708 

5709 

5710 


C23 


! * 6B * FATAL CONTROLLER ERROR — NO RETRY ALLOWED 


begin . * oo ' 

WHY DROPT C.LUN3 = C0DE.5; 

ERR&F (302, MSG1. 0); !***• OPTION 3 ERROR 02 **** 

DODU (.LUN); 

leave LOOP; !JUMP JUST BEYOND END OF BLOCK * 4 * 

end; ! * 68 * 

begin :* 6C * FATAL DRIVE ERROR — NO RETRY ALLOWED 

ERRDF (303. HSG1 , 0); !**•* OPTION 3 ERROR 03 **** 

WHY DROPT C.LUN3 = C0DE_6; 

DODO (.LUN); 

leave LOOP; IJUMP JUST BEYOND END OF BLOCK * 4 * 

end; !* 6C * 

tes; 

COMMAND = CHOOSE (>; 

if .COMMAND eql read 
then 

begin 

PTR = RPTR* 

VALUE = read (.LUN, .WRDCNT, .RPTR, .SECTOR); 
end 

else 

begin 

PTR = .WPTR; 

VALUE = CHECK (.LUN. .WRDCNT. .WPTR. .SECTOR); 
end; 


SEE HOW SUCCESSFUL THE OPERATION WAS: 


selectone .VALUE of 
set 


! SEE 'SYSERR* FOR DEFINITION 
! OF ERROR # CONTAINED IN 'VALUE' 


[03 : 


if .COMMAND eql read 
then 

begin 

if (D8L.VALUE = DOUBLE.CHECK (.WPTR, .RPTR, .WRDCNT)) neq 0 
then 

begin 

SAi WHO ( i itfj) * 

PRINTS (SAY1.MSG5); f'ECC LOGIC FAILED TO DETECT DATA ERROR' 

PRINTS (FMT12A, ..DBL VALUE, .DBL VALUE); 

! ' GOOD DATA: XXXXXX AT LOCATION YYYYYY 


CZMLBBO PERFORMANCE EXERCISER 
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9684 

9685 

9686 

9687 

9688 

9689 

9690 

9691 

9692 

9693 

9694 

9695 

9696 

9697 

9698 

9699 

9700 

9701 

9702 

9703 

9704 

9705 

9706 

9707 

9708 

9709 

9710 

9711 

9712 

9713 

9714 

9715 

9716 

9717 

9718 

9719 

9720 

9721 

9722 

9723 

9724 

9725 

9726 

9727 

9728 

9729 

9730 

9731 

9732 

9733 

9734 

9735 

9736 

9737 

9738 


MLX4 
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SEQ 0228 


5711 

5712 

5713 

5714 

5715 

5716 

5717 

5718 

5719 

5720 

5721 

5722 

5723 

5724 

5725 

5726 

5727 

5728 

5729 

5730 

5731 

5732 

5733 

5734 

5735 

5736 

5737 

5738 

5739 

5740 

5741 

5742 

5743 

5744 

5745 

5746 

5747 

5748 

5749 

5750 

5751 

5752 

5753 

5754 

5755 

5756 

5757 

5758 

5759 

5760 

5761 

5762 


27-Mar-1982 19:24:42 TOPS-20 8liss-16 V2(212) 

27-Mar-1982 19:23:44 PA:<NEALE>MLX4.BLl .5 (39) 

D8L VALUE = .D8L. VALUE ♦ 8UFSIZ*2; 

PRIRTP (FMT128, ..DBL VALUE. .DBL VALUE); 

! '8 AD DATS: PPPPPP AT LOCATION QQQQQQ' 

WHY DROPT C.LUNJ = C0DE.8; 

ERR0F (304. MSG1 , 0); !***• OPTION 3 ERROR 04 **** 

DODU (.LUN); 

leave LOOP; .'JUMP JUST BEYOND END OF BLOCK * 4 * 
end; 


end; 


C1J 


!* 6D * RETRY ALLOWED 


begin 

if RETRY (SIX. .COMMAND. .LUN, .WRDCNT, .PTR, .SECTOR) neq 0 
then • THE RETRY FAILED — SYSTEM FATAL ERROR 

WH? 1 DROPT C.LUNJ = C0DE_4; 

ERRPF (305, MSG1, 0); !*•** OPTION 3 ERROR 05 **** 

DODU (.LUN); 

leave LOOP; JJUMP JUST BEYOND END OF BLOCK * 4 * 
end; 


end; 


* 6D * 


C2J 


C3J 


C4J 


begin I* 6E * FATAL CONTROLLER ERROR — NO RETRY ALLOWED 

WHY DROPT C.LUNJ = C0DE.5; 

ERRPF (306. MSG1, 0); !•*** OPTION 3 ERROR 06 **** 

DODU (.LUN); 

leave LOOP; .'JUMP JUST BEYOND END OF BLOCK * 4 * 

end; !* 6E * 

begin !* 6F * FATAL DRIVE ERROR — NO RETRY ALLOWED 

ERRDF (307. MSG1, 0); .'**** OPTION 3 ERROR 07 **** 

WHY DROPT C.LUNJ = C0DE.6; 

DODO (.LUN); 

leave LOOP; !JUMP JUST BEYOND END OF BLOCK * 4 * 

end; !* 6F * 

begin !* 6G * UNRECOVERABLE DATA ERROR 

ISOLATE (); , 

ERRDF (308. HSG2, 0); !*•** OPTION 3 ERROR 08 **** 

WHY DROPT C.LUNJ = C0DE.7; 

DODO (.LUN); 

leave LOOP; !JUMP JUST BEYOND END OF BLOCK * 4 * 

end; J* 6G * 


C5J : 


begin 


!* 6H * RECOVERABLE DATA ERROR 


1 

1 

1 

1 

1 

1 


L 



CZMLBBO 
0PT2 DEF 

9740 

9741 

9742 

9743 

9744 

9745 

9746 

9747 

9748 

9749 

9750 

9751 

9752 

9753 

9754 

9755 

9756 

9757 

9758 

9759 

9760 

9761 

9762 

9763 

9764 

9765 

9766 

9767 

9768 

9769 

9770 

9771 

9772 

9773 

9774 

9775 

9776 

9777 

9778 

9779 

9780 

9781 

9782 

9783 

9784 

9785 

9786 

9787 

9788 

9789 

9790 

9791 

9792 

9793 

9794 
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27-Mar- 1982 19:24:42 
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TOPS-20 Bliss-16 V2C212) 
PA:<NEALE>MLX4.BLI.5 (39) 


5763 

5764 

5765 

5766 

5767 

5768 

5769 

5770 

5771 

5772 

5773 

5774 

5775 

5776 

5777 

5778 

5779 

5780 

5781 

5782 

5783 

5784 

5785 

5786 

5787 

5788 

5789 

5790 

5791 

5792 

5793 

5794 

5795 

5796 

5797 

5798 

5799 

5800 

5801 

5802 

5803 

5804 

5805 

5806 

5807 

5808 

5809 

5810 

5811 

5812 

5813 

5814 


ISOLATE (>; 


if .ERROUT then PRINTS (FMT10B, .CHAN); 

•• BIT 00' 

OLDSEC = .HLEl; 

OLDCHN = .CHAN; 

if RETRY (ONE, .COMMAND, .LUN, .WRDCNT, .PTR, .SECTOR) eql 5 
then 

if ((.MIEL eql .OLDSEC) and (.CHAN eql .OLDCHN)) 
then 

begin 


if .ERROUT then ERRHRD (309, MSG4, 0); 

UP HARD.COUNT (.LUN, .BOARD); 
end 

» 

begin 

if .ERROUT then ERRSOFT (310, MSG3, 0); 

UP SOFT.COUNT (.LUN, .BOARD); 
end 


***** OPTION 3 ERROR 09 **** 


***** OPTION 3 ERROR 10 **** 


begin 

if .ERROUT then ERRSOFT (311, MSG3, 0); .'**** OPTION 3 ERROR 11 **** 

UP SOFT.COUNT (.LUN, .BOARD); 
end; 

end; !* 6H * 

tes; 

UPTR = .UPTR * (.URDCNT*2); 

SECTOR = .SECTOR ♦ (.WRDCNT/256); 

end; !* 6 * END OF SECTOR SELECTION LOOP 

end; !* 5 * END OF TEST FOR AN ACTIVE UNIT 

► 

Test to see if this uut's address space is 
to be read for soft errors. This test is 
is intended for DMT purposes. 


if .EFNJ21 
then 


I Is the background pattern to be read 
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SEQ 0230 


9796 

9797 

9798 

9799 

9800 

9801 

9802 

9803 

9804 

9805 

9806 

9807 

9808 

9809 

9810 

9811 

9812 

9813 

9814 

9815 

9816 

9817 

9818 

9819 

9820 

9821 

9822 

9823 

9824 

9825 

9826 

9827 

9828 

9829 

9830 

9831 

9832 

9833 

9834 

9835 

9836 

9837 

9838 

9839 

9840 

9841 

9842 

9843 

9844 

9845 

9846 

9847 

9848 
98<*9 
9850 


MLX4 


5815 

5816 

5817 

5818 

5819 

5820 

5821 

5822 

5823 

5824 

5825 

5826 

5827 

5828 

5829 

5830 

5831 

5832 

5833 

5834 

5835 

5836 

5837 

5838 

5839 

5840 

5841 

5842 

5843 

5844 

5845 

5846 

5847 

5848 

5849 

5850 

5851 

5852 

5853 

5854 

5855 

5856 

5857 

5858 

5859 

5860 
P 5861 
P 5862 

5863 

5864 

5865 

5866 


DEFINITION OF OPTION 3 
begin 


version czmlbb changed incr to incru 


27-Mar-1982 19:24:42 
27-Mar-1982 19:23:44 


TOPS-20 Bliss-16 V2(212> 
PA:<NEALE>MLX4.BLI.5 (39) 


incru SECTOR from LOWEST to HIGHEST do 

if read (.LUN, 256, RBUFF, .SECTOR) eql 5 
then 

begin 

ISOLATE O; .'Find the failing bank and board no. 

if .ERROUT then PRINTS (FMT108. .CHAN); 

Print where the error is 


Save the contents of the ML error location 
register so we can compare it to the new 
contents of this register after the retry. 
This is done to classify the error. 


i 

j 
j 

j 

i 

i 

OLDSEC = .MLEL; 

OLDCHN = .CHAN; 

Do a classify retry call. If the same error 
occures then classify it as a hard error. If 
a different error occured or the error went away 
then classify it as a soft error. 

f RETRY (ONE, .COMMAND, .LUN, 256, .PTR, .OLDSEC) eql 5 
then 

The same error occured so see if it is at the same 
sector and channel number, if so then classify 
it as a hard error else classiy it as a soft 
error. 


if ((.MLEL eql .OLDSEC) and (.CHAN eql .OLDCHN)) 
then 

begin JSame error occured 'hard' 

if .ERROUT IPrint error if enabled 

then 

begin 

ERRHRD (312, ‘Error number 

MSG4, .'Error message 

0); Additional message routine 

end; 

UP.HARD.COUNT (.LUN, .BOARD); 



SEQ 0231 
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9852 ;MLX4 

9853 

9854 

9855 

9856 

9857 

9858 

9859 

9860 

9861 

9862 

9863 

9864 

9865 

9866 

9867 

9868 

9869 

9870 

9871 

9872 

9873 

9874 

9875 

9876 

9877 

9878 

9879 

9880 

9881 

9882 

9883 

9884 

9885 

9886 

9887 

9888 

9889 

9890 

9891 

9892 

9893 

9894 

9898 

9899 

9903 060052 

9904 060056 

9905 060062 

9906 060066 


DEFINITION OF OPTION 3 


27-Mar-1982 19:24:42 
27-Mar-1982 19:23:44 


TOPS-20 Bliss-16 V2C212) 
PA:<NEAIE>MLX4.8LI .5 (39) 


5867 

5868 

5869 

5870 

5871 

5872 

5873 
P 5874 
P 5875 

5876 

5877 

5878 

5879 

5880 

5881 

5882 

5883 

5884 

5885 

5886 

5887 
P 5888 
P 5889 

5890 

5891 

5892 

5893 

5894 

5895 

5896 

5897 

5898 

5899 

5900 

5901 

5902 

5903 

5904 

5905 

5906 


else 


end 

% 

begin 


!Not the same error 'soft' 
IPrint error if enabled 


if .ERROUT 
then 

begin 

ERRSOFT (313, .'Error number 

HSG3, ! Error message 
0); IAdditional message routine 

end; 

UP SOFT.COUNT (.LUN, .BOARD); 
end 


else 


begin 

if .ERROUT 
then 

begin 

ERRSOFT (314, 
MSG3, 

0 ); 

end; 


!Not the same error 'soft' 
iPrint error if enabled 


J Error number 

.'Error message 

IAdditional message routine 


UP SOFT.COUNT (.LUN, .BOARD); 
end; 


end; 


end; 


end; 

end; 


end; 

return; 

end; 


4 * END OF TESTL00P 

!* 3 * END OF LOGICAL UNIT SELECTION LOOP 
!* 2 * END OF COMPLEMENT FLAG SELECTION LOOP 


!* 1 * END OF ROUTINE 


004167 125256 
162706 000020 
012746 007642 
012746 007344 


0PT3: 


.SBTTL 0PT3 DEFINITION OF OPTION 3 
JSR R1.SSAVE5 

SUB #20, SP 

MOV #RTN3,-(SP) 

MOV #WRD34,-(SP) 


5556 

5613 
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9908 

9909 

9910 

9911 060072 

9912 060076 

9913 060102 

9914 060104 

9915 060106 

9916 060112 

9917 060116 

9918 060122 

9919 060130 

9920 060134 

9921 060140 

9922 060144 

9923 060146 

9924 060150 

9925 060152 

9926 060156 

9927 060160 

9928 060164 

9929 060170 

9930 060174 

9931 060176 

9932 060202 

9933 060206 

9934 060210 

9935 060212 

9936 060216 

9937 060224 

9938 060232 

9939 060240 

9940 060244 

9941 060246 

9942 060252 

9943 060256 

9944 060260 

9945 060262 

9946 060266 

9947 060272 

9948 060274 

9949 060276 

9950 060302 

9951 060306 

9952 060310 

9953 060314 

9954 060316 

9955 060322 

9956 060324 

9957 060330 

9958 060332 

9959 060336 

9960 060342 

9961 060346 

9962 060350 


;NLX4 


DEFINITION OF OPTION 3 


012746 

012746 

010600 

104414 

005066 

016646 

004767 

016766 

005066 

000167 

016600 

006200 

006200 

006200 

062700 

010046 

016646 

042716 

012746 

005046 

004767 

062706 

0C5300 

001402 

000167 

016667 

012767 

012767 

016605 

006305 

016503 

020365 

101355 

010346 

016546 

004767 

010002 

010216 

004767 

016616 

010246 

016746 

010346 

004767 

010004 

020427 

001035 

012746 

012746 

016646 

010246 

016746 


007100 

000003 


000026 

000026 IS: 

161344 

121664 000014 

000012 

002240 

000012 2S: 


034442 

000014 

177770 

000001 

124154 

000010 


001502 3$: 

000012 121650 4S: 
012670 152436 
022670 152432 
000012 

034460 

034500 5$: 


034500 

166704 


166630 

000016 

152354 

165102 

000001 

000006 

045424 

000030 

152314 


MOV 

#SAV2,-(SP) 

MOV 

#3.-<SP) 

MOV 

SP.RO 

TRAP 

14 

CLR 

26(5P) 

MOV 

26(5P) ,-<SP> 

JSR 

PC.GEN3 

MOV 

L$UNIT.14(SP) 

CLR 

12ISP) 

JMP 

41$ 

MOV 

12(SP) ,R0 

ASR 

RO 

ASR 

RO 

ASR 

RO 

ADD 

#DRI VE.STATUS.RO 

MOV 

RO.-(SP) 

MOV 

14CSP).-(SP) 

BIC 

#1 77770. (SP) 

MOV 

#1,-<SP) 

CLR 

-(SP) 

JSR 

PC.8LSGT2 

ADD 

#10, SP 

DEC 

RO 

BEQ 

4$ 

JMP 

29$ 

MOV 

1 2 (SP) ,L$LUN 

MOV 

#UBUFF ,UPTR 

MOV 

#R8UFF,RPTR 

MOV 

12(SP),R5 

ASL 

R5 

MOV 

LOU. SECT (R5) ,R3 

CMP 

R3, TOP. SECT (R5) 

BHI 

3$ 

MOV 

R3,-(SP) 

MOV 

T0P.SECT(R5),-(SP) 

JSR 

PC, GET. WRDCNT 

MOV 

R0.R2 

MOV 

R2,(SP) 

JSR 

PC.SET.PTRS 

MOV 

16(SP),(SP) 

MOV 

R2.-CSP) 

MOV 

WPTR.-(SP) 

MOV 

R3,-(SP) 

JSR 

PC. WRITE 

MOV 

R0.R4 

CMP 

R4,#1 

BNE 

6$ 

MOV 

#6,-(SP) 

MOV 

AWRITE ,-(SP) 

MOV 

30(SP) ,-(SP) 

MOV 

R2,-(SP) 

MOV 

WPTR.-(SP) 


SEO 0232 


27-Mar-1982 19:24:42 TOPS 
27-Mar- 1982 19:23:44 PA:< 


; SP,* 

; COMP. FLAG 
; COMP. FLAG.* 

' LUN 
; LUN.* 


; LUN.* 


; LUN,* 

0 

; LUN,* 

; *, SECTOR 
; SECTOR,* 

; SECTOR,* 

; *,URDCNT 
; WRDCNT.* 

; LUN,* 

; URDCNT,* 

; SECTOR.* 

; *, VALUE 
; VALUE,* 

; LUN,* 

; WRDCNT,* 
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SEO 0233 


9964 




;MLX4 


9965 




• 

# 


9966 






9967 060354 

010346 




MOV 

9968 060356 

004767 

165642 



JSR 

9969 060362 

0627C6 

000014 



ADD 

9970 060366 

005700 




TST 

9971 060370 

001456 




BEQ 

9972 060372 

016601 

000024 



MOV 

9973 060376 

112761 

000004 

034446 


MOVB 

9974 060404 

104455 




TRAP 

9975 060406 

000455 




.WORD 

9976 060410 

011070 




.WORD 

9977 060412 

000000 




.WORD 

9978 060414 

016600 

000024 



MOV 

9979 060420 

104451 




TRAP 

9980 060422 

000436 




BR 

9981 060424 

020427 

000002 


6$: 

CMP 

9982 060430 

001015 




BNE 

9983 060432 

016601 

000024 



MOV 

9984 060436 

112761 

000005 

034446 


MOVB 

9985 060444 

104455 




TRAP 

9986 060446 

000456 




.WORD 

9987 060450 

011070 




.WORD 

9988 060452 

000000 




.WORD 

9989 060454 

016600 

000024 



MOV 

9990 060460 

104451 




TRAP 

9991 060462 

000416 




BR 

9992 060464 

020427 

000003 


7$: 

CMP 

9993 060470 

001016 




BNE 

9994 060472 

104455 




TRAP 

9995 060474 

000457 




.WORD 

9996 060476 

011070 




.WORD 

9997 060500 

000000 




.WORD 

9998 060502 

016601 

000024 



MOV 

9999 060506 

112761 

000006 

034446 


MOVB 

10000 060514 

010100 




MOV 

10001 060516 

104451 




TRAP 

10002 060520 

062706 

000012 


8$: 

ADD 

10003 060524 

000543 




BR 

12 n 04 060526 

004767 

165434 


9$: 

JSR 

10005 060532 

010066 

000040 



MOV 

10006 060536 

005001 




CLR 

10007 060540 

020027 

045612 



CMP 

10008 060544 

001015 




BNE 

10009 060546 

005201 




INC 

10010 060550 

016766 

152116 

000036 


MOV 

10011 060556 

016646 

000024 



MOV 

10012 060562 

010246 




MOV 

10013 060564 

016746 

152102 



MOV 

10014 060570 

010346 




MOV 

10015 060572 

004767 

165014 



JSR 

10016 060576 

000413 




BR 

10017 060600 

016766 

152064 

000036 

1 0S : 

MOV 

10018 060606 

016646 

000024 



MOV 


DEFINITION OF OPTION 3 


R3.-CSP) 

; SECTOR.* 

PC. RETRY 


#14. SP 


RO 


9$ 


24CSP) ,R1 

; LUN,* 

#4,WHY.DR0PT(R1> 


55 

# 

455 


MSG1 


0 


24 CSP) ,R0 

; LUN,* 

51 


8$ 


R4,#2 

; VALUE,* 

7$ 


24 (SP) ,R1 

; LUN.* 

#5,WHY.DR0PT(R1) 


55 

0 

456 


MSG1 


0 


24(SP).R0 

; LUN,* 

51 


8$ 

0 

R4,#3 

; VALUE.* 

9$ 


55 

0 

457 


MSG1 


0 


24(SP).R1 

; LUN,* 

#6,WHY.DR0PT(R1> 


R1.R0 

; LUN,* 

51 


#12, SP 

0 

14$ 


PC. CHOOSE 

0 

R0.40CSP) 

; *, COMMAND 

R1 

0 

RO.#READ 

; COMMAND.* 

10$ 

R1 


RPTR.36CSP) 

; *.PTR 

24(SP).-(SP) 

; LUN,* 

R2.-CSP) 

; WRDCNT,* 

RPTR.-(SP) 


R3.-CSP) 

; SECTOR,* 

PC.READ 


ni 


WPTR.36CSP) 

; *.PTR 

24CSP) ,-(SP) 

; LUN,* 


27-Mar-1982 19:24:42 TOPS 
27-Mar-1982 19:23:44 P A:< 


5652 

5653 


5654 

5655 

5643 

5662 

5663 


5664 

5665 
5643 

5670 


5671 

5672 

5673 
5677 
5679 | 


5682 

5683 


5687 

5688 
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SEO 0234 


10020 




;MLX4 


DEFINITION OF OPTION 3 



10021 

10022 

10023 060612 




9 




010246 




MOV 

R2,-(SP) 

• 

WRDCNT,* 

10024 060614 

016746 

152050 



MOV 

WPTR,-(SP) 


SECTOR.* 

10025 060620 

010346 




MOV 

R3,-(SP) 

9 

10026 060622 

004767 

165152 



JSR 

PC, CHECK 


♦.VALUE 

10027 060626 

010004 



11$: 

MOV 

R0.R4 

15i 

• 

* 

10028 060630 

001102 




BNE 

• 

9 


10029 060632 

006001 




ROR 

R1 

9 


10030 060634 

103402 



12$: 

BLO 

13$ 



10031 060636 

000167 

001014 


IMP 

28$ 



10032 060642 

016746 

152022 


13$: 

MOV 

UPTR,-(SP) 

9 


10033 060646 

016746 

152020 



MOV 

RPTR,-(SP) 



10034 060652 

010246 




MOV 

R2.-CSP) 

9 

WRDCNT,* 

10035 060654 

004767 

163446 



JSR 

PC, DOUBLE. CHECK 



10036 060660 

062706 

000006 



ADD 

#6.SP 



10037 060664 

010066 

000042 



MOV 

R0,42(SP) 

9 

*. DBL. VALUE 

10038 060670 

001762 




BEQ 

12$ 



10039 060672 

016646 

000034 



MOV 

34(SP),-(SP) 

■ 

9 

LUN,* 

10040 060676 

004767 

154622 



JSR 

PC,SAYWHO 



10041 060702 

012716 

011216 



MOV 

#MSG5,(SP) 

• 

9 


10042 060706 

012746 

007072 



MOV 

#SAYl ,-CSP) 



10043 060712 

012746 

000002 



MOV 

#2,-(SP) 



10044 060716 

010600 




MOV 

SP, RO 

9 

SP.* 

10045 060720 

104414 




TRAP 

14 



10046 060722 

016616 

000050 



MOV 

50(SP) . (SP) 

350CSP) ,-(SP) 

9 

DBL. VALUE,* 

10047 060726 

017646 

000050 



MOV 

9 

DBL. VALUE.* 

10048 060732 

012746 

006710 



MOV 

#FMT12A.-(SP) 



10049 060736 

012746 

000003 



MOV 

#3,-(SP) 



10050 060742 

010600 




MOV 

SP.RO 

9 

SP,* 

10051 060744 

104414 




TRAP 

14 



10052 060746 

062766 

010000 

000056 


ADD 

#10000, 56 (SP) 

• 

9 

*. DBL. VALUE 

10053 060754 

016616 

000056 



MOV 

56(SP) f (SP) 

356(SP),-(SP) 

9 

DBL. VALUE.* 

10054 060760 

017646 

000056 



MOV 

• 

9 

DBL. VALUE,* 

10055 060764 

012746 

006756 



MOV 

#FMT12B,-(SP) 



10056 060770 

012746 

000003 



MOV 

#3,-(SP) 



10057 060774 

010600 




MOV 

SP.RO 

9 

SP.* 

10058 060776 

104414 




TRAP 

14 



10059 061000 

016601 

000056 



MOV 

56(SP).R1 

9 

LUN.* 

10060 061004 

112761 

000010 

034446 


MOVB 

#10,UHV .DROPT(Rl) 



10061 061012 

104455 




TRAP 

55 

9 


10062 061014 

000460 




.WORD 

460 



10063 061016 

011070 




.WORD 

MSG1 



10064 061020 

000000 




.WORD 

0 



10065 061022 

016600 

000056 



MOV 

56 (SP) ,R0 

• 

9 

LUN,* 

10066 061026 

104451 




TRAP 

51 



10067 061030 

062706 

000044 



ADD 

#44, SP 

9 


10068 061034 

000521 



14$: 

BR 

20$ 


VALUE,* 

10069 061036 

020427 

000001 


15$: 

CMP 

R4,#1 

9 

10070 061042 

001035 




BNE 

16$ 



10071 061044 

012746 

000006 



MOV 

#6,-(SP) 

9 


10072 061050 

016646 

000052 



MOV 

52(SP).-(SP) 

• 

9 

COMMAND,* 

10073 061054 

016646 

000040 



MOV 

40(SP),-(SP) 

9 

LUN.* 

10074 061060 

010246 




MOV 

R2,-(SP) 

9 

WRDCNT,* 


27-Mar-1982 19:24:4 2 
27-Mar-1982 19:23:44 


TOPS 

PA:< 


5695 

5700 

5704 


57C7 

5708 

5709 


5711 

5712 


5714 

5715 


5716 

5717 
5695 


0 3 
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OPT 3 DEFINITION OF OPTION 3 


10076 




;MLX4 



10077 




0 


DEFINITION OF OPTION 3 

10078 







10079 061062 

016646 

000056 



MOV 

56(SP).-(SP> 

10080 061066 

010346 




MOV 

R3. -(SP) 

10081 061070 

004767 

165130 



JSR 

PC. RETRY 

10082 061074 

062706 

000014 



ADD 

♦14. SP 

10083 061100 

005700 




TST 

RO 

10084 061102 

001655 




SEO 

12$ 

10085 061104 

016601 

000034 



MOV 

34 (SP) ,R1 

10086 061110 

112761 

000004 

034446 


M0V8 

♦4.WHY.DR0PT(R1) 

10087 061116 

104455 




TRAP 

55 

10088 061120 

000461 




.WORD 

461 

10089 061122 

011070 




.WORD 

MSG1 

10090 061124 

000000 




.WORD 

0 

10091 061126 

016600 

000034 



MOV 

34(SP).R0 

10092 061132 

104451 




TRAP 

51 

10093 061134 

000457 




BR 

19$ 

10094 061136 

020427 

000002 


16S: 

CMP 

R4.#2 

10095 061142 

001015 




BNE 

17$ 

10096 061144 

016601 

000034 



MOV 

34(SP).R1 

10097 061150 

112761 

000005 

034446 


M0V6 

♦5.WHY.DR0PT (R1) 

10098 061156 

104455 




TRAP 

55 

10099 061160 

000462 




.WORD 

462 

10100 061162 

011070 




.WORD 

MSG1 

10101 061164 

000000 




.WORD 

0 

10102 061166 

016600 

000034 



MOV 

34 (SP) .RO 

10103 061172 

104451 




TRAP 

51 

10104 061174 

000437 




BR 

19$ 

10105 061176 

020427 

000003 


17$: 

CMP 

R4.A3 

10106 061202 

001014 




BNE 

isi 

10107 061204 

104455 




TRAP 

55 

10108 061206 

000463 




.WORD 

463 

10109 061210 

011070 




.WORD 

MSG1 

10110 061212 

OOOGOO 




.WORD 

0 

10111 061214 

016601 

000034 



MOV 

34(SP).R1 

10112 061220 

112761 

000006 

034446 


M0V8 

♦6.WHY .DROPT (R1 ) 

10113 061226 

010100 




MOV 

R1.R0 

10114 061230 

104451 




TRAP 

51 

10115 061232 

000420 




BR 

19$ 

10116 061234 

020427 

000004 


18$: 

CMP 

R4.44 

10117 061240 

001021 




BNE 

21$ 

10118 061242 

004767 

156064 



JSR 

PC. ISOLATE 

10119 061246 

104455 




TRAF 

55 

10120 061250 

000464 




.WORD 

464 

10121 061252 

011120 




.WORD 

MSG2 

10122 061254 

000000 




.WORD 

0 

10123 061256 

016601 

000034 



MOV 

34(SP).R1 

10124 061262 

112761 

000007 

034446 


M0V8 

♦7. WHY. DROPT (R1 ) 

10125 061270 

010100 




MOV 

R1.R0 

10126 061272 

104451 




TRAP 

51 

10127 061274 

062706 

000022 


19$: 

ADD 

♦22. SP 

10128 061300 

000167 

001070 


20$: 

JMP 

40$ 

10129 061304 

020427 

000005 


21$: 

CMP 

R4.A5 

10130 061310 

001162 




BNE 

28* 


SEO 0235 


27-Mar-1982 19:24:42 TOPS 
27-Mar-1982 19:23:44 PA:< 

; PTR.* 

; SECTOR.* 


; LUN.* 

► 

5728 

5729 

; LUN.* 

« 

5730 

5731 

; VALUE.* 

5695 

; LUN.* 

0 

5738 

5739 

; LUN.* 

5740 

0 

5741 

; VALUE,* 

5695 

0 

5746 

; LUN.* 

5747 

; LUN.* 

5748 

• 

5749 

; VALUE,* 

5695 

, 

5754 

• 

0 

5755 

; LUN,* 

5756 

; LUN.* 

5757 


5758 

; VALUE,* 

5695 



E 3 
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10132 ;MLX4 

10133 ; DEFINITION OF OPTION 3 


101 34 

10135 061312 

004767 

156014 

JSR 

PC, ISOLATE 

10136 061316 

032767 

000001 

120734 BIT 

#1.ERR0UT 

2 2i 

10137 061324 

C01423 


BEQ 

10138 061326 

017701 

153056 

MOV 

3ML.REG*42,R1 

10139 061332 

006201 


ASR 

R1 

10140 061334 

006201 


ASR 

R1 

10141 061336 

006201 


ASR 

R1 

10142 061340 

006201 


ASR 

R1 

10143 061342 

006201 


ASR 

R1 

10144 061344 

006201 


ASR 

R1 

10145 061346 

042701 

177700 

BIC 

0177700. R1 

10146 061352 

010146 


MOV 

RI.-(SP) 

10147 061354 

012746 

006640 

MOV 

#FMT10B,-(SP) 

#2,-<SP> 

10148 061360 

012746 

000002 

MOV 

10149 061364 

010600 


MOV 

SP,RO 

10150 061366 

104414 


TRAP 

14 

10151 061370 

062706 

000006 

ADD 

#6,SP 

10152 061374 

017766 

153012 

000044 22$: MOV 

8ML .REG+44 ,44 ( SP) 

10153 061402 

017701 

153002 

MOV 

3ML.REG+42.R1 

10154 061406 

006201 


ASR 

R1 

10155 061410 

006201 


ASR 

R1 

10156 061412 

006201 


ASR 

R1 

10157 061414 

006201 


ASR 

R1 

10158 061416 

006201 


ASR 

R1 

10159 061420 

006201 


ASR 

R1 

10160 061422 

042701 

177700 

BIC 

01 77700. R1 

10161 061426 

010166 

000040 

MOV 

R1,40(SP) 

10162 061432 

012746 

000001 

MOV 

#1,-(SP) 

10163 061436 

016646 

000052 

MOV 

52(SP),-(SP) 

10164 061442 

016646 

000040 

MOV 

40(SP) ,-(SP> 

10165 061446 

010246 


MOV 

R2.-CSP) 

10166 061450 

016646 

000056 

MOV 

56(SP) ,-(SP) 

10167 061454 

010346 


MOV 

R3.-CSP) 

10168 061456 

004767 

164542 

JSR 

PC, RETRY 
#14, SP 

10169 061462 

062706 

000014 

ADD 

10170 061466 

020027 

000005 

CMP 

R0,#5 

25i 

10171 061472 

001052 


BNE 

10172 061474 

027766 

152712 

000044 CMP 

aML.REG*44,44(SP) 

10173 061502 

001035 


BNE 

24$ 

10174 061504 

016600 

000040 

MOV 

40(SP) ,R0 

10175 061510 

017701 

152674 

MOV 

8NL.REG+42.R1 

10176 061514 

006201 


ASR 

R1 

10177 061516 

006201 


ASR 

R1 

10178 061520 

006201 


ASR 

R1 

10179 061522 

006201 


ASR 

R1 

10180 061524 

006201 


ASR 

R1 

10181 061526 

006201 


ASR 

R1 

10182 061530 

042701 

177700 

BIC 

#177700,R1 

10183 061534 

020100 


CMP 

R1.R0 

10184 061536 

001017 


BNE 

24$ 

10185 061540 

032767 

000001 

120512 BIT 

#1,ERR0UT 

23* 

10186 061546 

001404 


BEO 


SEG C236 



27-Mar-1982 19:24:42 TOPS 
27-Mar-1982 19:23:44 PA:< 

5763 

5765 


; SP.* 


; *,OLDSEC 


*,OLDCHN 

COMMAND,* 

LUN,* 

URDCNT,* 

PTR,* 

SECTOR,* 


; *,OLDSEC 
; OLDCHN,* 



F 3 
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OP T 3 DEFINITION OF OPTION 3 SEQ 0237 


10188 




;MLX4 





27-Mar-1982 

19:24:42 

TOPS 

10189 




0 


DEFINITION OF OPTION 3 



27-Mar-1982 

19:23:44 

PA: < 

10190 












10191 061550 

104456 




TRAP 

56 






10192 061552 

000465 




.WORD 

465 






10193 061554 

011202 




.WORD 

MSG4 






10194 061556 

000000 




.WORD 

0 






10195 061560 

016646 

000034 


23$: 

MOV 

34(SP).-(SP> 

# 

LUN,* 



5780 

10196 061564 

016746 

152552 



MOV 

BOARD. -(SP) 






10197 061570 

004767 

155626 



JSR 

PC. UP. HARD. COUNT 






10198 061574 

000427 




BR 

27$ 

0 




5774 

10199 061576 

032767 

000001 

120454 

24$: 

BIT 

#1.ERR0UT 

0 




5785 

10200 061604 

001415 




BEO 

26$ 






10201 061606 

104457 




TRAP 

57 






10202 061610 

000466 




.WORD 

466 






10203 061612 

011166 




.UORD 

MSG3 






10204 061614 

000000 




.WORD 

0 






10205 061616 

000410 




BR 

26$ 

0 




5787 

10206 061620 

032767 

000001 

120432 

25$: 

BIT 

fl.ERROUT 

• 




5793 

10207 061626 

001404 




BEQ 

26$ 






10208 061630 

104457 




TRAP 

57 






10209 061632 

000467 




.UORD 

467 






10210 061634 

011166 




.WORD 

MSG3 






10211 061636 

000000 




.WORD 

0 






10212 061640 

016646 

000034 


26$: 

MOV 

34(SP),-(SP) 

• 

0 

LUN,* 



5795 

10213 061644 

016746 

152472 



MOV 

BOARD. -(SP) 






10214 061650 

004767 

156230 



JSR 

PC, UP. SOFT. COUNT 






10215 061654 

022626 



27$: 

CMP 

(SP)+,(SP)+ 

• 

• 




5762 

10216 061656 

010200 



28$: 

MOV 

R2.R0 

• 

0 

URDCNT,* 



5801 

10217 061660 

006300 




ASL 

RO 






10218 061662 

066700 

151002 



ADD 

WPTR.RO 






10219 061666 

01006? 

150776 



MOV 

RO.WPTR 






10220 061672 

010216 




MOV 

R2.(SP> 

0 

WRDCNT,* 



5802 

10221 061674 

012746 

000400 



MOV 

#400, -(SP) 






10222 061700 

004767 

123264 



JSR 

PC,8L$DIV 






10223 061704 

060300 




ADD 

R3.R0 

0 

SECTOR.* 




10224 061706 

010003 




MOV 

R0.R3 

0 

*, SECTOR 




10225 061710 

062706 

000024 



ADD 

#24. SP 

• 

• 




5634 

10226 061714 

000167 

176332 



JMP 

5$ 

• 

0 




5633 

10227 061720 

032767 

000001 

120334 

29$: 

BIT 

#1,EFN$21 

0 




5813 

10228 061726 

001002 




BNE 

30$ 






10229 061730 

000167 

000440 



JMP 

40$ 






10230 061734 

016600 

000012 


30$: 

MOV 

12(SP),R0 

0 

LUN,* 



5820 

10231 061740 

006300 




ASL 

RO 






10232 061742 

016001 

034500 



MOV 

TOP. SECT (RO) ,R1 






10233 061746 

016005 

034460 



MOV 

LOW. SECT (RO) ,R5 

0 

*, SECTOR 




10234 061752 

000167 

000406 



JMP 

39$ 






10235 061756 

016646 

000012 


31$: 

MOV 

12(SP),-(SP) 

0 

LUN,* 



5822 

10236 061762 

012746 

000400 



MOV 

#400, -(SP) 






10237 061766 

012746 

022670 



MOV 

#RBUFF,-(SP) 






10238 061772 

010546 




MOV 

R5,-(SP) 

0 

SECTOR,* 




10239 061774 

004767 

163612 



JSR 

PC .READ 






10240 062000 

062706 

000010 



ADD 

#l6, SP 






10241 062004 

020027 

000005 



CMP 

R0.#5 






10242 062010 

001164 




BNE 

38i 







6 5 
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10244 

10245 

10246 

10247 

10248 

10249 

10250 

10251 

10252 

10253 

10254 

10255 

10256 

10257 

10258 

10259 

10260 
10261 
10262 

10263 

10264 

10265 

10266 

10267 

10268 

10269 

10270 

10271 

10272 

10273 

10274 

10275 

10276 

10277 

10278 

10279 

10280 
10281 
10282 

10283 

10284 

10285 

10286 

10287 

10288 

10289 

10290 

10291 

10292 

10293 

10294 

10295 

10296 

10297 

10298 


;MLX4 


062012 

062016 

062024 

062026 

062032 

062034 

062036 

062040 

062042 

062044 

062046 

062052 

062054 

062060 

062064 

062066 

062070 

062074 

062102 

062106 

062110 

062112 

062114 

062116 

062120 

062122 

062126 

062132 

062136 

062142 

062146 

062152 

062156 

062162 

062166 

062172 

062176 

062200 

062206 

062210 

062214 

062220 

062222 

062224 

062226 

062230 

062232 

062234 

062240 

062242 

062244 

062252 


004767 
032767 
001423 
01 7700 
006200 
006200 
006200 
006200 
006200 
006200 
042700 
010046 
012746 
012746 
010600 
104414 
062706 
017766 
017700 
006200 
006200 
006200 
006200 
006200 
006200 
042700 
010066 
012746 
016646 
016646 
012746 
016646 
016646 
004767 
062706 
020027 
001052 
027766 
001035 
016646 
017700 
006200 
006200 
006200 
006200 
006200 
006200 
042700 
020026 
001017 
032767 
001404 


155314 

000C01 120234 

152356 


177700 

006640 

000002 


000006 

152312 000022 32$: 
152302 


177700 

000016 

000001 

000030 

000016 

000400 

000034 

000034 

164036 

000014 

000005 

152206 000022 

000016 

152170 


177700 


000001 120006 


JSR 

DEFINITION OF OPTION 

PC. ISOLATE 

BIT 

#1,ERROUT 

BEO 

32$ 

MOV 

aML.REG + 42,R0 

ASR 

RO 

ASR 

RO 

ASR 

RO 

ASR 

RO 

ASR 

RO 

ASR 

RO 

BIC 

#1 77700.R0 

MOV 

RO.-(SP) 

MOV 

#FMT10B,-(SP) 

MOV 

#2.-(SP) 

MOV 

SP.RO 

TRAP 

1* 

ADD 

46. SP 

MOV 

9ML . REG+44 ,22 CSP) 

MOV 

8ML.REG+42.R0 

ASR 

RO 

ASR 

RO 

ASR 

RO 

ASR 

RO 

ASR 

RO 

ASR 

RO 

BIC 

#1 77700.R0 

MOV 

R0.16TSP) 

MOV 

#1.-(SP) 

MOV 

30(SP),-(SP) 

MOV 

16(SP) ,-(SP) 

MOV 

#400. -(SP) 

MOV 

34 (SP) .— ( SP) 

MOV 

34(SP),-(SP) 

JSR 

PC .RETRY 

ADD 

#14, SP 

CMP 

BNE 

CMP 

R0,#5 

35$ 

8ML.REG*44,22(SP) 

BNE 

34$ 

MOV 

16(SP) ,-(SP) 

MOV 

8ML.REG+42.R0 

ASR 

RO 

ASR 

RO 

ASR 

RO 

ASR 

RO 

ASR 

RO 

ASR 

RO 

BIC 

#1 77700.R0 

CMP 

RO,(SP)+ 

BNE 

34$ 

BIT 

#1 .ERROUT 

BEO 

33$ 


L 


SEO 0238 



27- Mar-1982 19:24:4 2 TOPS 
27-Mar-1982 19:23:44 PA:< 

5825 

5827 


; SP .* 

; *.OLDSEC 

; *.OLDCHN 

; COMMAND,* 
; LUN,* 

; PTR,* 

; OLDSEC,* 

; *, OLDSEC 
; OLDCHN.* 


5836 

5837 


S845 


5854 



5858 
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H 3 
PAGE 227 


SEG 0239 


10300 

103C1 

10302 

10303 

10304 

10305 

10306 

10307 

10308 

10309 

10310 

10311 

10312 

10313 

10314 

10315 

10316 

10317 

10318 

10319 

10320 

10321 

10322 

10323 

10324 

10325 

10326 

10327 

10328 

10329 

10330 

10331 

10332 

10333 

10334 

10335 

10336 

10337 

10338 

10339 

10 340 

10341 

10342 

10343 

10344 

10345 

10350 

10351 


062254 

062256 

062260 

062262 

062264 

062270 

062274 

062300 

062302 

062310 

062312 

062314 

062316 

062320 

062322 

062324 

062332 

062334 

062336 

062340 

062342 

062344 

062350 

062354 

062360 

062362 

062364 

062366 

062370 

062374 

062400 

062406 

062410 

062414 

062416 

062422 

062430 

062432 

062436 

062442 


104456 

000470 

011202 

000000 

016646 

016746 

004767 

000427 

032767 

001415 

104457 

000471 

011166 

000000 

000410 

032767 

001404 

104457 

000472 

011166 

000000 

016646 

016746 

004767 

022626 

005205 

020501 

101002 

000167 

005266 

026666 

002002 

000167 

005726 

005266 

026627 

003002 

000167 

062706 

000207 




;MLX4 



27-Mar-1982 

19:24:42 

TOPS 



0 


DEFINITION OF OPTION 3 

27-Mar-1982 

19:23:44 

PA:< 




TRAP 

56 

• 


5863 




.WORD 

470 







.WORD 

MSG4 







.WORD 

0 




000012 


33$: 

MOV 

12(SP).-(SP) 

; LUN.* 


5866 

152046 



MOV 

BOARD.- (SP) 




155122 



JSR 

PC. UP. HARD. COUNT 







BR 

37i 

• 


5854 

000001 

117750 

34$: 

BIT 

fl.ERROUT 

0 


5871 




BEG 

36$ 







TRAP 

57 

0 


5876 




.WORD 

471 







.WORD 

MSG3 







.WORD 

0 







BR 

36$ 

0 


5879 

000001 

117726 

35$: 

BIT 

#1 .ERROUT 

m 

0 


5885 




BEO 

36$ 







TRAP 

57 

0 


5890 




.WORD 

472 







.WORD 

MSG3 







.WORD 

0 




000012 


36$: 

MOV 

12(SP).-(SP) 

; LUN.* 


5893 

151766 



MOV 

BOARD. -(SP) 




155524 



JSR 

PC. UP. SOFT. COUNT 






37$: 

CMP 

(SP)+.(SP>* 

• 

0 


5824 



38$: 

INC 

R5 

; SECTOR 


5820 



39$: 

CMP 

R5.R1 

; SECTOR.* 






BHI 

40$ 




177362 



JMP 

31$ 




000012 


40$: 

INC 

12(SP) 

; LUN 


5620 

000012 

000014 

41$: 

CMP 

12(SP).14(SP) 

; LUN.* 






BGE 

42$ 




175524 



JMP 

2$ 






42$: 

TST 

(SP)* 



5617 

000026 



INC 

26 (SP) 

; COMP. FLAG 


5616 

000026 

000001 


CMP 

26CSP) ,#1 

; COMP. FLAG.* 






BGT 

43$ 




175454 



JMP 

IS 




000030 


43$: 

ADD 

*30. SP 

0 


5556 




RTS 

PC 





Routine Size: 63 7 words 
Maximum stack depth per invocation: 


37 words 


i 
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10353 

10354 

10355 

10356 

10357 

10358 

10359 

10360 

10361 

10362 

10363 

10364 

10365 

10366 

10367 

10368 

10369 

10370 

10371 

10372 

10373 

10374 

10375 

10376 

10377 

10378 

10379 

10380 

10381 

10382 

10383 

10384 

10385 

10386 

10387 

10388 

10389 

10390 

10391 

10392 

10393 

10394 

10395 

10396 

10397 

10398 

10399 

10400 

10401 

10402 

10403 

10404 

10405 

10406 

10407 


;MLX4 


5907 

5908 

5909 

5910 

5911 

5912 

5913 

5914 

5915 

5916 

5917 

5918 

5919 

5920 

5921 

5922 

5923 

5924 

5925 

5926 

5927 

5928 

5929 

5930 

5931 

5932 

5933 
5954 

5935 

5936 

5937 

5938 

5939 

5940 

5941 

5942 

5943 

5944 

5945 

5946 

5947 

5948 

5949 

5950 

5951 

5952 

5953 

5954 

5955 

5956 

5957 

5958 


DEFINITION OF OPTION 4 

Xsbtt l ’DEFINITION OF OPTION 4’ 
routine 0PT4 : novalue = 
begin 


27-Mar-1982 19:24:42 
2 7-Mar- 1982 19:23:44 


!* 1 * START OF ROUTINE 




ROUTINE: 0PT4 

PURPOSE: TO LOOK FOR INTEREACTIONS BETWEEN SECTORS 

USING A MARCH TEST. 

THE CODE IN BRIEF: 

BEGIN 1 (START OF ROUTINE) 

SAY ROUTINE IS RUNNING 
WORD COUNT = 256 
GENERATE A BUFFER OF DATA 
GENERATE A BUFFER OF COMP 

INITIALIZE POINTERS TO 4 BUFFERS FOR WRITE/READ DATA/COMP 
INCR LUN FROM 0 TO LAST 

BEGIN 2 (START OF LOGICAL UNIT SELECTION LOOP) 

TESTLOOP: 

BEGIN 3 (START OF LOOP THAT COMPLETELY TESTS 1 UNIT) 
IF UNIT IS ACTIVE 
THEN 

BEGIN 4 (START OF TEST FOR AN ACTIVE UNIT) 

INCR SECTOR FROM LOWEST TO HIGHEST 
BEGIN 4A (START OF 1ST SECTOR SELECTION LOOP) 
WRITE ’DATA* 

LOOK FOR ERRORS (IF DROP UNIT. LEAVE TESTLOOP) 

END 4A (END OF 1ST SECTOR SELECTION LOOP) 

CHOOSE WHETHER TO WRITE CHECK OR READ ’DATA* 

INCR SECTOR FROM LOWEST TO HIGHEST 
BEGIN 48 (START OF 2ND SECTOR SELECTION LOOP) 

DO THE WRITE CHECK OR READ OF ’DATA’ 

LOOK FOR ERRORS (IF DROP UNIT, LEAVE TESTLOOP) 
WRITE ’COM P' 

LOOK FOR ERRORS (IF DROP UNIT. LEAVE TESTLOOP) 

END 4B (END OF 2ND SECTOR SELECTION LOOP) 

CHOOSE WHETHER TO WRITE CHECK OR READ ’COMP' 

DECR SECTOR FROM HI6HEST TO LOWEST 
BEGIN 4C (START OF 3RD SECTOR SELECTION LOOP) 

DO THE WRITE CHECK OR READ OF ’COMP' 

LOOK FOR ERRORS (IF DROP UNIT, LEAVE TESTLOOP) 
WRITE DATA 

LOOK FOR ERRORS (IF DROP UNIT, LEAVE TESTLOOP) 

END 4C (END OF 3RD SECTOR SELECTION LOOP) 

CHOOSE WHETHER TO WRITE CHECK OR READ ’DATA* 

INCR SECTOR FROM LOWEST TO HIGHEST 
BEGIN 4D (START OF 4TH SECTOR SELECTION LOOP) 

DO THE WRITE CHECK OR READ OF ’DATA’ 

LOOK FOR ERRORS (IF DROP UNIT, LEAVE TESTLOOP) 

END 4D (END OF 4TH SECTOR SELECTION LOOP) 


T0PS-20 Bliss-16 V2 (21 2) 
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10409 ;MLX4 

10410 ; 

10411 

10412 ; 5959 

10413 ; 5960 

10414 ; 5961 

10415 ; 5962 

10416 ; 5963 

10417 ; 5964 

10418 ; 5965 

10419 ; 5966 

10420 ; 5967 

10421 ; 5968 

10422 ; 5969 

10423 ; 5970 

10424 ; 5971 

10425 ; 5972 

10426 ; 5973 

10427 ; 5974 

10428 ; 5975 

10429 ; 5976 

10430 ; 5977 

10431 ; 5978 

10432 ; 5979 

10433 ; 5980 

10434 ; 5981 

10435 ; 5982 

10436 ; 5983 

10437 ; 5984 

10438 ; 5985 

10439 ; 5986 

10440 ; 5987 

10441 ; 5988 

10442 ; 5989 

10443 ; 5990 

10444 ; 5991 

10445 ; 5992 

10446 ; 5993 

10447 ; 5994 

10448 ; 5995 

10449 ; 5996 

10450 ; 5997 

10451 ; 5998 

10452 ; 5999 

10453 ; 6000 

10454 ; 6001 

10455 ; 6002 

10456 ; 6003 

10457 ; 6004 

10458 ; 6005 

10459 ; 6006 

10460 ; 6007 

10461 ; 6008 

10462 ; 6009 

10463 ; 6010 


DEFINITION OF OPTION 4 

: : END 4 (END OF TEST FOR AN ACTIVE UNIT) 
; END 3 (END OF TESTLOOP) 

END 2 (END OF LOGICAL UNIT SELECTION LOOP) 
RETURN 

END 1 (END OF ROUTINE) 


label 

LOOP; 

local 

VALUE . 

OLDSEC, 

OLDCHN. 

PTR 

COMMAND. 

DBL VALUE, 

WDPTR, 

RDPTR, 

WCPTR, 

RCPTR; 

PRINTS (SAY2. WRD34. RTN4); 
! .-RUNNING 0PT4* 

GEN4 C.MARPAT. WDBUrF); 

GEN4 ((-.MARPAT), WCBUFF); 
WDPTR = WDBUFF; 

WCPTR = WCBUFF; 

RDPTR = RD8UFF; 

RCPTR = RC8UFF; 


27-Mar- 1982 19:24:4 2 
27-Mar-1982 19:23:44 
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PA:<NEALE>MLX4.BLI.5 (40) 


LOOP 


incr LUN from 0 to (.LSUNIT - 1) do 
begin 

begin 

if .DRIVE.STATUS C.LUNJ eql ACTIVE 
then 

begin 

LSLUN = .LUN; 

PRINTB (SAY1. WRD35); 

! ’MARCHING' 

PRINTB (FMT2. WRD24); 

J ’ UP' 


v/ersion czmlbb changed incr to incru 


! POINTER TO 256-WORD WRITE DATA BUFFER 
! POINTER TO 256-WORD WRITE COMP BUFFER 
.'POINTER TO 256-WORD READ DATA BUFFER 
! POINTER TO 256-WORD READ COMP BUFFER 


!* 2 * START OF LOGICAL UNIT SELECTION LOOP 

•* 3 * START OF THE LOOP THAT COMPLETELY TESTS 1 UNIT 

!* 4 * START OF TEST FOR AN ACTIVE UNIT 


incru SECTOR from LOWEST to HIGHEST do 

begin 4A * START OF 1ST SECTOR SELECTION LOOP 

VALUE = write (.LUN, 256, .WDPTR, .SECTOR); 



CZMLBBO 
!OPT3 DEF 

10465 

10466 

10467 

10468 

10469 

10470 

10471 

10472 

10473 

10474 

10475 

10476 

10477 

10478 

10479 

10480 

10481 

10482 

10483 

10484 

10485 

10486 

10487 

10488 

10489 

10490 

10491 

10492 

10493 

10494 

10495 

10496 

10497 

10498 

10499 

10500 

10501 

10502 

10503 

10504 

10505 

10506 

10507 

10508 

10509 

10510 

10511 

10512 

10513 

10514 

10515 

10516 

10517 

10518 

10519 
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SEQ 0242 


MLX4 


6011 

6012 

6013 

6014 

6015 

6016 

6017 

6018 

6019 

6020 
6021 
6022 

6023 

6024 

6025 

6026 

6027 

6028 

6029 

6030 

6031 

6032 

6033 

6034 

6035 

6036 

6037 

6038 

6039 

6040 

6041 

6042 

6043 

6044 

6045 

6046 

6047 

6048 

6049 

6050 

6051 

6052 

6053 

6054 

6055 

6056 

6057 

6058 

6059 

6060 
6061 
6062 


DEFINITION OF OPTION 4 
!♦ 
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SEE HOU SUCCESSFUL THE WRITE WAS: 


selectone .VALUE of 
set 


.'SEE 'SYSERR' FOR DEFINITION 
I OF ERROR M CONTAINED IN ’VALUE' 


m 


begin 


!* 4A1 * 


RETRY ALLOWED 


if RETRY (SIX, write, .LUN, 256, .WDPTR, .SECTOR) neq 0 
then ! THE RETRY FAILED — SYSTEM FATAL ERI 

begin 

WHY DROPT C.LUNJ = C0DE.4; 

ERRBf (401, MSG1 , 0); .'**** OPTION 4 ERROR 01 **** 

DODU (.LUN); 

leave LOOP; !JUMP JUST BEYOND END OF BLOCK * 3 * 

end; 


end; 


!* 4A1 * 


[23 : 

begin !* 4A2 * 

WHY DROPT C. LUN3 = C0DE.5; 

ERR0F (402, MSG1 , 0); !**** OPTION 4 ERROR 02 **** 

DODU (.LUN); 

leave LOOP; !JUMP JUST BEYOND END OF BLOCK * 3 * 

end; !* 4A2 * 


FATAL CONTROLLER ERROR — NO RETRY ALLOWED 


C33 


begin !* 4A3 * FATAL DRIVE ERROR — NO RETRY ALLOWED 

ERRDF (403, MSG1, 0); !•*** OPTION 4 ERROR 03 **** 

WHY DROPT L.LUN3 = C0DE.6; 

DODO (.LUN); 

leave LOOP; IJUMP JUST BEYOND END OF BLOCK * 3 * 

end; !* 4A3 * 


tes; 

end; 

PRINTS (FMT2, WRD24); 
! ' UP’ 

COMMAND = CHOOSE (); 


version czmlbb changed incr to incru 

incru SECTOR from LOWEST to HIGHEST do 

begin !* 4B * 

if .COMMAND eql read 
then 


!* 4A * END OF 1ST SECTOR SELECTION LOOP 


START OF 2ND SECTOR SELECTION LOOP 


cz> 

OP1 


1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 ‘ 

1 

r 

r 

r 

v 

r 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 
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SEQ 0243 


10521 

10522 

10523 

10524 

10525 

10526 

10527 

10528 

10529 

10530 

10531 

10532 

10533 

10534 

10535 

10536 

10537 

10538 

10539 

10540 

10541 

10542 

10543 

10544 

10545 

10546 

10547 

10548 

10549 

10550 

10551 

10552 

10553 

10554 

10555 

10556 

10557 

10558 

10559 

10560 

10561 

10562 

10563 

10564 

10565 

10566 

10567 

10568 

10569 

10570 

10571 

10572 

10573 

10574 

10575 


MLX4 


DEFINITION OF OPTION 4 
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6063 

6064 

6065 

6066 

6067 

6068 

6069 

6070 

6071 

6072 

6073 

6074 

6075 

6076 

6077 

6078 

6079 

6080 
6081 
6082 

6083 

6084 

6085 

6086 

6087 

6088 

6089 

6090 

6091 

6092 

6093 

6094 

6095 

6096 

6097 

6098 

6099 

6100 
6101 
6102 

6103 

6104 

6105 

6106 

6107 

6108 

6109 

6110 
6111 
6112 

6113 

6114 


else 


begin 

PT$ s RDPTR* 

VALUE = read* (.LUN, 256, .PTR. .SECTOR); 
end 

I 

begin 

PTR = .WDPTR; 

VALUE = CHECK (.LUN, 256, .PTR, .SECTOR); 
end; 


'♦ 


I — 


SEE HOU SUCCESSFUL THE OPERATION WAS: 


selectone .VALUE of 
set 


.'SEE 'SYSERR' FOR DEFINITION 
•OF ERROR * CONTAINED IN 'VALUE' 


[03 


if .COMMAND eql read 
then 

begin 

if (D8L. VALUE = DOUBLE.CHECK (.WDPTR. .RDPTR, 256)) neq 0 
then 

begin 

SAYWHO (.LUN); 

PRINT8 (SAY1, MSG5); 

!'ECC LOGIC FAILED TO DETECT DATA ERROR' 

PRINTS (FMT12A. ..D8L VALUE. .DBL VALUE) ; 

! ' GOOD DATA: XXXXXX AT LOCATION YVYYYY’ 

DBL VALUE = .DBL.VALUE + BUF SI 2*2: 

PRlflTB (FHT128, ..DBL VALUE, .DBL VALUE); 

! 'BAD DATA: PPPPPP AT LOCATION O0QOQQ' 

WHY DROPT C.LUN3 = C0DE.8; 

ERR0F (404, MSG1 , 0); !*•** OPTION 4 ERROR 04 **** 

DODU (.LUN); 

.'JUMP JUST BEYOND END OF BLOCK * 4 * 


leave LOOP; 
end; 


end; 


C13 


begin 


!* 481 * 


RETRY ALLOWED 


if RETRY (SIX, .COMMAND, .LUN, 256. .PTR. .SECTOR) neq 0 
then ! THE RETRY FAILED — SYSTEM FATAL ERROR 

begin 

WHY DROPT [.LUN3 = C0DE.4; 

ERRPF (405, MSG1 . 0); !*«** OPTION 4 ERROR 05 **** 

DODU (.LUN); 

leave LOOP; !JUMP JUST BEYOND END OF BLOCK * 3 * 
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10577 

10578 

10579 

10580 

10581 

10582 

10583 

10584 

10585 

10586 

10587 

10588 

10589 

10590 

10591 

10592 

10593 

10594 

10595 

10596 

10597 

10598 

10599 

10600 
10601 
1060? 

10603 

10604 

10605 

10606 

10607 

10608 

10609 

10610 
10611 
10612 

10613 

10614 

10615 

10616 

10617 

10618 

10619 

10620 
10621 
10622 

10623 

10624 

10625 

10626 

10627 

10628 

10629 

10630 

10631 
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6115 

6116 

6117 

6118 

6119 

6120 
6121 
6122 

6123 

6124 

6125 

6126 

6127 

6128 

6129 

6130 

6131 

6132 

6133 

6134 

6135 

6136 

6137 

6138 

6139 

6140 

6141 

6142 

6143 

6144 

6145 

6146 

6147 

6148 

6149 

6150 

6151 

6152 

6153 

6154 

6155 

6156 

6157 

6158 

6159 

6160 
6161 
6162 

6163 

6164 

6165 

6166 
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C23 : 
begin 


!* 4B1 * 


begin ! * 482 * ^aial cun inuLLtK tHKUK — nu Nt i nt all 

WHY DROPT [.LUN] = CODE 5; 

ERRBF (406, MSG1 , 0); .'**** OPTION 4 ERROR 06 **** 

DODU (.LUN); 

leave LOOP; IJUMP JUST BEYOND END OF BLOCK * 3 * 

end; ! * 4B2 * 

C3J : 

begin 483 * FATAL DRIVE ERROR — NO RETRY ALLOWED 

ERRDF (407, MSG1 , 0); .'**** OPTION 4 ERROR 07 **** 

WHY DROPT L.LUN] = C0DE.6; 

DODO (.LUN); 

leave LOOP; JJUMP JUST BEYOND END OF BLOCK * 3 * 

end; I* 4B3 * 


FATAL CONTROLLER ERROR — NO RETRY ALLOWED 


[4] : 

begin i * 484 * UNRECOVERABLE DATA ERROR 

ISOLATE (); 

ERRDF (408, MSG2, 0); !•*** OPTION 4 ERROR 08 **** 

WHY DROPT L.LUN] = C0DE.7; 

DODO (.LUN); 

leave LOOP; !JUMP JUST BEYOND END OF BLOCK * 3 * 

end; !* 484 * 


L5] : 
begin 

ISOLATE (); 


!* 485 * 


RECOVERABLE DATA ERROR 


if .ERROUT then PRINTB (FMT108, .CHAN); 

BIT 00’ 

OLDSEC = .MLEL; 

OLDCHN = .CHAN; 

if RETRY (ONE, .COMMAND, .LUN, 256, .PTR, .SECTOR) eql 5 
then 

if ((.MLEL eql .OLDSEC) and (.CHAN eql .OLDCHN)) 
then 

begin 

if .ERROUT then ERRHRD (409, MSG4, 0); !**•* OPTION 4 ERROR 09 **•* 

UP HARD COUNT (.LUN. .80ARD); 
end 

else 

begin 
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SEQ 0245 


10633 

;MLX4 

10634 

10635 

10636 

6167 

10637 

6168 

10638 

6169 

10639 

6170 

10640 

6171 

10641 

6172 

10642 

6173 

10643 

6174 

10644 

6175 

10645 

6176 

10646 

6177 

10647 

6178 

10648 

6179 

10649 

6180 

10650 

6181 

10651 

6182 

10652 

6183 

10653 

6184 

10654 

6185 

10655 

6186 

10656 

6187 

10657 

6188 

10658 

6189 

10659 

6190 

10660 

6191 

10661 

6192 

10662 

6193 

10663 

6194 

10664 

6195 

10665 

6196 

10666 

6197 

10667 

6198 

10668 

6199 

10669 

6200 

10670 

6201 

10671 

6202 

10672 

6203 

10673 

6204 

10674 

6205 

S§K rj 'AW 

6206 

BEi /,w 

6207 

pin iv 7M 

6208 


6209 

wSm «v 2*9 

6210 

@9 i;.‘ .Til 

6211 

10681 

6212 

10682 

6213 

10683 

6214 

10684 

6215 

10685 

6216 

10686 

6217 

10687 

6218 
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if .ERROUT then ERRSOFT (410, MSG3, 0); ***** OPTION 4 ERROR 10 **** 

UP SOFT ..COUNT (.LUN, .BOARD); 
en3 


else 


begin 

if .ERROUT then ERRSOFT (411, MSG3, 0); 

UP SOFT.COUNT (.LUN, .BOARD); 
en3; 

end; !* 4B5 * 

tes; 

VALUE = write (.LUN, 256, .UCPTR, .SECTOR); 

+ SEE HOW SUCCESSFUL THE WRITE WAS: 


1**** OPTION 4 ERROR 11 ***• 


selectone .VALUE of 
set 

m : 

begin 


i SEE 'SYSERR' FOR DEFINITION 
.'OF ERROR # CONTAINED IN 'VALUE' 


i* 4B6 * 


RETRY ALLOWED 


if RETRY (SIX, write. .LUN, 256, .WCPTR. .SECTOR) neg 0 

RY FAILED — SYSTEM FAT, 

!**** OPTION 4 ERROR 12 **** 


;q 0 

then .'THE RETRY FAILED — SYSTEM FATAL ERROR 

begin 

WHY DROP T C.LUN3 = C0DE.4; 


ERR BF (412. MSG1, 0); 

DODU (.LUN); 

leave LOOP; .'JUMP JUST BEYOND END OF BLOCK * 3 * 

end; 


end; 


•* 4B6 * 


C2J : 

begin !* 4B7 * 

WHY DROPT C.LUN] = CODE.5; 

ERRDF (413. MS61. 0); !**•* OPTION 4 ERROR 13 **** 

DODU (.LUN); 

leave LOOP; 1JUMP JUST BEYOND END OF BLOCK * 3 * 

end; !* 48 7 * 


FATAL CONTROLLER ERROR — NO RETRY ALLOWED 


C3J 


begin !* 4B8 * FATAL DRIVE ERROR — NO RETRY ALLOWED 

ERRDF (414. MSG1, 0); !**** OPTION 4 ERROR 14 **** 

WHY DROPT C.LUN3 = C0DE.6; 
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SEQ 0246 


10689 

10690 

10691 

10692 

10693 

10694 

10695 

10696 

1069 7 

10698 

10699 

10700 

10701 

10702 

10703 

10704 

10705 

10706 

10707 

10708 

10709 

10710 

10711 

10 7 12 

10713 

10714 

10715 

10716 

10717 

10718 

10719 

10720 

10721 

10722 

10723 

10724 

10725 

10726 

10727 

10728 

10729 

10730 

10731 

10732 

10733 

10734 

10735 

10736 

10737 

10738 

10739 

10740 

10741 

10742 

10743 
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6219 

6220 
6221 
6222 

6223 

6224 

6225 

6226 

6227 

6228 

6229 

6230 

6231 

6232 

6233 

6234 

6235 

6236 

6237 

6238 

6239 

6240 

6241 

6242 

6243 

6244 

6245 

6246 

6247 

6248 

6249 

6250 

6251 

6252 

6253 

6254 

6255 

6256 

6257 

6258 

6259 

6260 
6261 
6262 

6263 

6264 

6265 

6266 

6267 

6268 

6269 

6270 


tes; 


DODU (.LUN); 
leave LOOP; 
end; 


.'JUMP JUST BEYOND END OF BLOCK * 3 * 
! * 4B8 * 


end; 


!* 4B * END OF 2ND SECTOR SELECTION LOOP 


PRINTS (FMT2. WRD25); 

! * DOWN' 

COMMAND = CHOOSE (); 
deer SECTOR from HIGHEST to LOWEST do 


begin 


•* 4C * START OF 3RD SECTOR SELECTION LOOP 


if .COMMAND eql read 
then 

begin 

PTR = RCPTR" 

VALUE read* (.LUN. 256, .PTR, .SECTOR); 
end 

else 

begin 

PTR = WCPTR* 

VALUE = CHECK (.LUN, 256, .PTR, .SECTOR); 
end; 


SEE HOW SUCCESSFUL THE OPERATION WAS: 


selectone .VALUE of 
set 


! SEE 'SYSERR' FOR DEFINITION 
•OF ERROR # CONTAINED IN 'VALUE' 


[03 : 


if .COMMAND eql read 
then 

begin 

if (DBL VALUE = DOUBLE CHECK (.WCPTR, .RCPTR. 256)) neq 0 
then 

begin 

SAYWHO (.LUN); 

PRINTB (SAYl , MSG5); 

i'ECC LOGIC FAILED TO DETECT DATA ERROR* 

PRINTB (FMT12A, ..DBL.VALUE, .DBl VALUE); 

! 'GOOD DATA: XXXXXX AT LOCATION yVYYYY' 

DBL VALUE = .DBL. VALUE ♦ 3UFSI2*2; 

PRIWTB (FMT12B, ..DBL VALUE, .DBl VALUE); 

."BAD DATA: PPPPPP AT LOCATION OQOQOQ' 

WHY DROPT C.LUNJ = C0DE.8; 

ERRDF (415, MSG1 , 0); !**** OPTION 4 ERROR 15 **** 
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10745 

10746 

10747 

10748 

10749 

10750 

10751 

10752 

10753 

10754 

10755 

10756 

10757 

10758 

10759 

10760 

10761 

10762 

10763 

10764 

10765 

10766 

10767 

10768 

10769 

10770 

10771 

10772 

10773 

10774 

10775 

10776 

10777 

10778 

10779 

10780 

10781 

10782 

10783 

10784 

10785 

10786 

10787 

10788 

10789 

10790 

10791 

10792 

10793 

10794 

10795 

10796 

10797 

10798 

10799 
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6271 

6272 

6273 

6274 

6275 

6276 

6277 

6278 

6279 

6280 
6281 
6282 

6283 

6284 

6285 

6286 

6287 

6288 

6289 

6290 

6291 

6292 

6293 

6294 

6295 

6296 

6297 

6298 

6299 

6300 

6301 

6302 

6303 

6304 

6305 

6306 

6307 

6308 

6309 

6310 

6311 

6312 

6313 

6314 

6315 

6316 

6317 

6318 

6319 

6320 

6321 

6322 


SEO 0247 


27-Mar-19R2 19:24:42 
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DODU (.LUN); 
leave LOOP- 
end; 


.'JUMP JUST BEYOND END OF BLOCK * 4 * 


end; 


m 


begin 


! * 4C1 * 


RETRY ALLOWED 


if RETRY (SIX, .COMMAND, .LUN, 256. .PTR, .SECTOR) neq 0 
then .'THE RETRY FAILED — SYSTEM FATAL ERROR 

begin 

WHY PROPT C.LUN3 = C0DE.4; 

ERRPF (416. MSG1 , 0); !•*** OPTION 4 ERROR 16 **** 

DODU (.LUN); 

leave LOOP; .'JUMP JUST BEYOND END OF BLOCK * 3 * 

end; 


end; 


! * 4C1 * 


C23 


be^in 


4C2 * 

WHT DROPT C.LUN3 = C0DE.5; 

ERRBF (417. MSG1 , 0); !**•* OPTION 4 ERROR 17 **** 

DODU (.LUN); 

leave LOOP; .'JUMP JUST BEYOND END OF BLOCK * 3 * 

end; !* 4C2 * 


FATAL CONTROLLER ERROR — NO RETRY ALLOWED 


C33 


!* 4C3 * 


FATAL DRIVE ERROR — NO RETRY ALLOWED 


begin 

ERRDF (418. MSG1, 0); !*•** OPTION 4 ERROR 18 **** 

WHY DROPT C.LUN3 = C0DE.6; 

DODO (.LUN); 

leave LOOP; IJUMP JUST BEYOND END OF BLOCK * 3 * 

end; 4C3 * 


C43 


4C4 * 


UNRECOVERABLE DATA ERROR 


begin 

ISOLATE (); 

ERRDF (419. MSG2, 0); ***** OPTION 4 ERROR 19 **** 

WHY DROPT C.LUN3 = C0DE_7; 

DODO (.LUN); 

leave LOOP; IJUMP JUST BEYOND END OF BLOCK * 3 * 

end; I* 4C4 * 


C53 


begin 

ISOLATE (); 


4C5 * 


RECOVERABLE DATA ERROR 


if .ERROUT then PRINTS (FMT10B, .CHAN); 
! * BIT QO* 
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SEQ 0248 


10801 

10802 

10803 

10804 

10805 

10806 

10807 

10808 

10809 

10810 
10811 
10812 

10813 

10814 

10815 
■* J816 

10817 

10818 

10819 

10820 
10821 
10822 

10823 

10824 

10825 

10826 

10827 

10828 

10829 

10830 

10831 

10832 

10833 

10834 

10835 

10836 

10837 

10838 

10839 

10840 

10841 

10842 

10843 

10844 

10845 

10846 

10847 

10848 

10849 

10850 

10851 

10852 

10853 

10854 

10855 
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6323 

6324 

6325 

6326 

6327 

6328 

6329 

6330 

6331 

6332 

6333 

6334 

6335 

6336 

6337 

6338 

6339 

6340 

6341 

6342 

6343 

6344 

6345 

6346 

6347 

6348 

6349 

6350 

6351 

6352 

6353 

6354 

6355 

6356 

6357 

6358 

6359 

6360 

6361 

6362 

6363 

6364 

6365 

6366 

6367 

6368 

6369 

6370 

6371 

6372 

6373 

6374 


OLDSEC = .MLEL; 
OLDCHN = .CHAN; 


if RETRY (ONE. .COMMAND. .LUN. 256. .PTR, .SECTOR) eql 5 
then 

if ((.MLEL eql .OLDSEC) and (.CHAN eql .OLDCHN)) 
then 

begin 

if .ERROUT then ERRHRD (420. MSG4. 0); !***• OPTION 4 ERROR 20 **** 

UP HARD.COUNT (.LUN. .BOARD); 
end 

begin 

if .ERROUT then ERRSOFT (421. MSG3. 0); !***• OPTION 4 ERROR 21 ***• 

UP SOFT.COUNT (.LUN. .BOARD); 
en3 


else 


else 


begin 

if .ERROUT then ERRSOFT (422. MSG3. 0); 

UP SOFT.COUNT (.LUN, .BOARD); 
en3; 


!♦*** OPTION 4 ERROR 22 **** 


end; 


! * 4C5 * 


tes; 

VALUE = write (.LUN. 256, .UDPTR. .SECTOR); 
+ SEE HOW SUCCESSFUL THE WRITE WAS: 


selectone .VALUE of 
set 

[13 : 
begin 


! SEE 'SYSERR' FOR DEFINITION 
! OF ERROR # CONTAINED IN 'VALUE* 


then 


begin 


!* 4C6 * RETRY ALLOWED 

N, 256. 

THE RETRY FAILED — SYSTEM FATAL ERROR 


if RETRY (SIX, write. .IUN, 256, .WDPTR, .SECTOR) neg 0 

ETRY FAILED — SYSTEM F~ 

WH? DROPT C.LUN3 = C0DE.4; 


ERRBF (423. MSG1 , 0); !»*** OPTION 4 ERROR 23 **** 

DODU (.LUN); 

leave LOOP; .'JUMP JUST BEYOND END OF BLOCK * 3 * 
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SEQ 0249 


10857 

10858 

10859 

10860 
10861 
10862 

10863 

10864 

10865 

10866 

10867 

10868 

10869 

10870 

10871 

10872 

10873 

10874 

10875 

10876 

10877 

10878 

10879 

10880 
10881 
10882 

10883 

10884 

10885 
1<T<86 

10887 

10888 

10889 

10890 

10891 

10892 

10893 

10894 

10895 

10896 

10897 

10898 

10899 

10900 

10901 

10902 

10903 

10904 

10905 

10906 

10907 

10908 

10909 

10910 

10911 
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6375 

6376 

6377 

6378 

6379 

6380 

6381 

6382 

6383 

6384 

6385 

6386 

6387 

6388 

6389 

6390 

6391 

6392 

6393 

6394 

6395 

6396 

6397 

6398 

6399 

6400 

6401 

6402 

6403 

6404 

6405 

6406 

6407 

6408 

6409 

6410 

6411 

6412 

6413 

6414 

6415 

6416 

6417 

6418 

6419 

6420 

6421 

6422 

6423 

6424 

6425 

6426 


end; 


end; 

C23 : 

begin 


!* 4C6 * 


begin , 

WHY DROPT C.LUN3 = C0DE.5; 

m K V *■ t I "S » A \ l . 


!* 4C7 * 


FATAL CONTROLLER ERROR — NO RETRY ALLOWED 


wni vnur » l.luhj - 

ERRDF (424. MSG1 , 0); .'**** OPTION 4 ERROR 24 **** 

DODU (.LUN); 

leave LOOP; !JUMP JUST BEYOND END OF BLOCK * 3 * 

end; !* 4C7 * 

T33 ■ 

begin !* 4C8 * FATAL DRIVE ERROR — NO RETRY ALLOWED 

ERRDF (425. MSG1 , 0); .'**** OPTION 4 ERROR 25 **** 

WHY DROPT L.LUN3 = C0DE.6; 

DODO (.LUN); 

leave LOOP; !JUMP JUST BEYOND END OF BLOCK * 3 * 

end; !* 4C8 * 

tes; 


end; 

PRINTS (FMT2. WRD24); 

.. UP . 

COMMAND = CHOOSE (>; 


!* 4C * END OF 3RD SECTOR SELECTION LOOP 


version czmlbb changed incr to incru 

incru SECTOR from LOWEST to HIGHEST do 

begin !* 4D * START OF 4TH SECTOR SELECTION LOOP 

if .COMMAND eql read 
then 

begin 

PTR = RDPTR * 

VALUE = read* (.LUN. 256, .PTR. .SECTOR); 
end 

else 

begin 

PTR = .WDPTR; 

VALUE = CHECK (.LUN, 256, .PTR. .SECTOR); 
end; 

SEE HOW SUCCESSFUL THE OPERATION WAS: 


selectone .VALUE of 
set 


JSEE 'SYSERR' FOR DEFINITION 
.'OF ERROR # CONTAINED IN 'VALUE* 
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SEQ 0250 


10913 

10914 

10915 

10916 

10917 

10918 

10919 

10920 

10921 

10922 

10923 

10924 

10925 

10926 

10927 

10928 

10929 

10930 

10931 

10932 

10933 

10934 

10935 

10936 

10937 

10938 

10939 

10940 

10941 

10942 

10943 

10944 

10945 

10946 

10947 

10948 

10949 

10950 

10951 

10952 

10953 

10954 

10955 

10956 

10957 

10958 

10959 

10960 

10961 

10962 

10963 

10964 
109u5 

10966 

10967 


MLX4 


6427 

6428 

6429 

6430 

6431 

6432 

6433 

6434 

6435 

6436 

6437 

6438 

6439 

6440 

6441 

6442 

6443 

6444 

6445 

6446 

6447 

6448 

6449 

6450 

6451 

6452 

6453 

6454 

6455 

6456 

6457 

6458 

6459 

6460 

6461 

6462 

6463 

6464 

6465 

6466 

6467 

6468 

6469 

6470 

6471 

6472 

6473 

6474 

6475 

6476 

6477 

6478 
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if .COMMAND eql read 
then 

begin 

if (DBL.VALUE = DOUBLE. CHECK (.WDPTR, .RDPTR, 256>> neq 0 
then 

begin 

SAYWHO (.LUN); 

PRJNT8 (SAY1, MSG5); 

."ECC LOGIC FAILED TO DETECT DATA ERROR' 

PRINTS (FMT12A. . .DBL VALUE. .DBL.VALUE); 

! ' GOOD DATA: XXXXXX AT LOCATION YVyYYY' 

DBL VALUE = .DBL. VALUE ♦ BUFSIZ*2; 

PR 119TB (FMT12B. ..DBL VALUE. .DBL VALUE); 

."BAD DATA: PPPPPP AT LOCATION OBOQQO' 

WHY DROPT C.LUNj * C0DE.8; 

ERRUF (426, MSG1, 0); I**** OPTION 4 ERROR 26 **** 

DODU (.LUN); 

•JUMP JUST BEYOND END OF BLOCK * 4 * 


leave LOOP; 
end; 


end; 


Cl 3 


begin 


!* 4D1 * 


RETRY ALLOWED 


if RETRY (SIX. .COMMAND, .LUN. 256. .PTR. .SECTOR) neq 0 
then iTHE RETRY FAILED — SYSTEM FATAL ERROR 


!***• OPTION 4 FRROR 27 **** 


begin 

WHY DROPT [.LUN] = C0DE.4; 

ERRDF (427. MSG1. 0); 

DODU (.LUN); 

leave LOOP; 'JUMP JUST BEYOND END OF BLOCK * 3 * 

end; 


end; 


!* 4D1 * 


C2J 


begin 

WHY DROPT C.LUN3 = C0DE.5; 


ERR&F (428. MSG1. 0); 
DODU (.LUN); 
leave LOOP; 
end; 


[* 4D2 * FATAL CONTROLLER ERROR — NO RETRY ALLOWED 

<;*** OPTION 4 ERROR 28 **** 


1JUMP JUST BEYOND END OF BLOCK * 3 * 
!* 4D2 * 


[33 


** 4D3 * FATAL DRIVE ERROR — NO RETRY ALLOWED 

(429. MSG1, 0); !***• OPTION 4 ERROR 29 **** 

WHY DROPT [.LUN] = C0DE.6; 

DODO (.LUN); 


begin 

ERRDF 
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10969 

10970 

10971 

10972 

10973 

10974 

10975 

10976 

10977 

10978 

10979 

10980 

10981 

10982 

10983 

10984 

10985 

10986 

10987 

10988 

10989 

10990 

10991 

10992 

10993 

10994 

10995 

10996 

10997 

10998 

10999 

11000 
11001 
11002 

11003 

11004 

11005 

11006 

11007 

11008 

11009 

11010 
non 
11012 

11013 

11014 

11015 

11016 

11017 

11018 

11019 

11020 
11021 
11022 
1 f 023 
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6479 

6480 

6481 

6482 

6483 

6484 

6485 

6486 

6487 

6488 

6489 

6490 

6491 

6492 

6493 

6494 

6495 

6496 

6497 

6498 

6499 

6500 

6501 

6502 

6503 

6504 

6505 

6506 

6507 

6508 

6509 

6510 

6511 

6512 

6513 

6514 

6515 

6516 

6517 

6518 

6519 

6520 

6521 

6522 

6523 

6524 

6525 

6526 

6527 

6528 

6529 

6530 
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leave LOOP; 
end; 


! JUMP JUST BEYOND END OF BLOCK * 3 * 
! * 4D3 * 


UNRECOVERABLE DATA ERROR 


C43 : 

begin ! * 4D4 * 

ISOLATE (); 

ERRDF (430. HSG2, 0); !*•** OPTION 4 ERROR 30 ***** 

4HY DROPT L.LUNJ = CODE 7; 

DODO (.LUN); 

leave LOOP; .'JUMP JUST BEYOND END OF BLOCK * 3 * 

end; .'* 4D4 * 


C5J : 

begin 

ISOLATE (); 


! * 4D5 * 


RECOVERABLE DATA ERROR 


if .ERROUT then PRINTS (FMT10B, .CHAN); 

! * BIT QQ* 

OLDSEC = .ML EL; 

OLDCHN = .CHAN; 

if RETRY (ONE, .COMMAND. .LUN. 256, .PTR, .SECTOR) eql 5 
then 

if ((.MLEL eql .OLDSEC) and (.CHAN eql .OLDCHN)) 
then 

begin 

if .ERROUT then ERRHRD (431. MSG4, 0); !**•* OPTION 4 ERROR 31 **** 


else 


UP HARD. COUNT (.LUN. .BOARD); 
end 

f 

begin 

if .ERROUT then ERRSOFT (432, MSG3, 0); .'**** OPTION 4 ERROR 32 **** 


UP SOFT.COUNT (.LUN, .BOARD); 
end 


else 


tes; 


end; 


begin 

if .ERROUT then ERRSOFT (433. MSG3, 0); 

UP SOFT COUNT (.LUN, .BOARD); 
en9; 

!* 4D5 * 


***** OPTION 4 ERROR 33 **** 
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11025 

11026 

11027 

11028 

11029 

11030 

11031 

11032 

11033 

11034 

11035 

11036 

11037 

11038 

11039 

11040 

11041 

11042 

11043 

11044 

11045 

11046 

11047 

11048 

11049 

1 1050 

11051 

11052 

11053 

11054 

11055 

11056 

11057 

11058 

11059 

11060 
11061 
11062 

11063 

11064 

11065 

11066 

11067 

11068 

11069 

11070 

11071 

11072 

11073 

11074 

11075 

11076 

11077 

11078 

11079 
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6531 

6532 

6533 

6534 

6535 

6536 

6537 

6538 

6539 

6540 

6541 

6542 

6543 

6544 

6545 

6546 

6547 

6548 

6549 

6550 

6551 

6552 

6553 

6554 

6555 

6556 

6557 

6558 

6559 

6560 

6561 

6562 

6563 

6564 

6565 

6566 

6567 

6568 

6569 

6570 

6571 

6572 

6573 

6574 

6575 

6576 

6577 

6578 

6579 

6580 

6581 

6582 
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end; 

end; 
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4D * END OF 4TH SECTOR SELECTION LOOP 

4 * END OF TEST FOR AN ACTIVE UNIT 


Test to see if this uut’s address space is 
to be read for soft errors. This test is 
is intended for DMT purposes. 


if .EFNS21 !Is the background pattern to be read 

then 

begin 


! version czmlbb changed incr to incru 

incru SECTOR from LOUEST to HIGHEST do 

if read (.LUN. 256. RBUFF , .SECTOR) eql 5 
then 

begin 

ISOLATE (); Ifind the failing bank and board no. 

if .ERROUT then PRINTS (FMT108, .CHAN); 

! Print where the error is 

I 

I Save the contents of the ML error Location 
! register so we can compare it to the new 
! contents of this register after the retry. 

! This is done to classify the error. 

OLDSEC = .MLEL; 

OLDCHN = .CHAN; 

t 

! Do a classify retry call. If the same error 
occures then classify it as a hard error. If 
! a different error occured or the error went away 
! then classify it as a soft error. 


if RETRY (ONE. .COMMAND. .LUN. 256. .PTR, .OLDSEC) eql 5 
then 

I 

! The same error occured so see if it is at the same 
! sector and channel number, if so then classify 
! it as a hard error else classiy it as a soft 
! error. 


if ( (.MLEL eql .OLDSEC) and (.CHAN eql .OLDCHN)) 


SEQ 0252 



CZMLBBO PERFORMANCE EXERCISER 
OPT3 DEFINITION OF OPTION 3 


MACRO Ml 11 3 29-MAR-82 13:41 PAGE 


I 4 
241 


SEQ 0253 


11081 

11082 

11083 

11084 

11085 

11086 

11087 

11088 

11089 

11090 

11091 

11092 

11093 

11094 

11095 

11096 

11097 

11098 

11099 

11100 
11101 
11102 

11103 

11104 

11105 

11106 

11107 

11108 

11109 

11110 
11111 
11112 

11113 

11114 

11115 

11116 

11117 

11118 

11119 

11120 
11121 
11122 

11123 

11124 

11125 

11126 

11127 

11128 

11129 

11130 

11131 

11132 

11133 
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6583 

6584 

6585 

6586 

6587 

6588 
P 6589 
P 6590 

6591 

6592 

6593 

6594 

6595 

6596 

6597 

6598 

6599 

6600 
6601 

P 6602 
P 6603 

6604 

6605 

6606 

6607 

6608 

6609 

6610 
6611 
6612 

6613 

6614 

6615 
P 6616 
P 6617 

6618 

6619 

6620 
6621 
6622 

6623 

6624 

6625 

6626 

6627 

6628 

6629 

6630 

6631 

6632 


then 


begin 

if .ERROUT 
then 

begin 

ERRHRD (434. 
MSG4. 

0 ); 

end; 


.‘Same error oc cured ’hard' 
IPrint error if enabled 


.'Error number 
! Error message 
IAdditional message routine 


else 


UP HARD. COUNT (.LUN. .BOARD); 
en3 


begin 

if .ERROUT 
then 

begin 

ERRSOFT (435. 
MSG3, 

0 ); 

end; 


!Not the same error 'soft' 
.'Print error if enabled 


! Error number 

.'Error message 

IAdditional message routine 


UP SOFT.COUNT (.LUN, .BOARD); 
en3 


else 


begin 

if .ERROUT 
then 

begin 

ERRSOFT (436. 
MSG3. 

0 ); 

end; 


INot the same error ’soft’ 
.'Print error if enabled 


.'Error ncenber 
I Error message 
IAdditional me 


message routine 


UP S0FT.C0UNT (.LUN. .BOARD); 
end; 


end; 


end; 


end; 

end; 

return; 

end; 


1*3* END OF LOOP THAT COMPLETELY TESTS 1 UNIT 
1*2* END OF LOGICAL UNIT SELECTION LOOP 


1*1* END OF ROUTINE 



SEO 0254 


J 4 
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11141 

11142 

11146 062444 

11147 062450 

11148 062454 

11149 062460 

11150 062464 

11151 062470 

11152 062474 

11153 062476 

11154 062500 

11155 062504 

11156 062510 

11157 06251 4 

11158 062520 

11159 062522 

11160 062526 

11161 062532 

11162 062540 

11163 062546 

11164 062554 

11165 062562 

11166 062570 

11167 062574 

11168 062600 

11169 062604 

11170 062606 

11171 062610 

11172 062612 

11173 062616 

11174 062620 

11175 062624 

11176 062630 

11177 062634 

11178 062636 

11179 062642 

11180 062646 

11181 062650 

11182 062652 

11183 062656 

11184 062664 

11185 062670 

11186 062674 

11187 062700 

11188 062702 

11189 062704 

11190 062710 

11191 062714 


004167 122664 

162706 000030 
012746 007650 
012746 007344 
012746 007100 
012746 000003 
010600 
104414 

016716 117542 
012746 012670 
004767 157050 
016716 117526 
005416 

012746 013670 
004767 157032 
012766 012670 
012766 013670 
012766 022670 
012766 023670 
016766 117224 
005066 000014 
000167 005362 
016600 000014 
006200 
006200 
006200 

062700 034442 
010046 

016646 000016 
042716 177770 
012746 000001 
005046 

004767 121514 
062706 000010 
005300 
001402 

000167 004630 
016667 000014 
012746 007354 
012746 007072 
012746 000002 
010600 
104414 

012716 r jf 532 
012746 006160 
012746 000002 


OPT4: 


000016 

000026 

000024 

000034 

000042 


117210 2S: 


.S8TTL 

0PT4 DEFINITION OF OPTION 4 


JSR 

R1.SSAVE5 

• 

sue 

#30, SP 


MOV 

#RTN4,-(SP) 

0 

MOV 

#WRD34,-(SP) 


MOV 

#SAY2,-(SP) 


MOV 

#3.-(SP) 


MOV 

SP,RO 

; SP,* 

TRAP 

14 


MOV 

MARPAT, (SP) 

• 

• 

MOV 

#WDBUFF,-(SP) 


JSR 

PC,GEN4 


MOV 

MARPAT, (SP) 

• 

0 

NEG 

(SP) 


MOV 

#WCBUFF,-(SP) 


JSR 

PC,GEN4 


MOV 

#UD8UFF,16(SP) 

; *.WDPTR 

MOV 

#WCBUFF.26( , :f') 

; *,WCPTR 

MOV 

#RDBUFF.24(SP) 

; *,RDPTR 

MOV 

#RC8UFF ,34($P) 

; *,RCPTR 

MOV 

LSl'NIT,42(SP) 

0 

CLR 

14(SP) 

; LUN 

JMP 

95S 


MOV 

14(SP),R0 

; LUN,* 

ASR 

RO 


ASR 

RO 


ASR 

RO 


ADD 

#DRI VE.STATUS.RO 


MOV 

RO,-(SP) 


MOV 

16(SP),-(SP> 

; LUN,* 

81 C 

#177776. (SP) 


MOV 

#1.-(SP) 


CLR 

-(SP) 


JSR 

PC.BLSGT2 


ADD 

#l6.SP 


DEC 

RO 


8E0 

2$ 


JMP 

83$ 


MOV 

14 (SP) .LSLUN 

; LUN,* 

MOV 

#WRD35,-(SP) 

0 

MOV 

#SAY1,-(SP) 


MOV 

#2,-(SP) 


MOV 

SP.RO 

; SP,* 

TRAP 

14 


MOV 

#URD24.(SP) 

• 

0 

MOV 

#FMT2.-(SP) 


MOV 

#2,-(SP) 



5908 

5981 


5983 


5984 


5985 

5986 

5987 

5988 
5990 


5995 


5998 

5999 


6001 


i 
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11193 

11194 

11195 

11196 

11197 

11198 

11199 

11200 
11201 
11202 

11203 

11204 

11205 

11206 

11207 

11208 

11209 

11210 
11211 
11212 

11213 

11214 

11215 

11216 

11217 

11218 

11219 

11220 
11221 
11222 

11223 

11224 

11225 

11226 

11227 

11228 

11229 

11230 

11231 

11232 

11233 

11234 

11235 

11236 

11237 

11238 

11239 

11240 

11241 

11242 

11243 

11244 

11245 

11246 

11247 


;MLX4 


062720 

062722 

062724 

062730 

062732 

062740 

062744 

062752 

062756 

062762 

062766 

062770 

062774 

063000 

063004 

063006 

063012 

063014 

063020 

063022 

063026 

063032 

063036 

063042 

063046 

063050 

063054 

063060 

063062 

063064 

063070 

063076 

063100 

063102 

063104 

063106 

063112 

063114 

063116 

063122 

063124 

063130 

063136 

063140 

063142 

063144 

063146 

063152 

063154 

063156 

063162 

063164 


01 0600 
104414 
016600 
006300 
012766 
060066 
012766 
060066 
017601 
017604 
000516 
016646 
012746 
016646 
010446 
004767 
010005 
020527 
001036 
012746 
012746 
016646 
012746 
016646 
010446 
004767 
062706 
005700 
001455 
016600 
112760 
104455 
000621 
011070 
000000 
016600 
104451 
000435 
020527 
001015 
016600 
112760 
104455 
000622 
011070 
000000 
016600 
104451 
000415 
020527 
001015 
104455 


000026 

034460 000052 
000052 

034500 000050 
000050 
000050 
000052 

000026 

000400 

000034 

162412 

000001 

000006 

045424 

000042 

000400 

000050 

163150 

000014 


000036 

000004 034446 


000036 


000002 

000036 

000005 034446 


000036 


000003 


DEFINITION OF OPTION 4 

MOV SP.RO 

TRAP 14 

MOV 26(SP).R0 

ASL RO 

MOV *LOW. SECT. 52(SP) 

ADD R0.52CSP) 

MOV #T0P.SECT.50(SP) 

ADD R0.50(SP> 

MOV 350(SP) ,R1 

MOV 352(SP).R4 

BR 8$ 

MOV 26(SP) ,-(SP) 

MOV #400. -(SP) 

MOV 34 < SP) ,-(SP) 

MOV R4.-(SP) 

JSR PC, WRITE 

MOV R0.R5 

CMP R5,#1 

BNE 4$ 

MOV #6,-(SP) 

MOV #WRITE ,-(SP) 

MOV 42(SP).-(SP) 

MOV #400. -(SP) 

MOV 50(SP).-(SP) 

MOV R4,-(SP) 

JSR PC. RETRY 

ADD #14 ,SP 

TST RO 

BEG 7$ 

MOV 36 (SP) ,R0 

MOVB #4,WHY.DR0PT (RO) 

TRAP 55 

.WORD 621 

.WORD MSG1 

.WORD 0 

MOV 36 (SP) ,R0 

TRAP 51 

BR 6S 

CMP R5,#2 

BNE 5S 

MOV 36 (SP) ,R0 

MOVB #5,WHY.DROPT(RO) 

TRAP 55 

.WORD 622 

.WORD MSG1 

.WORD 0 

MOV 36(SP).R0 

TRAP 51 

BR 6$ 

CMP R5,#3 

BNE 7$ 

TRAP 55 


SEG 0255 


27-Mar-1982 19:24:42 TOPS 

27-Mar-1982 19:23:44 PA:< 

; SP.* 

; l UN,* 6007 


*. SECTOR 

LUN.* 6009 

WDPTR.* 

SECTOR,* 

•.VALUE 

VALUE.* 6015 

6021 

LUN.* 

WDPTR.* 

SECTOR.* 


; LUN,* 6024 

6025 

; LUN,* 6026 

6027 

; VALUE.* 6015 

; LUN,* 6034 

; 6035 

; LUN,* 6036 

; 6037 

; VALUE.* 6015 

6042 



SEQ 0256 


27-Mar-1982 19:24:42 T OPS 
27-Mar- 1982 19:23:44 PA:< 


; I. UN,* 

• 

; SECTOR 
; SECTOR.* 

» 

• 

; SP.* 

; *, COMMAND 
; *, SECTOR 

; COMMAND * 

; RDPTR.PTR 
; LUN.* 

; PTR,* 

; SECTOR.* 

; UDPTR.PTR 
; LUN,* 

; PTR,* 

; SECTOR,* 

; *, VALUE 

9 

0 

; WDPTR,* 

; RDPTR.* 

; *.D8L. VALUE 
; LUN.* 


6043 

6044 

6045 

6008 

6007 

6051 

6053 

6058 

6061 


6064 

6065 


6069 

6070 


6077 

6082 


6086 


6089 
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I 11305 




;MLX4 



11306 




• 


DEFINITION OF OPTION 

1 1 30 f 

11308 063432 

004767 

152066 



JSR 

PC.SAYWHO 

11309 063436 

012716 

011216 



MOV 

#MSG5.(SP) 

11310 063442 

012746 

007072 



MOV 

#SAY1,-(SP) 

11311 063446 

012746 

000002 



MOV 

#2.-(SP) 

11312 063452 

010600 




MOV 

SP.RO 

11313 063454 

104414 




TRAP 

14 

11314 063456 

016616 

000066 



MOV 

66(SP).(SP> 

11315 063462 

017646 

000066 



MOV 

866 (SP) ,-(SP) 

11316 063466 

012746 

006710 



MOV 

#FMT12A.-(SP) 

11317 063472 

012746 

000003 



MOV 

#3,-<SP> 

11318 063476 

010600 




MOV 

SP.RO 

11319 063500 

104414 




TRAP 

14 

11320 063502 

062766 

010000 

000074 


ADD 

#10000. 74 (SP) 

11321 063510 

016616 

000074 



MOV 

74(SP).(SP) 

11322 063514 

017646 

000074 



MOV 

874(SP),-(SP) 

11323 063520 

012746 

006756 



MOV 

#FMT128,-(SP> 

11324 063524 

012746 

000003 



MOV 

#3,-(SP> 

11325 063530 

010600 




MOV 

SP.RO 

11326 063532 

104414 




TRAP 

14 

11327 063534 

016601 

000064 



MOV 

64(SP),R1 

11328 063540 

112761 

000010 

034446 


MOVB 

#1 O.WHY.DROPT (R1 ) 

11329 063546 

104455 




TRAP 

55 

11330 063550 

000624 




.WORD 

624 

11331 063552 

011070 




.WORD 

MSG1 

11332 063554 

000000 




.WORD 

0 

11333 063556 

016600 

000064 



MOV 

64 (SP) ,R0 

11334 063562 

104451 




TRAP 

51 

11335 063564 

062706 

000050 



ADD 

#50. SP 

11336 063570 

000520 



14$: 

BR 

20$ 

11337 063572 

020527 

000001 


15$: 

CMP 

R5.#1 

11338 063576 

001034 




BNE 

16$ 

11339 063600 

012746 

000006 



MOV 

#6,-(SP) 

11340 063604 

010246 




MOV 

R2.-ISP) 

11341 063606 

016646 

000046 



MOV 

46(SP).-(SP) 

11342 063612 

012746 

000400 



MOV 

#400, -(SP) 

11343 063616 

010346 




MOV 

R3,-(SP) 

11344 063620 

010446 




MOV 

R4,-(SP) 

11345 063622 

004767 

162376 



JSR 

PC. RE TRY 

11346 063626 

062706 

000014 



ADD 

#14, SP 

11347 063632 

005700 




TST 

RO 

11348 063634 

001655 




BEG 

12$ 

11349 063636 

016601 

000042 



MOV 

42(SP),R1 

11350 063642 

112761 

000004 

034446 


MOVB 

#4.WHY.DR0PT(R1> 

11351 063650 

104455 




TRAP 

55 

11352 063652 

000625 




.WORD 

625 

11353 063654 

011070 




.WORD 

MSG1 

11354 063656 

000000 




.WORD 

0 

11355 063660 

016600 

000042 



MOV 

42(SP),R0 

11356 063664 

104451 




TRAP 

51 

11357 063666 

000457 




BR 

19$ 

11358 063670 

020527 

000002 


16$: 

CMP 

R5,#2 

1 1 359 063674 

001015 




BNE 

17$ 


4 


SEQ 0257 

27-Mar-1982 19:24:42 TOPS 
27-Mar- 1982 19:23:44 PA:< 


6090 


; SP,* 


; D8L. VALUE,* 

; D8L. VALUE,* 

6092 

; SP.* 


; *,DBL. VALUE 
; DBL. VALUE,* 

; DBL. VALUE,* 

6094 

6095 

; SP.* 


; LUN,* 

6097 

0 

6098 

; LUN,* 

6099 


6100 

; VALUE.* 

6077 

; COMMAND,* 

; LUN,* 

£108 

t 

; PTR.* 

; SECTOR,* 

* 

; LUN,* 

6111 

• 

6112 

; LUN,* 

6113 

; VALUE.* 

6114 

6077 
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11361 




;MLX4 





11362 




0 


DEFINITION OF OPTION 4 



11363 









11364 063676 

016601 

000042 



MOV 

42(SP).R1 

• 

LUN.* 

11365 063702 

112761 

000005 

034446 


M0V8 

#5,WHY.DR0PT (R1 ) 



11366 063710 

104455 




TRAP 

55 

» 


11367 063712 

000626 




.WORD 

626 



11368 063714 

011070 




.WORD 

MSG1 



11369 063716 

000000 




.WORD 

0 



11370 063720 

016600 

000042 



MOV 

42CSP),R0 

0 

LUN.* 

11371 063724 

104451 




TRAP 

51 



11372 063726 

000437 




BR 

19$ 

• 

0 


11373 063730 

020527 

000003 


17$: 

CMP 

R5,#3 

• 

0 

VALUE.* 

11374 063734 

001014 




BNE 

18$ 



11375 063736 

104455 




TRAP 

55 

0 


11376 063740 

000627 




.WORD 

627 



11377 063742 

011070 




.WORD 

MSG1 



11378 063744 

000000 




.WORD 

0 



11379 063746 

016601 

000042 



MOV 

42(SP) ,R1 

0 

LUN.* 

H380 063752 

112761 

000006 

034446 


MOVB 

#6,WHY .DROPT (R1 ) 



11381 063760 

010100 




MOV 

R1.R0 

0 

LUN,* 

11382 063762 

104451 




TRAP 

51 



11383 063764 

000420 




BR 

19$ 

0 


11384 063766 

020527 

000004 


18$: 

CMP 

R5.#4 

0 

VALUE.* 

11385 063772 

001021 




BNE 

21$ 



11386 063774 

004767 

153332 



JSR 

PC, ISOLATE 

0 


11387 064000 

104455 




TRAP 

55 

0 


11388 064002 

000630 




.WORD 

630 



11389 064004 

011120 




.WORD 

MSG2 



11390 064006 

000000 




.WORD 

0 



11391 064010 

016601 

000042 



MOV 

42(SP).R1 

• 

0 

LUN.* 

11392 064014 

112761 

000007 

034446 


MOVB 

#7,WHY.DR0PT(R1) 



11393 064022 

010100 




MOV 

R1.R0 

• 

0 

LUN.* 

11394 064024 

104451 




TRAP 

51 



11395 064026 

062706 

000026 


19$: 

ADD 

#26. SP 

0 


11396 064032 

000167 

004120 


20$: 

JMP 

94$ 



11397 064036 

020527 

000005 


21$: 

CMP 

R5,#5 

0 

VALUE,* 

11398 064042 

001161 




BNE 

28$ 



11399 064044 

004767 

153262 



JSR 

PC, ISOLATE 

0 


11400 064050 

032767 

000001 

116202 


BIT 

#1 -ERROUT 

0 


11401 064056 

001423 




BEG 

22§ 



11402 064060 

017701 

150324 



MOV 

3ML.REG+42.R1 



11403 064064 

006201 




ASR 

R1 



11404 064066 

006201 




A SR 

R1 



11405 064070 

006201 




ASR 

R1 



11406 064072 

006201 




ASR 

R1 



11407 064074 

006201 




ASR 

R1 



11408 064076 

006201 




ASR 

R1 



11409 064100 

042701 

177700 



BIC 

#1 77700. R1 



11410 064104 

010146 




MOV 

R1 ,-CSP) 



11411 064106 

012746 

006640 



MOV 

#FMT10B.-CSP) 



11412 064112 

012746 

000002 



MOV 

#2.-<SP> 



11413 064116 

010600 




MOV 

SP, RO 

« 

0 

SP,* 

11414 064120 

104414 




TRAP 

14 



11415 064122 

062706 

000006 



ADD 

#6,SP 




SEQ 0258 

27-Mar-1982 19:24:4 2 TOPS 
27-Mar-1982 19:23:44 PA:< 

6121 

6122 


6123 

6124 
6077 

6129 


6130 

6131 

6132 
6077 

6137 

6138 


6139 

6140 

6141 

6077 

6146 

6148 
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11417 




;MLX4 




11418 




0 


DEFINITION OF OPTION 4 


11419 

11420 064126 

017766 

150260 

000046 

22 $: 

MOV 

9ML.RE6+44,46(SP) 

# 

',1421 064134 

017701 

150250 



MOV 

aML.REGt-42.Rl 

0 

11422 064140 

006201 




ASR 

R1 


11423 064142 

006201 




ASR 

R1 


11424 064144 

006201 




ASR 

R1 


11425 064146 

006201 




ASR 

R1 


11426 064150 

006201 




ASR 

R1 


11427 064152 

006201 




ASR 

R1 


11428 064154 

042701 

177700 



BJC 

*1 77700, R1 


11429 064160 

010166 

000050 



MOV 

R1.50CSP) 

• 

9 

11430 064164 

012746 

000001 



MOV 

#1.-(SP) 

• 

0 

11431 064170 

010246 




MOV 

R2.-CSP) 

9 

11432 064172 

016646 

000046 



MOV 

46(SP),-(SP) 

9 

11433 064176 

012746 

000400 



MOV 

#400, -<SP) 


11434 064202 

010346 




MOV 

R3.-CSP) 

9 

11435 064204 

010446 




MOV 

R4. -<SP) 

m 

9 

11436 064206 

004767 

162012 



JSR 

PC, RETRY 


11437 064212 

062706 

000014 



ADD 

#14 ,SP 


11438 064216 

020027 

000005 



CMP 

R0-#5 


11439 064222 

001052 




BNE 

25$ 


11440 064224 

027766 

150162 

000046 


CMP 

aML.REG+44,46CSP) 

0 

11441 064232 

001035 




BNE 

24$ 


11442 064234 

016600 

000050 



MOV 

50(SP).R0 

■ 

0 

11443 064240 

017701 

150144 



MOV 

3ML.REG*42,R1 


11444 064244 

006201 




ASR 

R1 


11445 064246 

006201 




ASR 

Rl 


11446 064250 

006201 




AS R 

R1 


11447 064252 

006201 




ASR 

Rl 


11448 064254 

006201 




ASR 

Rl 


11449 064256 

006201 




ASR 

Rl 


11450 064260 

042701 

177700 



BIC 

#1 77700. Rl 


11451 064264 

020100 




CMP 

Rl -RO 


11452 064266 

001017 




BNE 

24$ 


11453 064270 

032767 

000001 

115762 


BIT 

#1 .ERROUT 

• 

0 

11454 064276 

001404 




BEQ 

23$ 


11455 064300 

104456 




TRAP 

56 


11456 064302 

000631 




.WORD 

631 


11457 064304 

011202 




.WORD 

MSG4 


11458 064306 

000000 




.WORD 

0 


11459 064310 

016646 

000042 


23 $: 

MOV 

42(SP),-(SP) 

• 

• 

11460 064314 

016746 

150022 



MOV 

BOARD, “(SP) 


11461 064320 

004767 

153076 



JSR 

PC, UP. HARD. COUNT 


11462 064324 

000427 




BR 

27$ 

9 

11463 064326 

032767 

000001 

115724 

24$: 

BIT 

#1 .ERROUT 

9 

11464 064334 

001415 




BEO 

26$ 


11465 064336 

104457 




TRAP 

57 


11466 064340 

000632 




.WORD 

632 


11467 064342 

011166 




.WORD 

MSG3 


11*68 064344 

000000 




.WORD 

0 


11469 064346 

000410 




BR 

26$ 

9 

11470 064350 

032767 

000001 

115702 

25$: 

BIT 

#1 .ERROUT 

9 

11471 064356 

001404 




BEO 

26$ 



•.OLDSEC 


*,OLDCHN 

COMMAND,* 

LUN.* 

PTR,* 

SECTOR.* 

*. OLDSEC 
OLDCHN,* 


LUN.* 


SEQ 0259 

27-Mar-1982 19:24:42 TOPS 

27-Mar-1982 19:23.44 PA:< 

6151 

6152 


6154 


6157 


6161 


6163 

6157 

6168 


6170 

6176 
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11473 
1 1474 

11475 

11476 

11477 

11478 

11479 

11480 

11481 

11482 

11483 

11484 

11485 

11486 

11487 

11488 

11489 

11490 

11491 

11492 

11493 

11494 

11495 

11496 

11497 

11498 

11499 

11500 

11501 

11502 

11503 

11504 

11505 

11506 

11507 

11508 

11509 

11510 

11511 

11512 

11513 

11514 

11515 

11516 

11517 

11518 

11519 

11520 

11521 

11522 

11523 

11524 

11525 

11526 

11527 


.-MIX'- 


DEFINITION OF OPTION 4 


064360 

064362 

064364 

064366 

064370 

064374 

064400 

064404 

064406 

064412 

064416 

064422 

064424 

064430 

064432 

064436 

064440 

064444 

064450 

064454 

064460 

064464 

064466 

064472 

064476 

064500 

064502 

064506 

064514 

064516 

064520 

064522 

064524 

064530 

064532 

064534 

064540 

064542 

064546 

064554 

064556 

064560 

064562 

064564 

064570 

064572 

064574 

064600 

064602 

064604 

064606 

064610 


104457 

000633 

011166 

000000 

016646 

016746 

004767 

022626 

016616 

012746 

016646 

010446 

004767 

010005 

020527 

001036 

012746 

012746 

016646 

012746 

016646 

010446 

004767 

062706 

005700 

001456 

016601 

112761 

104455 

000634 

011070 

''90000 

v'16600 

104451 

000436 

020527 

001015 

016601 

112761 

104455 

000635 

011070 

000000 

016600 

104451 

000416 

020527 

001016 

104455 

000636 

011070 

000000 


000042 

147742 

153500 

000042 

000400 

000056 

160774 

000001 

000006 

045424 

000054 

000400 

000072 

161532 

000014 


000050 

000004 


000050 


000002 

000050 

000005 


000050 


000003 



TRAP 

57 


.WORD 

633 


.WORD 

MSG3 


.WORD 

0 

26$: 

MOV 

42(SP),-(SP) 


MOV 

BOARD. -(SP) 


JSR 

PC. UP. SOFT. COUNT 

27$: 

CMP 

(SP)+,(SP)* 

28$: 

MOV 

42(SP),(SP) 

MOV 

#400, -(SP) 


MOV 

56(SP> ,-(SP) 


MOV 

R4,-(SP) 


JSR 

PC. WRITE 


MOV 

R0.R5 


CMP 

R5,#1 


BNE 

29$ 


MOV 

#6,-(SP) 


MOV 

WRITE, -(SP> 


MOV 

54(SP).-(SP) 


MOV 

#400, -(SP) 


MOV 

72(SP).-(SP) 


MOV 

R4,-(SP) 


JSR 

PC. RE TRY 


ADD 

#14, SP 


TST 

RO 


034446 


034446 


BEO 32$ 

MOV 50(SP),R1 

M0V8 #4, WHY. DROP? (R1 ) 

TRAP 55 

.WORD 634 

.WORD MSG1 

.WORD 0 

MOV 50(SP) ,R0 

TRAP 51 

BR 31$ 

CMP R5.#2 

BNE 30$ 

MOV 50(SP).R1 

M0V8 #5 .WHY . DROPT (R1 ) 

TRAP 55 

.WORD 635 

.WORD MSG1 

.WORD 0 

MOV 50(SP).R0 

TRAP 51 

BR 31$ 

CMP R5.#3 

BNE 3 2i 

TRAP 55 

.WORD 636 

.WORD MSG1 

.WORD 0 


SEO 0260 


27-Mar-1982 19:24:42 fOPS 
27-Mar-1982 19:23:44 PA:< 



6178 


LUN.* 

WCPTR, * 
SECTOR,* 

*, VALUE 
VALUE.* 

LUN,* 

WCPTR.* 

SECTOR.* 

; LUN,* 


; LUN.* 

; VALUE.* 
; LUN,* 


; LUN,* 

; VALUE.* 



CJMLBBO PERFORMANCE EXERCISER 
OPT4 DEFINITION OF OPTION 4 

11529 

11530 

11531 

11532 064612 016601 000050 

11533 064616 112761 000006 

11534 064624 010100 

11535 064626 104451 

11536 064630 062706 000034 

11537 064634 000570 

11538 064636 062706 000016 

11539 064642 005204 

11540 064644 020406 000046 

11541 064650 101002 

11542 064652 000167 176416 

11543 064656 012716 007336 

11544 064662 012746 006160 

11545 064666 01? '46 000002 

11546 064672 010600 

11547 064674 104414 

11548 064676 004767 161264 

11549 064702 010002 

11550 064704 017666 000062 

11551 064712 017604 000060 

11552 064716 000167 001350 

11553 064722 005001 

11554 064724 020227 045612 

11555 064730 001014 

11556 064732 005201 

11557 064734 016603 000056 

11558 064740 016646 000036 

11559 064744 012746 000400 

11560 064750 010346 

11561 064752 010446 

11562 064754 004767 160632 

11563 064760 000412 

11564 064762 C16603 000050 

11565 064766 016646 000036 

11566 064772 012746 000400 

11567 064776 010346 

11568 065000 010446 

11569 065002 004767 160772 

11570 065006 010005 

11571 065010 001103 

11572 065012 006001 

11573 065014 103402 

11574 065016 000167 001012 

11575 065022 016646 000060 

11576 065026 016646 000070 

11577 065032 012746 000400 

11578 065036 004767 157264 

11579 065042 062706 000006 

11580 065046 010066 000064 

11581 065052 001761 

11582 065054 016646 000046 

11583 065060 004767 150440 
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;MLX4 




• 


DEFINITION OF OPTION 4 



MOV 

50(SP).R1 

034446 


MOVB 

*6.UHY.DR0PT(R1) 



MOV 

R1.RC 



TRAP 

51 


31$: 

ADD 

*34, SP 



BR 

40$ 


32$: 

ADD 

*16, SP 



INC 

R4 


33$: 

CMP 

R4,46(SP) 



BH1 

34i 



JMP 

9$ 


34$: 

MOV 

*WRD25.(SP) 



MOV 

*FMT2.-(SP) 



MOV 

*2,-(SP) 



MOV 

SP.RO 



TRAP 

14 



JSR 

PC, CHOOSE 



MOV 

R0.R2 

000052 


MOV 

362(SP),52(SP) 



MOV 

360 CSP) ,R4 



JMP 

59$ 


35$: 

CLR 

R1 



CMP 

R2,*READ 



BNE 

36$ 



INC 

R1 



MOV 

56(SP).R3 



MOV 

36(SP),-(SP) 



MOV 

*400, -(SP) 



MOV 

R3. -(SP) 



MOV 

R4, -(SP) 



JSR 

PC, READ 



BR 

37$ 


36$: 

MOV 

50(SP) ,R3 



MOV 

36($P),-(SP) 



MOV 

*400, -(SP) 



MOV 

R3,-(SP> 



MOV 

R4,-(SP) 



JSR 

PC, CHECK 


37$: 

MOV 

R0.R5 



BNE 

41$ 



ROR 

R1 



BLO 

39$ 


38$: 

JMP 

54$ 


39$: 

MOV 

60(SP),-(SP) 



MOV 

70(SP).-(SP) 



MOV 

* 400, -(SP) 



JSR 

PC, DOUBLE. CHECK 



ADD 

*6,SP 



MOV 

R0,64(SP) 



BEO 

38$ 



MOV 

46(SP) ,-(SP) 



JSR 

PC,SAYWH0 


SEQ 0261 

27-Mar-1982 19:24:42 TOPS 
27-«ar-1982 19:23:44 PA:< 


LUN.* 

6218 

LUN.* 

6219 


6220 


6059 

SECTOR 

SECTOR,* 

6058 


6226 

SP,* 

6228 

*, COMMAND 

6230 

*. SECTOR 

6233 

COMMAND,* 


RCPTR,PTR 

6236 

LUN,* 

6237 

PTR.* 

SECTOR,* 


UCPTR,PTR 

6241 

LUN,* 

6242 

PTR,* 

SECTOR,* 


*, VALUE 

6249 


6254 

WCPTR,* 

RCPTR,* 

6258 

*,D8L. VALUE 


LUN,* 

6261 
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E 5 

MACRO Ml 113 29-MAR-82 13:41 PAGE 250 


SEQ 0262 


11585 

11586 

11587 

11588 065064 

11589 065070 

11590 065074 

11591 065100 

11592 065102 

11593 065104 

11594 065110 

11595 065114 

11596 065120 

11597 065124 

11598 065126 

11599 065130 

11600 065136 

11601 065142 

11602 065146 

11603 065152 

11604 065156 

11605 065160 

11606 065162 

11607 065166 

11608 065174 

11609 065176 

11610 065200 

11611 065202 

11612 065204 

11613 065210 

11614 065212 

11615 065216 

11616 065220 

11617 065224 

11618 065226 

11619 065232 

11620 065234 

11621 065240 

11622 065244 

11623 065246 

11624 065250 

11625 065254 

11626 065260 

11627 065262 

11628 065264 

11629 065270 

11630 065276 

11631 065300 

1163 2 065302 

11633 065304 

11634 065306 

11635 065312 

11636 065314 

11637 065316 

11638 065322 

11639 065324 


DEFINITION OF OPTION 4 


012716 

011216 



MOV 

#MSG5,(SP> 

• 

012746 

007072 



MOV 

#SAY1,-(SP> 


012746 

000002 



MOV 

#2,-<SP> 


010600 




MOV 

SP.RO 

; SP.* 

104414 




TRAP 

14 


016616 

000072 



MOV 

72(SP) f (SP) 

; DBl .VALUE.* 

017646 

000072 



MOV 

a72(SP),-(SP> 

; DBL. VALUE,* 

012746 

006710 



MOV 

#FMT12A.-(SP) 


012746 

000003 



MOV 

#3.-(SP> 


010600 




MOV 

SP.RO 

; SP.* 

104414 




TRAP 

14 


062766 

010000 

000100 


ADD 

#10000.1U SP) 

; *, DBL. VALUE 

016616 

000100 



MOV 

100(SP).(SP> 

; DBL. VALUE.* 

017646 

000100 



MOV 

aioo(SP),-(SP> 

; DBL. VALUE,* 

012746 

006756 



MOV 

#FMT12B,-(SP) 


012746 

000003 



MOV 

#3,-f SP) 


010600 




MOV 

SP.RO 

; SP.* 

104414 




TRAP 

14 


016601 

000070 



MOV 

70(SP) ,R1 

; LUN,* 

112761 

000010 

034446 


M0V8 

flO.WHY.DROPT (R1 ) 


104455 




TRAP 

55 

9 

000637 




.WORD 

637 


011070 




.WORD 

MSG1 


000000 




.WORD 

0 


016600 

000070 



MOV 

70(SP) ,R0 

; LUN,* 

104451 




TRAP 

51 


062706 

000054 



ADD 

#54. SP 

9 

000520 



40S: 

BR 

46$ 


020527 

000001 


41$: 

CMP 

R5.#1 

; VALUE,* 

001034 




BNE 

42$ 


012746 

000006 



MOV 

#6.-(SP) 

9 

010246 




MOV 

R2,-(SP) 

; COMMAND,* 

016646 

000052 



MOV 

52<SP),-(SP) 

; LUN,* 

012746 

000400 



MOV 

#400, -<SP) 


010346 




MOV 

R3,-(SP) 

; PTR,* 

010446 




MOV 

R4,-(SP) 

; SECTOR,* 

004767 

160750 



JSR 

PC, RETRY 


062706 

000014 



ADD 

#14, SP 


005700 




TST 

RO 


001655 




BEQ 

38$ 


016601 

000046 



MOV 

46<SP).R1 

; LUN,* 

112761 

000004 

034446 


MOVB 

#4,WHY .DROPT (R1 ) 


104455 




TRAP 

55 

• 

9 

000640 




.WORD 

640 


011070 




.WORD 

HSG1 


000000 




.WORD 

0 


016600 

000046 



MOV 

46(SP),R0 

: LUN,* 

104451 




TRAP 

51 


000457 




BR 

45$ 

; 

020527 

000002 


42$: 

CMP 

R5,#2 

; VALUE.* 

001015 




BNE 

43$ 


016601 

000046 



MOV 

46(SP) ,R1 

; LUN,* 


27- Mar-1982 19:24:42 
27-Mar-1982 19:23:44 


TOPS 

PA:< 

6262 


6264 


6266 

6267 


6269 

6270 

6271 

6272 
6249 
6280 


6283 * 

6284 


6285 

6286 
6249 

6293 


F 5 
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11641 




;MLX4 



11642 




0 


DEFINITION OF OPTION 4 

11643 







11644 065330 

112761 

000005 

034446 


M0V8 

#5,UHY.DR0PT(R1) 

11645 065336 

104455 




TRAP 

55 

11646 065340 

000641 




.WORD 

641 

11647 065342 

011070 




.WORD 

MSG1 

11648 065344 

000000 




.WORD 

0 

11649 065346 

016600 

000046 



MOV 

46(SP).R0 

11650 065352 

104451 




TRAP 

51 

11651 065354 

000437 




BR 

45$ 

11652 065356 

020527 

000003 


43$: 

CMP 

R5 *3 

11653 065362 

001014 




BN E 

44$ 

11654 065364 

104455 




TRAP 

55 

11655 065366 

000642 




.WORD 

642 

11656 065370 

011070 




.WORD 

MSG1 

11657 065372 

000000 




.WORD 

0 

11658 065374 

016601 

000046 



MOV 

46(SP) ,R1 

11659 065400 

112761 

000006 

034446 


MOVB 

#6,WHY.DR0PT(R1) 

11660 065406 

010100 




MOV 

R1 ,R0 

11661 065410 

104451 




TRAP 

51 

11662 065412 

000420 




8R 

45$ 

11663 065414 

020527 

000004 


44$: 

CMP 

R5.#4 

11664 065420 

001021 




BNE 

47# 

11665 065422 

004767 

151704 



JSR 

PC, ISOLATE 

11666 065426 

104455 




TRAP 

55 

11667 065430 

000643 




.WORD 

643 

11668 065432 

011120 




.WORD 

MSG2 

11669 065434 

000000 




.WORD 

0 

11670 065436 

016601 

000046 



MOV 

46(SP),R1 

11671 065442 

112761 

000007 

034446 


MOVB 

#7,YHY.DR0PT(R1) 

11672 065450 

010100 




MOV 

R1,R0 

11673 065452 

104451 




TRAP 

51 

11674 065454 

062706 

000032 


45$: 

ADD 

#32, SP 

11675 065460 

000167 

002472 


46$: 

JMP 

94$ 

11676 065464 

020527 

000005 


47$: 

CMP 

R5,#5 

11677 065470 

001161 




BNE 

54$ 

11678 065472 

004767 

151634 



JSR 

PC, ISOLATE 

11679 065476 

032767 

000001 

114554 


BIT 

#1 .ERROUT 

11680 065504 

001423 




BEQ 

48$ 

11681 065506 

017701 

146676 



MOV 

aML.REG*42,R1 

11682 065512 

006201 




A SR 

Rl 

11683 065514 

006201 




ASR 

R1 

11634 065516 

006201 




ASR 

Rl 

11685 065520 

006201 




ASR 

Rl 

11686 065522 

006201 




ASR 

Rl 

11687 065524 

006201 




ASR 

Rl 

11688 065526 

042701 

1 77700 



BIC 

#177700,R1 

11689 065532 

010146 




MOV 

R1,-(SP) 

11690 065534 

012746 

006640 



MOV 

#FNT10B,-(SP) 

11691 065540 

012746 

000002 



MOV 

#2,~(SP> 

11692 065544 

010600 




NOV 

SP,RO 

'1693 065546 

104414 




TRAP 

14 

11694 065550 

062706 

000006 



ADD 

#6 ,SP 

11695 065554 

017766 

146632 

000052 

48$: 

MOV 

aML.REG+44,52(SP1 


SEO 0263 

27-Mar-1982 19:24:42 TOPS 
27-Mar-1982 19:23:44 PA:< 


• 

6294 

; LUN,* 

6295 

6296 

; VALUE,* 

0 

6249 

6301 

; LUN,* 

6302 

; LUN,* 

6303 

6304 

; VALUE,* 

6249 

• 

6309 

0 

6310 

; LUN.* 

6311 

; LUN,* 

6312 


6313 

; VALUE,* 

6249 


6318 


6320 


; SP.* 

; *,OLDSEC 6323 
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11697 

11698 

11699 

11700 

11701 

11702 

11703 

11704 

11705 

11706 

11707 

11708 

11709 

11710 

11711 

11712 

11713 

11714 

11715 

11716 

11717 

11718 

11719 

11720 

11721 

11722 

11723 

11724 

11725 

11726 

11727 

11728 

11729 

11730 

11731 

11732 

11733 

11734 

11735 

11736 

11737 

11738 

11739 

11740 

11741 

11742 

11743 

11744 

11745 

11746 

11747 

11748 

11749 

11750 

11751 


;HLX4 


065562 

065566 

065570 

065572 

065574 

065576 

065600 

065602 

065606 

065612 

065616 

065620 

065624 

065630 

065632 

065634 

065640 

065644 

065650 

065652 

065660 

065662 

065666 

065672 

065674 

065676 

065700 

065702 

065704 

065706 

065712 

065714 

065716 

065724 

065726 

065730 

065732 

065734 

065736 

065742 

065746 

065752 

065754 

065762 

065764 

065766 

065770 

065772 

065774 

065776 

066004 

066006 


017701 

006201 

006201 

006201 

006201 

006201 

006201 

042701 

010166 

012746 

010246 

016646 

012746 

010346 

010446 

004767 

062706 

020027 

001052 

027766 

001035 

016600 

017701 

006201 

006201 

006201 

006201 

006201 

006201 

042701 

020100 

001017 

032767 

001404 

104456 

000644 

011202 

000000 

016646 

016746 

004767 

000427 

032767 

001415 

104457 

000645 

011166 

000000 

000410 

032767 

001404 

104457 


146622 


177700 

000054 

000001 

000052 

000400 


160364 

000014 

000005 

146534 000052 

000054 

146516 


177700 


000001 114334 


000046 49$: 

146374 

151450 

000001 114276 50$: 


000001 114254 51$: 


DEFINITION OF OPTION 4 

MOV 8ML.REG+42.R1 

ASR R1 

ASR R1 

A SR R1 

ASR R1 

ASR R1 

ASR R1 

BIC A177700.R1 

MOV R1.54CSP) 

MOV #1.-(SP) 

MOV R2.-CSP) 

MOV 52(SP) ,-(SP> 

MOV #400, -(SP) 

MOV R3,-(SP) 

MOV R4,-(SP> 

JSR PC, RETRY 

ADD #14, SP 

CMP R0,#5 

BNE 51$ 

CMP aNL.REG*44,52(SP) 

BNE 50$ 

MOV 54 (SP), RO 

MOV aNL.REG*42.Rl 

ASR R1 

ASR R1 

ASR R1 

ASR R1 

ASR R1 

ASR R1 

BIC #177700,R1 

CMP R1 ,R0 

BNE 50$ 

BIT #1 ,ERR0UT 

BEO 49$ 

TRAP 56 

.WORD 644 

.WORD MSG4 

.WORD 0 

MOV 46(SP) ,-<SP) 

MOV BOARD, -(SP) 

JSR PC, UP. HARD. COUNT 

BR 53$ 

BIT fl.ERROUT 

BEO 52$ 

TRAP 57 

.WORD 645 

.WORD MSG3 

.WORD 0 

BR 52$ 

BIT ffl.ERROUT 

BEO 52$ 

TRAP 57 


SEO 0264 


27-Mar-1982 19:24:42 TOPS 
27-Mar- 1982 19:23:44 PA:< 

6324 


; *,OLDCHN 

; COMMAND,* 
,* LUN,* 

; PTR,* 

; SECTOR.* 

; *,OLDSEC 
; OLDCHN,* 


; LUN.* 


6326 


6329 


6333 

6335 

6329 

6340 


6342 

6348 


l 
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SEO 0265 


11753 




;MLX4 




27-M»r-1982 

19:24:42 

TOPS 

11754 




f 


DEFINITION OF OPTION 4 


27-M*r-1982 

19:23:44 

PA: < 

11755 

11756 066010 

000646 




.WORD 

646 





11757 066012 

011166 




.WORD 

MSG3 





11758 066014 

000000 




.WORD 

0 




6350 

11759 066016 

016646 

000046 


52$: 

MOV 

46(SP).-(SP) 

; LUN,* 



11760 066022 

016746 

146314 



MOV 

BOARD. -(SP) 





11761 066026 

004767 

152052 


53$: 

JSR 

PC. UP. SOFT. COUNT 




6317 

11762 066032 

022626 



CMP 

(SPM.(SP)* 

9 



11763 066034 

016616 

000046 


54$: 

MOV 

46(SP),(SP) 

; LUN.* 



6356 

11764 066040 

012746 

000400 



MOV 

#400. -(SP) 

; WDPTR,* 




11765 066044 

016646 

000052 



MOV 

52(SP).-(SP) 




11766 066050 

010446 




MOV 

R4.-(SP) 

; SECTOR,* 




11767 066052 

004767 

157346 



JSR 

PC, WRITE 

; *. VALUE 




11768 066056 

010005 




MOV 

R0.R5 



6362 

11769 066060 

020527 

000001 



CMP 

R5.#1 

55$ 

; VALUE,* 



11770 066064 

001036 




BNE 




6368 

11771 066066 

012746 

000006 



MOV 

#6,-(SP) 

• 

9 



11772 066072 

012746 

045424 



MOV 

#WRITE.-(SP) 





11773 066076 

016646 

000060 



MOV 

60(SP),-(SP) 

; LUN.* 




11774 066102 

012746 

000400 



MOV 

#400. -(SP) 





11775 066106 

016646 

000066 



MOV 

66(SP).-(SP> 

; WDPTR,* 




11776 066112 

010446 




MOV 

R4.-(SP) 

; SECTOR,* 




11777 066114 

004767 

160104 



JSR 

PC, RETRY 





11778 066120 

062706 

000014 



ADD 

#14, SP 





11779 066124 

005700 




TST 

RO 





11780 066126 

001456 




BEQ 

58$ 




6371 

11781 066130 

016601 

000054 



MOV 

54 (SP) ,R1 

; LUN,* 



11782 066134 

112761 

000004 

034446 


MOVB 

#4.UHY.DR0PT(R1) 




6372 

11783 066142 

104455 




TRAP 

55 

» 



11784 066144 

000647 




.WORD 

647 





11785 066146 

011070 




.WORD 

MSG1 





11786 066150 

000000 




.WORD 

0 




6373 

11787 066152 

016600 

000054 



MOV 

54 (SP) .RO 

; LUN,* 



11788 066156 

104451 




TRAP 

51 




6374 

11789 066160 

000436 




BR 

57$ 

• 

• 



11790 066162 

020527 

000002 


55$: 

CMP 

R5,#2 

56i 

; VALUE,* 



6362 

11791 066166 

001015 




BNE 




6381 

11792 066170 

016601 

000054 



MOV 

54 (SP), R1 

; LUN,* 



11793 066174 

112761 

000005 

034446 


MOVB 

#5,WHY.DR0PT(R1) 




6382 

11794 066202 

104455 




TRAP 

55 

• 



11795 066204 

000650 




.WORD 

650 





11796 066206 

011070 




.WORD 

MSG1 





11797 066210 

000000 




.WORD 

0 




6383 

11798 066212 

016600 

000054 



MOV 

54(SP).R0 

; LUN.* 



11799 066216 

104451 




TRAP 

51 




6384 

11800 066220 

000416 




BR 

57$ 

• 

9 



11801 066222 

020527 

000003 


56$: 

CMP 

R5,#3 

58$ 

; VALUE,* 



6362 

11802 066226 

001016 




BNE 




6389 

11803 066230 

104455 




TRAP 

55 

• 



11804 066232 

000651 




.WORD 

651 





11805 066234 

011070 




.WORD 

MSG1 





11806 066236 

000000 




.WORD 

0 




6390 

11807 066240 

016601 

000054 



MOV 

54<SP),R1 

; LUN.* 
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11809 




;MLX4 





11810 




0 


DEFINITION OF OPTION 4 



11811 

11812 066244 

112761 

000006 

034446 


wove 

#6,UHY.DR0PT(R1) 



11813 066252 

010100 




MOV 

R1.R0 

9 

LUN.* 

11814 066254 

104451 




TRAP 

51 



H815 066256 

062706 

000040 


57$: 

ADD 

#40. SP 

0 


11816 066262 

000570 




BR 

66$ 



11817 066264 

062706 

000016 


58$: 

ADD 

#16. SP 

• 

0 


11818 066270 

005304 




DEC 

R4 

9 

SECTOR 

11819 066272 

020466 

000052 


59$: 

CMP 

R4.52CSP) 

0 

SECTOR.* 

11820 066276 

002402 




BLT 

60$ 



11821 066300 

000167 

176416 



JMP 

35$ 



11822 066304 

012716 

007332 


60$: 

MOV 

#WRD24. (SP) 

9 


11823 066310 

012746 

006160 



MOV 

#FMT2.-(SP) 



11824 066314 

012746 

000002 



MOV 

#2.-(SP) 



11825 066320 

010600 




MOV 

SP.RO 

0 

SP,* 

11826 066322 

104414 




TRAP 

14 



11827 066324 

004767 

157636 



JSR 

PC, CHOOSE 

0 


11828 066330 

010002 




MOV 

R0.R2 

0 

*, COMMAND 

11829 066332 

017666 

000064 

000064 


MOV 

864 (SP) .64 (SP) 

9 


11830 066340 

017604 

000066 



MOV 

966 (SP) ,R4 

0 

*, SECTOR 

11831 066344 

000167 

001120 



JMP 

81$ 



11832 066350 

005001 



61$: 

CLR 

R1 

0 


11833 066352 

020227 

045612 



CMP 

R2,#READ 

9 

COMMAND.* 

11834 066356 

001014 




BNE 

62$ 



11835 066360 

005201 




INC 

R1 



11836 066362 

016603 

000052 



MOV 

52(SP),R3 

0 

RDPTR.PTR 

11837 066366 

016646 

000042 



MOV 

42(SP) ,-(SP) 

9 

LUN.* 

11838 066372 

012746 

000400 



MOV 

#400, -(SP) 



11839 066376 

010346 




MOV 

R3,-(SP) 

0 

PTR,* 

11840 066400 

010446 




MOV 

R4,-(S n ) 

9 

SECTOR,* 

11841 066402 

004767 

157204 



JSR 

PC .READ 



11842 066406 

000412 




BR 

63$ 



11843 066410 

016603 

000044 


62$: 

MOV 

44(SP).R3 

0 

UDPTR.PTR 

11844 066414 

016646 

000042 



MOV 

42(SP),-CSP) 

0 

LUN,* 

11845 0664 20 

012746 

000400 



MOV 

#400,- (SP) 



11846 066424 

010346 




MOV 

R3,-(SP) 

0 

PTR.* 

11847 066426 

010446 




MOV 

R4,-(SP) 

0 

SECTOR.* 

11848 066430 

004767 

157344 



JSR 

PC, CHECK 



11849 066434 

010005 



63$: 

MOV 

R0.R5 

67i 

9 

♦.VALUE 

11850 066436 

001103 




BNE 

0 


11851 066440 

006001 




ROR 

Rl 

0 


11852 066442 

11853 066444 

103402 

000167 

001012 


64$: 

BLO 

JMP 

65$ 

80$ 



11854 066450 

Q16646 

000054 


65$: 

MOV 

54<SP).-(SP) 

0 

WDPTR.* 

11855 066454 

016646 

000064 



MOV 

64(5P) ,-(SP) 

0 

RDPTR,* 

11856 066460 

012746 

000400 



MOV 

#400, -(SP) 



11857 066464 

004767 

155636 



JSR 

PC. DOUBLE. CHECK 



11858 066470 

062706 

I'X'I'I'r-l 



ADD 

#6,SP 


*,D8L. VALUE 

11859 066474 

010066 

000070 



MOV 

R0.70CSP) 

64$ 

0 

11860 066500 

001761 




BEO 



11861 066502 

016646 

000052 



MOV 

52(SP) ,-(SP) 

0 

LUN,* 

11862 066506 

004767 

147012 



JSR 

PC.SAYWHO 



11863 066512 

012716 

011216 



MOV 

#MSG5. (SP) 

0 



SEO 0266 

27-M»r-1982 19:24:42 TOPS 
27-Mar-1982 19:23:44 PA:< 

6391 

6392 

6231 

6230 

6398 

6400 

6405 

6408 

6411 

6412 


6416 

6417 


6424 

6429 

6433 


6436 

6437 


C2MIBB0 PERFORMANCE EXERCISER 
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11865 

11866 

11867 

11868 066516 012746 007072 

11869 066522 012746 000002 

11870 066526 010600 

11871 066530 104414 

11872 066532 016616 000076 

11873 066536 017646 000076 

11874 066542 012746 006710 

11875 066546 012746 000003 

11876 066552 010600 

11877 066554 104414 

11878 066556 062766 010000 

11879 066564 016616 000104 

11880 066570 017646 000104 

11881 066574 012746 006756 

11882 066600 012746 000003 

11883 066604 010600 

11884 066606 104414 

11885 066610 016601 000074 

11886 066614 112761 000010 

11887 066622 104455 

11888 066624 000652 

11889 066626 011070 

11890 066630 000000 

11891 066632 016600 000074 

11892 066636 104451 

11893 066640 062706 000060 

11894 066644 000520 

11895 066646 020527 000001 

11896 066652 001034 

11897 066654 012746 000006 

11898 066660 010246 

11899 066662 016646 000056 

11900 066666 012746 000400 

11901 066672 010346 

11902 066674 010446 

11903 066676 004767 157322 

11904 066702 062706 000014 

11905 066706 005700 

11906 066710 001655 

11907 066712 016601 000052 

11908 066716 112761 000004 

11909 066724 104455 

11910 066726 000653 

11911 066730 011070 
11912066732 000000 

1913066734 016600 000052 

11914 066740 104451 

11915 066742 000457 

11916 066744 020527 000002 

11917 066750 001015 

11918 066752 016601 000052 

11919 066756 112761 000005 


J 5 
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;MLX4 




# 


DEFINITION OF OPTION 4 



MOV 

#SAY1,-(SP) 



MOV 

#2,-(SP) 



MOV 

SP.RO 



TRAP 

14 



MOV 

76(5P> . (SP) 



MOV 

a76(SP).-(SP> 



MOV 

#FMT12A,-(SP> 



MOV 

#3,-(SP) 



MOV 

SP.RO 



TRAP 

14 

000104 


ADD 

#1 0000,1 04 (SP) 



MOV 

104(SP),(SP) 



MOV 

8104(SP).-(SP) 



MOV 

#FMT12B,-(SP) 



MOV 

#3.-(SP) 



MOV 

SP.RO 



TRAP 

14 



MOV 

74<SP).R1 

034446 


MOVB 

#10,UHY.DROPT(R1) 



TRAP 

55 



.WORD 

652 



.WORD 

MSG1 



.WORD 

0 



MOV 

74 (SP). RO 



TRAP 

51 



ADD 

#60, SP 


66$: 

BR 

72$ 


67$: 

CMP 

R5.#1 



BNE 

68$ 



MOV 

#6.-(SP) 



MOV 

R2,-(SP) 



MOV 

56(SP),-(SP' 



MOV 

#400. -(SP) 



MOV 

R3.-(SP) 



MOV 

R4,-(SP) 



JSR 

PC, RETRY 



ADD 

#14, SP 



TST 

RO 



BEQ 

64$ 



MOV 

52(SP) ,R1 

034446 


MOVB 

#4,UHY.DROPT(R1) 



TRAP 

55 



.WORD 

653 



.WORD 

MSG1 



.WORD 

0 



MOV 

52 (SP) ,R0 



TRAP 

51 



BR 

71$ 


o 

CD 

CMP 

R5,#2 



BNE 

69i 



MOV 

52(SP) ,R1 

034446 


M0V8 

#5,UHY.DROPT(R1) 


SEQ 0267 

27-Mar-1982 19:24:42 TOPS 
27-Mar-1982 19:23:44 PA:< 


; SP,* 


D8L. VALUE.* 

DBL. VALUE,* 

6439 

SP,* 


*.DBL. VALUE 

D8L. VALUE.* 

DBL. VALUE.* 

6441 

6442 

SP.* 


LUN,* 

6444 


6445 

LUN,* 

6446 


6447 

VALUE,* 

6424 

COMMAND.* 

LUN,* 

6455 

PTR,* 

SECTOR,* 


LUN,* 

6458 


6459 

LUN.* 

6460 

VALUE,* 

6461 

6424 

LUN,* 

6468 



S50 0268 
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11921 




;MIX4 




11922 




0 


DEFINITION OF OPTION 4 


11923 








11924 066764 

104455 




TRAP 

55 

0 

11925 066766 

000654 




.WORD 

654 


11926 066770 

011070 




.WORD 

MS61 


11927 066772 

000000 




.WORD 

0 


11928 066774 

016600 

000052 



MOV 

52CSP) ,R0 

; LUN,* 

11929 067000 

104451 




TRAP 

51 


11930 067002 

000437 




BR 

71 $ 


11931 067004 

020527 

000003 


69S: 

CMP 

R5.#3 

; VALUE , * 

11932 067010 

001014 




BNE 

70$ 


11933 067012 

104455 




TRAP 

55 

* 

11934 067014 

0C0655 




.WORD 

655 


11935 067016 

011070 




.WORD 

MSG1 


11936 067020 

000000 




.WORD 

0 


11937 067022 

016601 

000052 



MOV 

52(SP) ,R1 

; LUN,* 

11938 067026 

112761 

000006 

034446 


MOVB 

#6,WHV.DR0PT(R1> 


11939 067034 

010100 




MOV 

R1 ,R0 

; LUN,* 

11940 067036 

104451 




TRAP 

51 


11941 067040 

000420 




BR 

71$ 

• 

• 

11942 067042 

020527 

00C004 


70S: 

CMP 

R5/4 

; VALUE,* 

11943 067046 

001021 




BNE 

73$ 


11944 067050 

004767 

150256 



JSR 

PC, ISOLATE 

• 

0 

11945 067054 

104455 




TRAP 

55 

* 

0 

11946 067056 

000656 




.WORD 

656 


11947 067060 

011120 




.WORD 

MSG2 


11948 067062 

000000 




.WORD 

0 


11949 067064 

016601 

000052 



MOV 

52(SP),R1 

; LUN.* 

11950 067070 

112761 

000007 

034446 


MOVB 

#7,UHY.DR0PT(R1) 


11951 067076 

010100 




MOV 

R1,R0 

; LUN,* 

11952 067100 

104451 




TRAP 

51 


11953 067102 

062706 

000036 


71$: 

ADD 

#36, SP 


11954 067106 

000167 

001044 


72$: 

JMP 

94$ 


11955 067112 

020527 

000005 


73$: 

CMP 

R5.#5 

; VALUE,* 

11956 067116 

001161 




BNE 

80$ 


11957 067120 

004767 

150206 



JSR 

PC, ISOLATE 


11958 067124 

032767 

000001 

113126 


BIT 

#1 ,ERROUT 


11959 067132 

001423 




8EQ 

74$ 


11960 067134 

017701 

145250 



MOV 

aML.REG+42.R1 


11961 067140 

006201 




ASR 

R1 


11962 067142 

006201 




ASR 

R1 


11963 067144 

006201 




ASR 

R1 


11964 067146 

006201 




ASR 

R1 


11965 067150 

006201 




ASR 

R1 


11966 067152 

006201 




ASR 

R1 


11967 067154 

042701 

177700 



BIC 

#1 77700, R1 


11968 067160 

010146 




MOV 

R1 ,-CSP) 


11969 067162 

012746 

006640 



MOV 

#FMT10B,-<SP) 


11970 067166 

012746 

000002 



MOV 

#2,-(SP> 


11971 067172 

010600 




MOV 

SP,RO 

; SP,* 

11972 067174 

104414 




TRAP 

14 


11973 067176 

062706 

000006 



ADD 

#6,SP 


11974 067202 

017766 

145204 

000056 

74$: 

MOV 

aML.REG*44,56(SP> 

; *.OLDSEC 

11975 067210 

017701 

145174 



MOV 

BML.REG+42.R1 

0 


27-Mar-1982 19:24:42 TOPS 

27-Mar-1982 19:23:44 PA:< 

6469 

6470 

6471 
6424 

6476 

6477 

6478 

6479 
6424 

6484 

6485 

6486 

6487 

6488 

6424 

6493 

6495 


6498 

6499 
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SEQ 0269 


11977 




;MLX4 



11978 




• 

• 


DEFINITION OF OPTION 4 

11979 







11980 067214 

006201 




ASR 

R1 

11981 067216 

006201 




ASR 

R1 

11982 067220 

006201 




ASR 

R1 

11983 067222 

006201 




ASR 

R1 

11984 067224 

006201 




ASR 

R1 

11985 067226 

006201 




ASR 

R1 

11986 067230 

042701 

177700 



BIC 

#177700,R1 

11987 067234 

010166 

000060 



MOV 

R1,60(SP> 

11988 067240 

012746 

000001 



MOV 

#1.-(SP> 

11989 067244 

010246 




MOV 

R2.-(SP) 

11990 067246 

016646 

000056 



MOV 

56<SP).-(SP> 

11991 067252 

012746 

000400 



MOV 

#400, -(SP) 

11992 067256 

010346 




MOV 

R3,-(SP> 

11993 067260 

010446 




MOV 

R4,-(SP) 

11994 067262 

004767 

156736 



JSR 

PC. RETRY 

11995 067266 

062706 

000014 



ADD 

#14, SP 

11996 067272 

020027 

000005 



CMP 

R0.#5 

11997 067276 

001052 




BNE 

77$ 

11998 067300 

027766 

145106 

000056 


CMP 

aML.REG*44,56(SP) 

11999 067306 

001035 




BNE 

76$ 

12000 067310 

016600 

000060 



MOV 

60(SP),R0 

12001 067314 

017701 

145070 



MOV 

aML.REG*42,R1 

12002 067320 

006201 




ASR 

R1 

12003 067322 

006201 




ASR 

R1 

12004 067324 

006201 




ASR 

R1 

12005 067326 

006201 




ASR 

R1 

12006 067330 

006201 




ASR 

R1 

12007 067332 

006201 




ASR 

R1 

12008 067334 

042701 

177700 



BIC 

#1 77700, R1 

12009 067340 

020100 




CMP 

R1.R0 

12010 067342 

001017 




BNE 

76$ 

12011 067344 

032767 

000001 

112706 


BIT 

#1 .ERROUT 

12012 067352 

001404 




BEG 

75$ 

12013 067354 

104456 




TRAP 

56 

12014 067356 

000657 




.WORD 

657 

12015 067360 

011202 




.WORD 

MSG4 

12016 067362 

000000 




.WORD 

0 

12017 067364 

016646 

000052 


75$: 

MOV 

52<SP),-(SP) 

12018 067370 

016746 

144746 



MOV 

BOARD.- (SP) 

12019 067374 

004767 

150022 



JSR 

PC, UP. HARD. COUNT 

12020 067400 

000427 




BR 

79i 

12021 067402 

032767 

000001 

112650 

76$: 

BIT 

#1. ERROUT 

12022 067410 

001415 




BEO 

78$ 

12023 067412 

104457 




TRAP 

57 

12024 067414 

000660 




.WORD 

660 

12025 067416 

011166 




.WORD 

MSG3 

12026 067420 

000000 




.WORD 

0 

12027 067422 

000410 




BR 

78$ 

12028 067424 

032767 

000001 

112626 

77$: 

BIT 

#1, ERROUT 

12029 067432 

001404 




BEQ 

78$ 

12030 067434 

104457 




TRAP 

57 

12031 067436 

000661 




.WORD 

661 


2 7-Mar- 1982 19:24:42 TOPS 
27-Mar-1982 19:23:44 PA:< 


; *,01DCHN 

; COMMAND,* 
; LUN,* 


6501 


; PTR,* 

; SECTOR.* 


; *.OLDSEC 6504 

; OLDCHN.* 


6508 


LUN,* 


6510 


6504 

6515 


6517 

6523 
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SEQ 0270 


12033 




;MLX4 





27-Mar-1982 

19:24:42 

TOPS 

1203A 




• 

0 


DEFINITION OF OPTION 4 



27- **ar-1982 

19:23:44 

PA:< 

12035 












12036 067AA0 

011166 




.UORD 

MSG3 






12037 067AA2 

000000 




.WORD 

0 






12038 067AAA 

016646 

000052 


78$: 

MOV 

52 ( SP> ,*<SP) 

0 

LUN.* 



6525 

12039 067A50 

016746 

144666 



MOV 

BOARD ,-(SP> 






120A0 067A5A 

004767 

150424 



JSR 

PC. UP. SOFT. COUNT 






120A1 067A60 

022626 



79$: 

CMP 

(SP)+.(SP)+ 

0 




6492 

120A2 067A62 

062706 

000010 


80$: 

ADD 

#10. SP 

0 




6406 

120A3 067A66 

005204 




INC 

R4 

• 

0 

SECTOR 



6405 

120AA 067A70 

020466 

000064 


81$: 

CMP 

R4.64(SP) 

0 

SECTOR,* 




120A5 067A7A 

101002 




BHI 

82$ 






120A6 067A76 

000167 

176646 



JMP 

61$ 






120A7 067502 

062706 

000026 


82$: 

ADD 

#26. SP 

0 




5997 

120A8 067506 

032767 

000001 

112546 

83$: 

BIT 

#1.EFN$21 

0 




6541 

120A9 06751A 

001002 




BNE 

84$ 






12050 067516 

000167 

000434 



JMP 

94$ 






12051 067522 

016600 

000014 


84$: 

MOV 

14CSP) ,R0 

0 

LUN.* 



6548 

12052 067526 

006300 




ASL 

RO 






12053 067530 

016001 

034500 



MOV 

TOP.SECT(RO) ,R1 






120 5 A 06753A 

01 600 A 

034460 



MOV 

LOW. SECT (RO) .R4 

• 

• 

*, SECTOR 




12055 O675A0 

000167 

000402 



JMP 

93$ 






12056 0675AA 

016646 

000014 


85$: 

MOV 

14(SPJ ,-(SP) 

0 

LUN,* 



6550 

12057 067550 

012746 

000400 



MOV 

#400. -(SP) 






12058 06755A 

012746 

022670 



MOV 

#R8UFF.-(SP) 






12059 067560 

010446 




MOV 

R4,-(SP> 

0 

SECTOR,* 




12060 067562 

00A767 

156024 



JSR 

PC.READ 






12061 067566 

062706 

000010 



ADD 

#10. SP 






12062 067572 

020027 

000005 



CMP 

R0,#5 






12063 067576 

001162 




BNE 

92$ 






1206A 067600 

004767 

147526 



JSR 

PC. ISOLATE 

0 




6553 

12065 06760A 

032767 

000001 

112446 


BIT 

#1 -ERROUT 

m 

0 




6555 

12066 067612 

001423 




BEO 

86$ 






12067 06761 A 

017700 

144570 



MOV 

3ML.REG+42.R0 






12068 067620 

006200 




ASR 

RO 






12069 067622 

006200 




ASR 

RO 






12070 06762A 

006200 




ASR 

RO 






12071 067626 

006200 




ASR 

RO 






12072 067630 

006200 




ASR 

RO 






12073 067632 

006200 




ASR 

RO 






12074 067634 

042700 

177700 



BJC 

#1 77700.R0 






12075 067640 

010046 




MOV 

RO, -(SP) 






12076 067642 

012746 

006640 



MOV 

#F MTIOB.-(SP) 






12077 067646 

012746 

000002 



MOV 

#2,-(SP) 






12078 067652 

010600 




MOV 

SP.RO 

• 

0 

SP,* 




12079 067654 

104414 




TRAP 

14 






12080 067656 

062706 

000006 



ADD 

#6,SP 






12081 067662 

017766 

144524 

000020 

86$: 

MOV 

iML .REG+44 ,20(SP) 

0 

*.OLDSEC 



6564 

12082 067670 

017700 

144514 



MOV 

8ML.REG+42.R0 

0 




6565 

12083 067674 

006200 




ASR 

RO 






12084 067676 

006200 




ASR 

RO 






12085 067700 

006200 




ASR 

RO 






12086 067702 

006200 




ASR 

RO 






12087 067704 

006200 




ASR 

RO 
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12089 

12090 

12091 

12092 

12093 

12094 

12095 

12096 

12097 

12098 

12099 

12100 
12101 
12102 

12103 

12104 

12105 

12106 

12107 

12108 

12109 

12110 
12111 
12112 

12113 

12114 

12115 

12116 

12117 

12118 

12119 

12120 
12121 
12122 

12123 

12124 

12125 

12126 

12127 

12128 

12129 

12130 

12131 

12132 

12133 

12134 

12135 

12136 

12137 

12138 

12139 

12140 

12141 

12142 

12143 


;MLX4 


067706 

067710 

067714 

067720 

067724 

067726 

067732 

067736 

067740 

067744 

067750 

067754 

067760 

067762 

067770 

067772 

067776 

070002 

070004 

070006 

070010 

070012 

070014 

070016 

070022 

070024 

070026 

070034 

070036 

070040 

070042 

070044 

070046 

070052 

070056 

070062 

070064 

070072 

070074 

070076 

070100 

070102 

070104 

070106 

070114 

070116 

070120 

070122 

070124 

070126 

070132 

070136 


006200 

042700 

010066 

012746 

010246 

016646 

012746 

010346 

016646 

004767 

062706 

020027 

001052 

027766 

001035 

016646 

017700 

006200 

006200 

006200 

006200 

006200 

006200 

042700 

020026 

001017 

032767 

001404 

104456 

000662 

011202 

000000 

016646 

016746 

004767 

000427 

032767 

001415 

104457 

000663 

011166 

000000 

000410 

032767 

001404 

104457 

000664 

011166 

000000 

016646 

016746 

004767 


177700 

000022 

000001 

000020 

000400 

000032 

156254 

000014 

000005 

144424 000020 

000022 

144406 


177700 


000001 112224 


000014 

144264 

147340 

000001 112166 


000001 112144 


000014 

144204 

147742 


DEFINITION OF OPTION 4 

ASR RO 

BIC *1 77700, RO 

MOV R0,22(SP) 

MOV #1,-<SP> 

MOV R2,-(SP> 

MOV 20(SP),-(SP) 

MOV #400, -(SP) 

MOV R3.-(SP) 

MOV 32<SP).-(SP> 

JS.fi PC,RETRV 

ADD #14.SP 

CMP R0,#5 

BNE 89$ 

CMP 3ML .REG*44,20(SP) 

BNE 88$ 

MOV 22(SP),-(SP) 

MOV 3ML.REG+42.R0 

ASR RO 

ASR RO 

ASR RO 

ASR RO 

ASR RO 

ASR RO 

BIC #1 77700, RO 

CMP RO.(SP>* 

BNE 88$ 

BIT #1 ,ERROUT 

8EQ 87$ 

TRAP 56 

.WORD 662 

.WORD MSG4 

.WORD 0 

MOV 14(SP),-(SP) 

MOV BOARD. -(SP) 

JSR PC. UP. HARD. COUNT 

BR 91$ 

BIT fl.ERROUT 

BEQ 90$ 

TRAP 57 

.WORD 663 

.WORD MSG3 

.WORD 0 

BR 90$ 

BIT #1 .ERROUT 

BEQ 90$ 

TRAP 57 

.WORD 664 

.WORD MSG3 

.WORD 0 

MOV 14(SP),-(SP) 

MOV BOARD. -(SP) 

JSR PC, UP. SOFT. COUNT 


SEQ 0271 


C 

R 


27-Mar-1982 19:24:42 TOPS 

27-Mar-l982 19:23:44 PA:< 


; * .OLDCHN 

; COMMAND.* 
; LUN,* 


6573 


; PTR, * 

; OLDSEC,* 


; *, OLDSEC 
; OLDCHN,* 


; LUN,* 



6586 

6591 


6582 

6599 


6607 

6613 


; LUN.* 


6621 


1 

1 

1 



B 6 
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12145 



;MLX4 




27-Mar-1982 

19:24:42 

TOPS 

12146 

12147 

12148 070142 



0 


DEFINITION OF OPTION 4 


27-Mar-1982 

19:23:44 

PA : < 

022626 


91 1: 

CMP 

(SP>*,(SP>* 

• 

SECTOR 


6552 

12149 070144 

005204 


92$: 

INC 

R4 

0 


6548 

12150 070146 

020401 


93$: 

CMP 

R4.R1 

94§ 

• 

0 

SECTOR,* 



12151 070150 

101002 



BHI 





12152 070152 

000167 

177366 


JMP 

85$ 




5990 

12153 070156 

005266 

000014 

94$: 

INC 

14CSP) 

0 

LUN 


12154 070162 

026666 

000014 

000042 95$: 

CMP 

14(SP) ,42(SP> 

0 

LUN,* 



12155 070170 

002002 



BGE 

96$ 





12156 070172 

000167 

172402 


JMP 

1$ 




5908 

12157 070176 

062706 

000044 

96$: 

ADD 

#44, SP 

0 



12158 070202 

12159 

000207 



RTS 

PC 

1456 words 





12160 



; Routine Size: 

48 words 




12161 



; Maximum stack 

depth per invocation: 




12166 

12167 
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12169 

12170 

12171 

12172 

12173 

12174 

12175 

12176 

12177 

12178 

12179 

12180 
12181 
12182 

12183 

12184 

12185 

12186 

12187 

12188 

12189 

12190 

12191 

12192 

12193 

12197 

12198 
12202 

12203 

12204 

12205 

12206 

12207 

12208 

12209 

12210 
12211 
12212 

12217 

12218 


.-MLX4 


070204 

070210 

070216 

070222 

070226 

070232 

070234 

070236 


6633 

6634 

6635 

6636 

6637 

6638 

6639 

6640 

6641 

6642 

6643 

6644 

6645 

6646 

6647 

6648 

6649 

6650 

6651 

6652 

6653 

6654 


004767 

042767 

016746 

012746 

004767 

005200 

022626 

000207 


SELECTING A RANDOM WORD COUNT 

Xsbttl ‘SELECTING A RANDOM WORD COUNT’ 
routine RNDWC = 
begin 


27-Mar-1982 19:24:42 
27-Mar-1982 19:23:44 




ROUTINE: RNDWC 

PURPOSE: TO SELECT A RANDOM WORD COUNT WITHIN THE RANGE 

1 TO BUFSIZ. 

RESULT: THE VALUE RETURNED WILL BE USED BY THE CALLER 

AS ITS 'WRDCNT' 


local 

WRDCNT; 

RN O * 

RANDOM = .RANDOM and Xo’ 077777'; 
WRDCNT = ((.RANDOM mod BUFSIZ) ♦ 1); 
return .WRDCNT; 
end; 


! IGNORE SIGN BIT 
.'FORCE THE RANGE 


.SBTTL RNDWC SELECTING A RANDOM WORD COUNT 
115160 RNDWC: JSR PC. RN 

100000 115246 BIC #100000, RANDOM 

115242 MOV RANDOM.- (SP) 

004000 MOV #4000. -(SP) 

114750 JSR PC. BL SHOD 

INC RO 

CMP (SP)*,(SP)* 

RTS PC 

; Routine Size: 14 words 

; Maximum stack depth per invocation: 2 words 


SEQ 0273 

TOPS-20 Bliss-16 V2(212> 

PA : <N£ALE>MLX4 ,BL I . 5 (41) 


6650 

6651 

6652 


6634 


I 
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SEG 0274 


12220 

12221 

12222 

12223 

12224 

12225 

12226 

12227 

12228 

12229 

12230 

12231 

1223 2 

12233 

12234 

12235 

12236 

12237 

12238 

12239 

12240 

12241 

12242 

12243 

12244 

12245 

12246 

12247 

12248 

12249 

12250 

12251 

12252 

12253 

12254 

12255 

12256 

12257 

12258 

12259 

12260 
12261 
12262 

12263 

12264 

12265 

12266 

12267 

12268 
’2269 
1 2'*73 
12274 


MLX4 


6655 

6656 

6657 

6658 

6659 

6660 
6661 
6662 

6663 

6664 

6665 

6666 

6667 

6668 

6669 

6670 

6671 
4672 

73 

6674 

6675 

6676 

6677 

6678 

6679 

6680 
6681 
6682 

6683 

6684 

6685 

6686 

6687 

6688 

6689 

6690 

6691 

6692 

6693 

6694 

6695 

6696 

6697 

6698 

6699 

6700 

6701 


SELECTING A RANDOM SECTOR 

Xsbttl ’SELECTING A RANDOM SECTOR’ 
routine RNDSEC (LUN) = 
begin 


27-Mar-1982 19:24:42 
27-Mar-1982 19:23:44 


T0PS-2C Bliss-16 V2 (21 2) 
PA:<NEALE>MLX4.BLI.5 (42) 


♦ ♦ 


ROUTINE: RNDSEC (LUN) 

PURPOSE: TO SELECT A RANDOM SECTOR NUMBER WITHIN THE RANGE 

OF TESTABLE SECTORS (LOWEST TO HIGHEST) 

ARGUMENT: LUN = THE CURRENT LOGICAL UNIT 

NOTE: ’LUN* IS REQUIRED TO CALCULATE LOWEST/HIGHEST 
FOR THE PARTICULAR LOGICAL UNIT. 

RESULT: THE VALUE RETURNED WILL BE USED BY THE CALLER 

AS ITS ’SECTOR*. 


local 

SECTOR. 

SIZE; 


version czmlbb changed eql to eqlu 

if LOWEST eqlu HIGHEST 
then 

SECTOR = LOWEST 

else 

begin 
RN () * 

RANDOM = .RANDOM and Xo’ 077777’; 
version czmlbb 

•Highest - Lowest ♦ T when testing an ML-11B with 
16 array modules results in a negitive number which 
causes the Btiss operator ’mod’ to hang the CPU. 

Due to this malfunction the '♦ 1* has been deleted 
which will avoid this malfunction 

SIZE = HIGHEST - LOWEST; 

SECTOR = (LOWEST ♦ (.RANDOM mod .SIZE)); 
end; 

return .SECTOR; 
end; 


! IGNORE THE SIGN BIT 


•FIND THE SECTOR RANGE 
! FORCE RANGE 


SBTTL RNDSEC SELECTING A RANDOM SECTOR 



E 6 
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SEQ 0275 


12278 

12282 070240 004167 

12283 070244 016601 

12284 070250 006301 

12285 070252 012703 

12286 070256 060103 

12287 070260 021361 

12288 070264 001002 

12289 070266 011302 

12290 070270 000420 

12291 070272 004767 

12292 070276 042767 

12293 070304 016101 

12294 070310 161301 

12295 070312 016746 

12296 070316 010146 

12297 070320 004767 

12298 070324 061300 

12299 070326 010002 

12300 070330 022626 

12301 070332 010200 

12302 070334 000207 

12303 

12304 

12305 

12310 

12311 


115032 

000012 

034460 

C 34 500 


115072 

100000 

034500 

115146 

114656 


;MLX4 

• 

RNDSEC: JSR 
MOV 
ASL 
MOV 
ADD 
CMP 
BNE 
MOV 
BR 

11: JSR 

115160 BIC 

MOV 
SUB 
MOV 
MOV 
JSR 
ADD 
MOV 
CMP 

2$: MOV 

RTS 


SELECTING A RANDOM SECTOR 

R1.SSAVE3 

12(SP).R1 

R1 

#L0U.SECT,R3 
R1 ,R3 

(Rj) .TOP. SECT (R1 ) 

1 $ 

(R3),R2 

2 $ 

PC RN 

#100000. RANDOM 
TOP. SECT (R1 ) ,R1 
(R31.R1 
RANDOM, -(SP) 

RI.-(SP) 

PC.BLSMOD 

(R3),R0 

R0.R2 

(SP)*,(SP)+ 

R2.R0 

PC 


; Routine Size: 31 words 

; Maximum stack depth per invocation: 6 words 


LUN,* 


*, SECTOR 


♦.SIZE 

•.SIZE 

SIZE.* 


*, SECTOR 
SECTOR.* 


27-Mar-1982 19:24:42 TOPS 
27-Mar-1982 19:23:44 PA:< 

6656 

6680 


6682 

6680 

6685 

6686 

6696 

6697 


6684 

6657 

6656 
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12313 ;MLX4 

12314 ; 

12315 

12316 

12317 

12318 

12319 

12320 

12321 

12322 

12323 

12324 

12325 

12326 

12327 

12328 

12329 

12330 

12331 

12332 

12333 

12334 

12335 

12336 

12337 

12338 

12339 

12340 

12341 

12342 

12343 

12344 

12345 

12346 

12347 

12348 

12349 

12350 

12351 

12352 

12353 

12354 

12355 

12356 

12357 

12358 

12362 

12363 

12367 070336 


6702 

6703 

6704 

6705 

6706 

6707 

6708 

6709 

6710 

6711 

6712 

6713 

6714 

6715 

6716 

6717 

6718 

6719 

6720 

6721 

6722 

6723 

6724 

6725 

6726 

6727 

6728 

6729 

6730 

6731 

6732 

6733 

6734 

6735 

6736 

6737 

6738 

6739 

6740 

6741 

6742 

6743 

6744 


SELECTING A RANDOM UNIT 

Zsbttl ’SELECTING A RANDOM UNIT’ 
routine RNDU = 


♦♦ 


begin 

ROUTINE: 
PURPOSE : 


27-Mar-1982 19:24:4 2 
27-Mar-1982 19:23:44 


! * 1 * 


RNDU 

TO SELECT A RANDOM LOGICAL UNIT NUMBER WITHIN 
THE RANGE OF TESTABLE UNITS (0 TO .LSUNIT-1) 


local 

LUN; 

it .LSUNIT eql 1 
then 

LUN = 0 

else 

begin 
RN ( ) ' 

RANDOM = .RANDOM and Xo’ 077777'; 
RANDOM = (.RANDOM mod .LSUNIT); 


! * 2 * 

•IGNORE THE SIGN BIT 
.'FORCE THE RANGE 


MAKE SURE THE DRIVE IS ACTIVE. IF IT ISN’T. 
THEN FIND THE NEXT AVAILABLE ACTIVE DRIVE: 


incr COUNT from 0 to (.LSUNIT - 1) do 

if .DRIVE_STATUS [.RANDOM} eql ACTIVE 
then 

begin 

LUN = .RANDOM; 
ex it loop; 
end 

else 

RANDOM = ((.RANDOM ♦ 1) mod .LSUNIT); 


end; 

return .LUN; 
end; 


2 • 


! * 1 * 


004167 114752 


.S8TTL RNDU SELECTING A RANDOM UNIT 
JSR R1.SSAVE4 


SEQ 0276 

TOPS -20 Bliss-16 V2(212) 

PA : <NEALE >HL X4 . BL 1 . 5 (43) 


6703 


RNDU: 



SEO 0277 


G 6 
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RNDU SEIECTING 

A RANDOM 

UNIT 





12369 





;MLX4 



12370 





• 

0 


SELECTING A RANDOM UNIT 

12371 








12372 

070342 

026727 

111444 

000001 


CMP 

LSUNIT,#1 

12373 

070350 

001002 




BNE 

IS 

12374 

070352 

005004 




CLR 

R4 

12375 

070354 

000467 




BR 

6S 

12376 

070356 

004767 

115006 


IS: 

JSR 

PC.RN 

12377 

070362 

042767 

100000 

115074 


BIC 

#100000, RANDOM 

12378 

070370 

016746 

115070 



MOV 

RANDOM. -(SP) 

12379 

070374 

016746 

111412 



MOV 

LSUNIT.-(SP) 

12380 

070400 

004767 

114576 



JSR 

PC.8LSM0D 

12381 

070404 

010067 

115054 



MOV 

RO, RANDOM 

12382 

070410 

016703 

111376 



MOV 

LSUNIT,R3 

12383 

070414 

005001 




CLR 

Rl 

12384 

070416 

000443 




BR 

4$ 

12385 

070420 

016702 

115040 


2S: 

MOV 

RANDOM. R2 

12386 

070424 

006202 




ASR 

R2 

12387 

070426 

006202 




ASR 

R 2 

12388 

070430 

006202 




ASR 

R 2 

12389 

070432 

062702 

034442 



ADD 

#DRIVE. STATUS, R2 

12390 

070436 

010246 




MOV 

R2.-CSP) 

12391 

070440 

016746 

115020 



MOV 

RANDOM. -(SP) 

12392 

070444 

042716 

177770 



BIC 

#177770, (SP) 

12393 

070450 

012746 

000001 



MOV 

#1,-(SP) 

12394 

070454 

005046 




CLR 

-(SP) 

12395 

070456 

004767 

113674 



JSR 

PC.BLSGT2 

12396 

070462 

062706 

000010 



ADD 

#10, SP 

12397 

070466 

005300 




DEC 

RO 

12398 

070470 

001003 




BNE 

3S 

12399 

070472 

016704 

114766 



MOV 

RANDOM. R4 

12400 

070476 

000415 




BR 

5S 

12401 

070500 

016746 

114760 


3$: 

MOV 

RANDOM.- (SP) 

12402 

070504 

005216 




INC 

(SP) 

12403 

070506 

016746 

111300 



MOV 

LSUNIT.-(SP) 

12404 

070512 

004767 

114464 



JSR 

PC.BLSMOD 

12405 

070516 

010067 

114742 



MOV 

RO, RANDOM 

12406 

070522 

022626 




CMP 

(SPH. (SP) + 

12407 

070524 

005201 




INC 

Rl 

12408 

070526 

020103 



4$: 

CMP 

R1.R3 

12409 

070530 

002733 




BLT 

2$ 

12410 

070532 

022626 



5$: 

CMP 

(SP)*. (SP)* 

12411 

070534 

010400 



6$: 

MOV 

R4.R0 

12412 

070536 

000207 




RTS 

PC 

12413 








12414 





; Routine Size: 

65 words 

12415 





; Maximum stack depth per invocation: 

12420 








12421 









11 words 


; LUN 


; COUNT 


*.LUN 


; COUNT 
; COUNT,* 

; LUN,* 


27-Mar-1982 19:24:42 TOPS 
27-Mar-1982 19:23:44 PA:< 

6716 

6718 

6716 

6721 

6722 

6723 


6730 


6732 


6735 

6736 
6739 


6730 


6720 

6704 

6703 
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SEG 0278 


12423 

12424 

12425 

12426 

12427 

12428 

12429 

12430 

12431 

12432 

12433 

12434 

12435 

12436 

12437 

12438 

12439 

12440 

12441 

12442 

12443 

12444 

12445 

12446 

12447 

12448 

12449 

12450 

12451 

12452 

12453 

12454 

12455 

12456 

12457 

12458 

12459 

12460 

12461 

12462 

12463 

12464 

12465 

12466 

12467 

12468 

12469 

12470 

12471 

12472 

12473 

12474 

12475 

12476 

12477 


;MIX4 


6745 

6746 

6747 

6748 

6749 

6750 

6751 

6752 

6753 

6754 

6755 

6756 

6757 

6758 

6759 

6760 

6761 

6762 

6763 

6764 

6765 

6766 

6767 

6768 

6769 

6770 

6771 

6772 

6773 

6774 

6775 

6776 

6777 

6778 

6779 

6780 

6781 

6782 

6783 

6784 

6785 

6786 

6787 

6788 

6789 

6790 

6791 

6792 

6793 

6794 

6795 

6796 


TESTING RANDOM DATA 

Xsbttl ‘TESTING RANDOM DATA' 
routine RAND1 (REPEAT) : novalue = 
begin 


27-Mar-1982 19:24:42 
27-Mar-1982 19:23:44 


TOPS-20 Bliss-16 V2(212) 
PA:<NEALE>MLX4.BLI.5 (44) 


! * 1 * START OF ROUTINE 


♦♦ 


ROUTINE: RAND1 (REPEAT) 

PURPOSE: TO TEST USING RANDOM DATA 

ARGUMENT: REPEAT = NUMBER OF TIMES TO EXECUTE THIS ROUTINE 

BEFORE RETURNING TO THE CALLER (OPTS). 

NOTE: THIS TEST CODE FOLLOUS THE SAME FLOW AS 0PT3, 

BUT USES A RANDOM DATA PATTERN. 

THE CODE FOR ‘RAND1 * IN BRIEF: 

BEGIN 1 (START OF ROUTINE) 

SAY ROUTINE IS RUNNING 
INCR COUNT FROM 1 TO REPEAT 
BEGIN 2 (START OF REPEAT LOOP FOR THE ROUTINE > 

GENERATE THE RANDOM PATTERN 
INCR LUN FROM 0 TO LAST 

BEGIN 3 (START OF LOGICAL UNIT SELECTION LOOP) 

TESTLOOP: 

BEGIN 4 (START OF LOOP THAT COMPLETELY TESTS 1 UNIT) 

IF UNIT IS ACTIVE 
THEN 

BEGIN 5 (START OF TEST FOR AN ACTIVE UNIT) 

INITIALIZE THE WRITE AND READ BUFFER POINTERS 
SECTOR = LOWEST 
WHILE SECTOR LEO HIGHEST DO 
BEGIN 6 (START OF SECTOR SELECTION LOOP) 

GET WRDCNT 

SET UP BUFFER POINTERS BEFORE TRANSFER 
WRITE 

LOOK FOR ERRORS (IF DROP UNIT. LEAVE TESTLOOP) 

CHOOSE WHETHER TO WRITE CHECK OR READ 
DO THE WRITE CHECK OR READ 
LOOK FOR ERRORS (IF DROP UNIT, LEAVE TESTLOOP) 

CHANGE BUFFER POINTERS AFTER TRANSFER 

UPDATE SECTOR NUMBER BY NUMBER OF SECTORS IN PREVIOUS TRANSFER 
END 6 (END OF SECTOR SELECTION LOOP) 

END 5 (END OF TEST FOR AN ACTIVE UNIT) 

END 4 (END OF TESTLOOP) 

END 3 (END OF LOGICAL UNIT SELECTION LOOP) 

END 2 (END OF REPEAT LOOP FOR THIS ROUTINE) 

RE TURN 

END 1 (END OF ROUTINE) 


label 



CZML8B0 PERFORMANCE EXERCISER 
RNDU SELECTING A RANDOM UNIT 


MACRO Mil 13 29-MAR-82 13:41 PAGE 


I 6 
267 


SEO 0279 


12479 

12480 

12481 

12482 

12483 

12484 

12485 

12486 

12487 

12488 

12489 

12490 

12491 

12492 

12493 

12494 

12495 

12496 

12497 

12498 

12499 

12500 
125CI 

12502 

12503 

12504 

12505 

12506 

1250 7 

12508 

12509 

12510 

12511 

12512 

12513 

12514 

12515 

12516 

12517 

12518 

12519 

12520 

12521 

12522 

12523 

12524 

12525 

12526 

12527 

12528 

12529 

12530 

12531 

12532 

12533 


MLX4 


6797 

6798 

6799 

6800 
6801 
6802 

6803 

6804 

6805 

6806 

6807 

6808 

6809 

6810 
6811 
6812 

6813 

6814 

6815 

6816 

6817 

6818 

6819 

6820 
6821 
6822 

6823 

6824 

6825 

6826 

6827 

6828 

6829 

6830 

6831 

6832 

6833 

6834 

6835 

6836 

6837 

6838 

6839 

6840 

6841 

6842 

6843 

6844 

6845 

6846 
6047 
6848 


TESTING RANDOM DATA 

LOOP; 

local 

URDCNT. 

VALUE, 

OLDSEC. 

OLDCHN. 

SECTOR, 

PTR, 

''OMMAND, 

08L. VALUE; 

PRINTS < SAV 1 , RTN5A); 

! ’RAND1 ' 

incr COUNT from 1 to .REPEAT do 
begin 
GEN5 (>; 


27-Mar-1982 19:24:42 
27-Mar-1982 19:23:44 


T0PS-20 Bliss-16 V2C212) 
PA:<NEALE>MLX4.BLl .5 (44) 


!* 2 * START OF REPEAT LOOP FOR THIS ROUTINE 
! FIRST 3 WORDS OF WBUFF ARE THE SEEDS 


LOOP 


incr LUN from 0 to 
begin 

begin 


( . LSUNIT - 1) do 


• * 


' * 


3 * START OF LOGICAL UNIT SELECTION LOOP 

4 * START OF THE LOOP THAT COMPLETELY TESTS 1 UNIT 


if .DRIVE.STATUS [.LUN] eql ACTIVE 
then 

begin 

LSLUN = .LUN; 

WPTR = UB'JFF; 

RPTR = R8UFF; 

SECTOR = LOWEST; 

while .SECTOR lequ HIGHEST do 

Wr8cNT = GET URDCNT (.SECTOR, HIGHEST) ; 

SET PTRS (.WRDCNT) ; 

VALDE = write (.UN. .URDCNT, .UPTR, .SECTOR); 


!* 5 * START OF TEST FOR AN ACTIVE UNIT 


* 6 * START OF SECTOR SELECTION LOOP 


SEE HOU SUCCESSFUL THE URITE UAS: 


selectone 

set 


.VALUE Of 


m 


J SEE 'SYSERR* FOR DEFINITION 
•OF ERROR # CONTAINED IN ’VALUE' 


!* 6A * RETRY ALLOUED 


begin 

if RETRY (SIX. write. .LUN, .WRDCNT, .UPTR. .SECTOR) neq 0 
then .'THE RETRY FAILED — SYSTEM FATAL ERROR 

begin 

WHY.DROPT [.LUN] = C0DE.4; 



SEQ 0280 


J 6 
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12535 ;MLX4 

12536 ; 

12537 

12538 

12539 

12540 

12541 

12542 

12543 

12544 

12545 

12546 

12547 

12548 

12549 

12550 

12551 

12552 

12553 

12554 

12555 

12556 

12557 

12558 

12559 

12560 

12561 

12562 

12563 

12564 

12565 

12566 

12567 

12568 

12569 

12570 

12571 

12572 

12573 

12574 

12575 

12576 

12577 

12578 

12579 

12580 

12581 

12582 

12583 

12584 

12585 

12586 

12587 

12588 

12589 


6849 

6850 

6851 

6852 

6853 

6854 

6855 

6856 

6857 

6858 

6859 

6860 
6861 
6862 

6863 

6864 

6865 

6866 

6867 

6868 

6869 

6870 

6871 

6872 

6873 

6874 

6875 

6876 

6877 

6878 

6879 

6880 
6881 
6882 

6883 

6884 

6885 

6886 

6887 

6888 

6889 

6890 

6891 

6892 

6893 

6894 

6895 

6896 

6897 

6898 

6899 

6900 


27-Mar-1982 19:24:42 TOPS-20 Bliss-16 V21212) 
TESTING RANDOM DATA 27-Mar-1982 19:23:44 PA: <NEALE>MLX4 .BLl .5 (44) 

ERRDF (5101, MSG1, 0); !**** OPTION 5, RAND1 ERROR 01 **•* 

DODU (.LUN); 
leave LOOP; 
end; 

end; 

C23 : 
begin 

WHY DROPT C.LUNJ = 

ERR&F (5102, MSG1 , 

DODU (.LUN); 
leave LOOP; 
end; 

[33 : 
begin 

ERRDF (5103, MSG1. 

WHY DROPT C.LUNj = 

DODO (.LUN); 
leave LOOP; 
end; 

tes; 

COMMAND = CHOOSE (); 

if .COMMAND eql read 
then 

begin 

PTR - RP7R* 

VALUE = reacJ (.LUN, .WRDCNT, .RPTR, .SECTOR); 
end 

else 

begin 

PTR = .WPTR; 

VALUE = CHECK (.LUN, .WRDCNT, .WPTR, .SECTOR); 
end; 


SEE HOW SUCCESSFUL THE OPERATION WAS: 


.'JUMP JUST BEYOND END OF BLOCK * 4 * 


! * 6A * 


! * 6B * FATAL CONTROLLER ERROR — NO RETRY ALLOWED 
CODE 5; 

0); ! **** OPTION 5, RAND1 ERROR 02 **♦* 

! JUMP JUST BEYOND END OF BLOCK * 4 * 

! * 68 * 


6C * FATAL DRIVE ERROR — NO RETRY ALLOWED 
0); ! **** OPTION 5, RAND1 ERROR 03 **** 

C0DE.6; 

!JLW> JUST BEYOND END OF BLOCK * 4 * 

! * 6C * 


selectone .VALUE of 
set 

E03 : 


! SEE 'SYSERR' FOR DEFINITION 
! OF ERROR # CONTAINED IN 'VALUE' 


if .COMMAND eql read 
then 

begin 

if (DBL.VALUE = DOU0LE.CHECK (.WPTR, .RPTR. .WRDCNT)) neq 0 
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SEQ 0281 


12591 

12592 

12593 

12594 

12595 

12596 

12597 

12598 

12599 

12600 
12601 
12602 

12603 

12604 

12605 

12606 

12607 

12608 

12609 

12610 
12611 
12612 

12613 

12614 

12615 

12616 

12617 

12618 

12619 

12620 
12621 
12622 

12623 

12624 

12625 

12626 

12627 

12628 

12629 

12630 

12631 

12632 

12633 

12634 

12635 

12636 

12637 

12638 

12639 

12640 

12641 

12642 

12643 

12644 

12645 


;MLX4 
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6901 

6°02 

6903 

6904 

6905 

6906 

6907 

6908 

6909 

6910 

6911 

6912 

6913 

6914 

6915 

6916 

6917 

6918 

6919 

6920 

6921 

6922 

6923 

6924 

6925 

6926 

6927 

6928 

6929 

6930 

6931 

6932 

6933 

6934 

6935 

6936 

6937 

6938 

6939 
*940 

6941 

6942 

6943 

6944 

6945 

6946 

6947 

6948 

6949 

6950 

6951 

6952 


27-Mar-1982 19:24:42 
27-Mar-1982 19:23:44 


T0PS-20 Bliss-16 V2C212) 
PA:<NEALE>MLX4.BII.5 (44) 


then 


begin 

SAYWHO ' l UN) ’ 

PRINTS (SAY1/MSG5); ! 'ECC LOGIC FAILED TO DETECT DATA ERROR' 

PRINTB (FMT12A, ..DBL VALUE, .DBL VALUE); 

.‘•GOOD DATA: XXXXXX AT LOCATION YYYYYY 
DBL VALUE = .DBL.VALUE ♦ BUFSI2*2; 

PRlflTB (FMT12B, . . DBL. VALUE , .DBL VALUE); 

!*BAD DATA: PPPPPP AT LOCATION QQQQQQ 
WHY DROPT C.LUNJ = C0DE.8; „ _ _ 

ERR5f (5104, MSG1 , 0); !*•** OPTION 5, RAND1 ERROR 04 **** 

DODU (.LUN); 

leave LOOP; .'JUMP JUST BEYOND END OF BLOCK * 4 * 
end; 


end; 


[13 


begin 


!* 6D * RETRY ALLOWED 


if RETRY (SIX, .COMMAND. .LUN, .WRDCNT , .PTR, .SECTOR) neq 0 
then .'THE RETRY FAILED — SYSTEM FATAL ERROR 

WH? 1 DROPT C.LUNJ = C0DE.4; , . „ „ r 

ERRBF (5105, MSG1, 0); !**** OPTIO., 5, RAND1 ERROR 05 **** 
DODU (.LUN); 

leave LOOP; !JUMP JUST BEYOND END OF BLOCK * 4 * 
end; 


end; 


!* 6D * 


[ 23 


begin 

WHY DROPT E.LUN3 = CODE. 5; 

• / r 4 a y A \ . 


|*_6E * FATAL CONTROLLER ERROR — NO RETRY ALLOWED 
OPTION 5, RAND1 ERROR 06 **** 


wm • b • »» j — v 

ERRPF (5106, MSG1, 0); 

DODU (.LUN); 

leave LOOP; .'JUMP JUST BEYOND END OF BLOCK * 4 * 

end; 6E * 


[33 


bea in t - w» *»• * * • •— - ■ ■ • _ — - — 

ERRDF (5107, MSG1, 0); !•*** OPTION 5. RAND1 ERROR 07 **** 


WHY DROPT [.LUN3 
DODO (.LUN); 
leave LOOP; 
end; 


'* 6F * FATAL DRIVE ERROR --^NO^RETRY^ALLOWED 
C0DE.6; 

! JUMP JUST BEYOND END OF BLOCK * 4 * 

6F * 


[43 


I* 6G * UNRECOVERABLE DATA ERROR 

ERRDf' (5106, MSG2, 0); !***• OPTION 5, RAND1 ERROR 08 **** 

WHY_DROPT [.LUN3 = C0DE.7; 


begin 

ISOLATE (); 
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SEQ 0282 


12647 ;MLX4 

12648 ; 

12649 

12650 

12651 

12652 

12653 

12654 

12655 

12656 

12657 

12658 

12659 

12660 
12661 
12662 

12663 

12664 

12665 

12666 

12667 

12668 

12669 

12670 

12671 

12672 

12673 

12674 

12675 

12676 

12677 

12678 

12679 

12680 
12681 
12682 

12683 

12684 

12685 

12686 

12687 

12688 

12689 

12690 

12691 

12692 

12693 
12o94 

12695 

12696 

12697 

12698 

12699 

12700 

12701 
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6953 

6954 

6955 

6956 

6957 

6958 

6959 

6960 

6961 

6962 

6963 

6964 

6965 

6966 

6967 

6968 

6969 

6970 

6971 

6972 

6973 

6974 

6975 

6976 

6977 

6978 

6979 

6980 

6981 

6982 

6983 

6984 

6985 

6986 

6987 

6988 

6989 

6990 

6991 

6992 

6993 

6994 

6995 

6996 

6997 

6998 

6999 

7000 

7001 

7002 

7003 

7004 
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DODU (.LUN); 
leave LOOP; 
end; 


[53 


.'JUMP JUST BEYOND END OF BLOCK * 4 * 
! * 6G * 


! * 6H * RECOVERABLE DATA ERROR 


end; 


begin 

ISOLATE (); 

if .ERROUT then PRINTB (FMT10B, .CHAN); 

•' BIT QO' 

OIDSEC = .MLEL; 

OLDCHN = .CHAN; 

if RETRY (ONE. .COMMAND. .LUN. .WRDCNT, .PTR. .SECTOR) eql 5 
then 

if ((.MLEL eql .OLDSEC) and (.CHAN eql .OLDCHN)) 
then 

begin 

if .ERROUT then ERRHRD (5109, MSG4, 0); 

!***• OPTION 5. RAND1 ERROR 09 **** 

UP HARD.COUNT (.LUN. .BOARD); 

en3 

else 

begin 

if .ERROUT then ERRSOFT (5110. MSG3, 0); 

***** OPTION 5. RAND1 ERROR 10 **** 

UP S0FT_C0UNT (.LUN, .BOARD); 
en3 

begin 

if .ERROUT then ERRSOFT (5111, MSG3. 0); 

!***• OPTION 5, RAND1 ERROR 11 **** 

UP SOFT_COUNT (.LUN, .BOARD); 
en3; 

end; !* 6H * 

tes; 

UPTR = .yPTR * (,URDCNT*2); 

SECTOR = .SECTOR ♦ ( .yRDCNT/256) ; 

end; !* 6 * END OF SECTOR SELECTION LOOP 

!* 5 * END OF TEST FOR AN ACTIVE UNIT 


else 
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SEQ 0283 


12703 ;MLX4 

12704 ; 

12705 

12706 ; 7005 

12707 ; 7006 

12708 ; 7007 

12709 ; 7008 

12710 ; 7009 

12711 ; 7010 

12712 ; 7011 

12713 ; 7012 

12714 ; 7013 

12715 ; 7014 

12716 ; 7015 

12717 ; 7016 

12718 ; 7017 

12719 ; 7018 

12720 ; 7019 

12721 ; 7020 

12722 ; 7021 

12723 ; 7022 

12724 ; 7023 

12725 ; 7024 

12726 ; 7025 

12727 ; 7026 

12728 ; 7027 

12729 ; 7028 

12730 ; 7029 

12731 ; 7030 

12732 ; 7031 

12733 ; 7032 

12734 ; 7033 

12735 ; 7034 

12736 ; 7035 

12737 ; 7036 

12738 ; 7037 

12739 ; 7038 

12740 ; 7039 

12741 ; 7040 

12742 ; 7041 

12743 ; 7042 

12744 ; 7043 

12745 ; 7044 

12746 ; 7045 

12747 ; 7046 

12748 ; 7047 

12749 ; 7048 

12750 ; 7049 

12751 ; 7050 

12752 ; 7051 

12753 ; 7052 

12754 ; 7053 

12755 ; 7054 

12756 ; 7055 

12757 ; 7056 
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Test to see if this uut's address space is 
to be read for soft errors. This test is 
is intended for DMT purposes. 


if .EFNS21 
then 

begin 


! Is the background pattern to be read 


version czmlbb changed incr to incru 

incru SECTOR from LOWEST to HIGHEST do 


if read (.LUN, 256, RBUFF, .SECTOR) eql 5 
then 

begin 

ISOLATE (); .'Find the failing bank and board no. 

if .ERROUT then PRINTS (FMT10B, .CHAN); 

! Print where the error is 

j 

! Save the contents of the ML error location 
! register so we can compare it to the new 
! contents of this register after the retry. 

! This is done to classify the error. 

I 

0LDSEC = .MLEL; 

0LDCHN = .CHAN; 

I 

1 Do a classify retry call. If the same error 
.' occures then classify it as a hard error. If 
! a different error occured or the error went away 
J then classify it as a soft error. 

if RETRY (ONE, .COMMAND, .LUN, 256, .PTR, .0LDSEC) eql 5 
then 

j 

j The same error occured so see if it is at the same 
! sector and channel number, if so then classify 
! it as a hard error else classiy it as a soft 
! error. 

I 

if ((.MLEL eql .0LDSEC) and (.CHAN eql .0LDCHN)) 
then • . . 

begin .'Same error occured 'hard 
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SEQ 0284 


12759 

12760 

12761 

12762 

12763 

12764 

12765 

12766 

12767 

12768 

12769 

12770 

12771 

12772 

12773 

12774 

12775 

12776 

12777 

12778 

12779 

12780 

12781 

12782 

12783 

12784 

12785 

12786 

12787 

12788 

12789 

12790 

12791 

12792 

12793 

12794 

12795 

12796 

12797 

12798 

12799 

12800 
12801 
12802 

12803 

12804 

12805 

12806 

12807 

12808 

12809 

12810 


MLX4 
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7057 

7058 

7059 
P 7060 
P 7061 

7062 

7063 

7064 

7065 

7066 

7067 

7068 

7069 

7070 

7071 

7072 
P 7073 
P 7074 

7075 

7076 

7077 

7078 

7079 

7080 

7081 

7082 

7083 

7084 

7085 

7086 
P 7087 
P 7088 

7089 

7090 

7091 

7092 

7093 

7094 

7095 

7096 

7097 

7098 

7099 

7100 

7101 

7102 

7103 

7104 

7105 
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.'Print error if enabled 


else 


if .ERROUT 
then 

begin 

ERRHRD (5112. ! Error number 

MSG4, .'Error message 
0); lAdditional message routine 

end; 

UP HARD.COUNT (.LUN. .BOARD); 
end 


begin 


!Not the same error "soft* 
.'Print error if enabled 


if .ERROUT 
then 

begin 

ERRSOFT (5113, .'Error number 

MSG3, ! Error message 
0); .'Additional message routine 

end; 


UP 50FT.C0UNT (.LUN, .BOARD); 
end 


else 


begin 


!Not the same error 'soft' 
JPrint error if enabled 


if .ERROUT 
then 

begin 

ERRSOFT (5114, ! Error number 

MSG3, !Error message 

0); .'Additional message routine 

end; 

UP SOFT.COUNT (.LUN, .BOARD); 
end; 


end; 


end; 


end; 

J * 4 

* 

END OF 

end; 

! « 3 

* 

END OF 

end; 

! * 2 

t 

END OF 

return; . . __ 

end; 

1 

* 

END OF 



B 7 
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12815 




;MLX4 




27-Mar-1982 

19:24:42 

TOPS 

12816 




0 


TESTING RANDOM DATA 


27-Mar-1982 

19:23:44 

PA:< 

12817 











12818 











12819 





•SBTTL 

RAND1 TESTING RANDOM DATA 





12823 070540 

004167 

114570 


RAND1 : 

JSR 

R1.$SAVE5 

0 



6746 

12824 070544 

162706 

000020 



SUB 

#20, SP 





12825 070550 

012746 

007664 



MOV 

#RTN5A.-(SP) 

0 



6809 

12826 070554 

012746 

007072 



MOV 

#SAY1,-(SP) 





12827 070560 

012746 

000002 



MOV 

#2,-(SP) 





12828 070564 

010600 




MOV 

SP,R0 

; SP.* 




12829 070566 

104414 




TRAP 

14 





12830 070570 

005066 

000024 



CLR 

24CSP) 

; COUNT 



6812 

12831 070574 

000167 

002276 



JMP 

42$ 





12832 070600 

004767 

151014 


1$: 

JSR 

PC.GEN5 

0 



6814 

12833 070604 

016766 

111202 

000010 


MOV 

L$UNIT,10(SP) 

0 



6816 

12834 070612 

005066 

000006 



CLR 

6<SP> 

; LUN 




12835 070616 

000167 

002240 



JMP 

41$ 





12836 070622 

016600 

000006 


2$: 

MOV 

6(SP).R0 

; LUN.* 



6821 

12837 070626 

006200 




ASR 

RO 





12838 070630 

006200 




ASR 

RO 





12839 070632 

006200 




ASR 

RO 





12840 070634 

062700 

034442 



ADD 

#DRIVE. STATUS, RO 





12841 070640 

010046 




MOV 

RO.-CSP) 





12842 070642 

016646 

000010 



MOV 

10(SP).-(SP) 

; LUN,* 




12843 070646 

042716 

177770 



BIC 

#1 77770, (SP) 





12844 070652 

012746 

000001 



MOV 

#1,-(SP) 





12845 070656 

005046 




CLR 

-(SP) 





12846 070660 

004767 

113472 



JSR 

PC,8L$GT2 





12847 070664 

062706 

000010 



ADD 

#10. SP 





12848 070670 

005300 




DEC 

RO 





12849 070672 

001402 




BEQ 

4$ 





12850 070674 

000167 

001502 


3$: 

JMP 

29$ 





12851 070700 

016667 

000006 

111166 

4$: 

MOV 

6(SP) ,L$LUN 

; LUN.* 



6824 

12852 070706 

012767 

012670 

141754 


MOV 

#WBUFF,WPTR 

0 



6825 

12853 070714 

012767 

022670 

141750 


MOV 

#R8UFF,RPTR 

• 

0 



6826 

12854 070722 

016605 

000006 



MOV 

6(SP).R5 

; LUN,* 



6827 

12855 070726 

006305 




ASL 

R5 





12856 070730 

016503 

034460 



MOV 

LOW. SECT (R5) ,R3 

; *, SECTOR 




12857 070734 

020365 

034500 


5$: 

CMP 

R3, TOP. SECT (R5) 

; SECTOR,* 



6829 

12858 070740 

101355 




BH1 

3$ 





12859 070742 

010346 




MOV 

R3,-(SP) 

; SECTOR.* 



6831 

12860 070744 

016546 

034500 



MOV 

TOP. SEC T (R5) ,-(SP) 





12861 070750 

004767 

156222 



JSR 

PC.GET.URDCNT 





12862 070754 

010002 




MOV 

R0.R2 

; *,WRDCNT 




12863 070756 

010216 




MOV 

R2,(SP) 

; WRDCNT,* 



6832 

12864 070760 

004767 

156146 



JSR 

PC, SET. PTRS 





12865 070764 

016616 

000012 



MOV 

12(SP),(SP) 

; LUN.* 



6833 

12866 070770 

010246 




MOV 

R2,-(SP) 

; WRDCNT,* 




12867 070772 

016746 

141672 



MOV 

WPTR.-(SP) 





12868 070776 

010346 




MOV 

R3,-(SP) 

; SECTOR,* 




12869 071000 

004767 

154420 



JSR 

PC, WRITE 





12870 




;MLX4 




27-Mar-1982 

19:24:42 

TOPS 

12871 




; 


TESTING RANDOM DATA 


27-Mar-1982 

19:23:44 

PA:< 

12872 











12873 071004 

010004 




MOV 

R0.R4 

; *, VALUE 




12874 071006 

020427 

000001 



CMP 

R4,#1 

; VALUE,* 



6839 




SEG 0286 


6845 


; LUN.* 



; URDCNT.* 



; SECTOR,* 



; LUN,* 


6848 

• 


6849 

; LUN.* 


6850 

• 

0 


6851 

; VALUE.* 


6839 

; LUN.* 


6858 

0 


6859 

; LUN.* 


6860 

« 


6861 

; VALUE.* 


6839 

0 


6866 

; LUN,* 


6867 

; LUN,* 


6868 

0 


6869 

. 


6873 

; *, COMMAND 



9 


6875 

; COMMAND.* 



; *.PTR 


6878 


27-Mar-1982 19:24:42 

TOPS 


27-Mar-1982 19:23:44 

PA:< 

; LUN,* 


6879 


; WRDCNT,* 
; SECTOR,* 




0 7 

CZMLBBO PERFORMANCE EXERCISER MACRO Ml 113 29-MAR-82 13:41 PAGE 273-2 
RAND1 TESTING RANDOM DATA 


12932 071254 

004767 

154332 



JSR 

PC, READ 

12933 071260 

000413 




BR 

11$ 

12934 071262 

016766 

141402 

000032 

10$: 

MOV 

WPTH.32(SP) 

12935 071270 

016646 

000020 



MOV 

20(SP).-(SP) 

12936 071274 

010246 




MOV 

R2.-(SP) 

12937 071276 

016746 

141366 



MOV 

WPTR.-(SP) 

12938 071302 

010346 




MOV 

R3.-CSP) 

12939 071304 

004767 

154470 



JSR 

PC. CHECK 

12940 071310 

010004 



11$: 

MOV 

R0.R4 

12941 071312 

0011 O'* 




BNE 

15$ 

12942 071314 

006001 




ROR 

R1 

12943 071316 

103402 




BLO 

13$ 

12944 071320 

000167 

001014 


12$: 

JMP 

28$ 

12945 071324 

016746 

141340 


13$: 

MOV 

WPTR.-(SP) 

12946 071330 

016746 

141336 



MOV 

RPTR.-(SP) 

12947 071334 

010246 




MOV 

R2.-CSP) 

12948 071336 

004767 

152764 



JSR 

PC. DOUBLE. CHECK 

12949 071342 

062706 

000006 



ADD 

#6.SP 

12950 071346 

010066 

000036 



MOV 

R0,36(SP) 

12951 071352 

001762 




BEQ 

12$ 

12952 071354 

016646 

000030 



MOV 

30(SP),-(SP) 

12953 071360 

004767 

144140 



JSR 

PC.SAYWHO 

12954 071364 

012716 

011216 



MOV 

#MSG5, (SP) 

12955 071370 

012746 

007072 



MOV 

#SAY1 ,-(SP) 

12956 071374 

012746 

000002 



MOV 

#2,-( SP) 

12957 071400 

010600 




MOV 

SP.RO 

12958 071402 

104414 




TRAP 

14 

12959 071404 

016616 

000044 



MOV 

44 (SP) .(SP) 

12960 071410 

017646 

000044 



MOV 

344(SP).-(SP) 

12961 071414 

012746 

006710 



MOV 

#FMT12A,-(SP) 

12962 071420 

012746 

000003 



MOV 

#3.-(SP) 

12963 071424 

010600 




MOV 

SP.RO 

12964 071426 

104414 




TRAP 

14 

12965 071430 

062766 

010000 

000052 


ADD 

#10000. 52(SP) 

12966 071436 

016616 

000052 



MOV 

52(SP) f (SP) 

12967 071442 

017646 

000052 



MOV 

a52(SP).-(SP) 

12968 071446 

012746 

006756 



MOV 

#FMT128.-(SP) 

12969 071452 

012746 

000003 



MOV 

#3.-(SP) 

12970 071456 

010600 




MOV 

SP.RO 

12971 071460 

104414 




TRAP 

14 

12972 071462 

016601 

000052 



MOV 

52(SP).R1 

12973 071466 

112761 

000010 

034446 


M0V8 

#10,WHY.DR0PT(R1> 

12974 071474 

104455 




TRAP 

55 

12975 071476 

011760 




.WORD 

11760 

12976 071500 

011070 




.WORD 

MSG1 

12977 071502 

000000 




.WORD 

0 

12978 071504 

016600 

000052 



MOV 

52(SP).R0 

12979 071510 

104451 




TRAP 

51 

12980 




;MLX4 



12981 




• 


TESTING RANDOM DATA 

Icvo l 

12983 071512 

062706 

000044 



ADD 

#44, SP 

12984 071516 

000521 



14$: 

BR 

20$ 

12985 071520 

020427 

000001 


15$: 

CMP 

R4,#1 

12986 071524 

001035 




BNE 

16$ 

12987 071526 

012746 

000006 



MOV 

#6,-(SP) 

12988 071532 

016646 

000046 



MOV 

46(SP),-(SP) 


SEQ 0287 


*,PTR 

LUN,* 

WRDCNT,* 

SECTOR,* 

*, VALUE 


6883 

6884 


6891 

6896 


; URDCNT,* 


6900 


; *,DBL. VALUE 
; LUN,* 


; SP,* 

; DBL. VALUE,* 
; DBL. VALUE,* 

; SP,* 

; *, DBL. VALUE 
; DBL. VALUE,* 
; DBL. VALUE,* 

; SP.* 

; LUN.* 


LUN.* 


27-Mar-1982 19:24:42 
27-Mar- 1982 19:23:44 


; VALUE.* 

; COMMAND.* 


6903 

6904 

6905 


6907 ] 

6908 


6910 

6911 

6912 

TOPS 

PA:< 

6913 
6891 
6921 
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12989 

12990 

12991 

12992 

12993 

12994 

12995 

12996 

12997 

12998 

12999 

13000 

13001 

13002 

13003 

13004 

13005 

13006 

13007 

13008 

13009 

13010 

13011 

13012 

13013 

13014 

13015 

13016 

13017 

13018 

13019 

13020 

13021 

13022 

13023 

13024 

13025 

13026 

13027 

13028 

13029 

13030 

13031 

13032 

13033 

13034 

13035 

13036 

13037 
3038 
<039 

13040 

13041 

13042 

13043 

13044 

13045 


071536 
071542 
071544 
071550 
071 552 
071556 
071562 
071564 
071566 
071572 
071600 
071602 
071604 
071606 
071610 
071614 
071616 
071620 
071624 
071626 
071632 
071640 
071642 
071644 
071646 
071650 
071654 
071656 
071660 
071664 
071666 
071670 
071672 
071674 
071676 
071702 
071710 
071712 
071714 
071716 
071722 
071724 
071730 
071732 
071734 
071736 


071740 
071744 
071752 
071754 
071756 
071762 
071 766 
071772 


016646 

010246 

016646 

010346 

004767 

062706 

005700 

001655 

016601 

112761 

104455 

011761 

011070 

000000 

016600 

104451 

000457 

020427 

001015 

016601 

112761 

104455 

011762 

011070 

000000 

016600 

104451 

000437 

020427 

001014 

104455 

011763 

011070 

000000 

016601 

112761 

010100 

104451 

000420 

020427 

001021 

004767 

104455 

011764 

011120 

000000 


016601 

1.2761 

010100 

104451 

062706 

000167 

020427 

001162 


000034 

000052 

154446 

000014 


000030 

000004 034446 


000030 


000002 

000030 

000005 P34446 


000030 


000003 


000030 

000006 034446 


000004 

145402 


;MLX4 


MOV 

MOV 

MOV 

MOV 

JSR 

ADD 

TST 

BE a 

MOV 

M0V8 

TRAP 

.WORD 

.WORD 

.WORD 

MOV 

TRAP 

BR 

CMP 

BNE 

MOV 

M0V8 

TRAP 

.WORD 

.WORD 

.WORD 

MOV 

TRAP 

BR 

CMP 

BNE 

TRAP 

.WORD 

.WORD 

.WORD 

MOV 

H0V8 

MOV 

TRAP 

BR 

CMP 

BNE 

JSR 

TRAP 

.WORD 

.WORD 

.WORD 


000030 


MOV 

000007 034446 


MOVB 

MOV 

TRAP 

000022 

19$: 

ADD 

001070 

20$: 

JMP 

000005 

21$: 

CMP 

BNE 


34<SP),-<SP> 

R2.-<S P) 

52(SP),-(SP) 

R3.-CSP) 

PC. RETRY 
#14, SP 
RO 
12 $ 

30(SP),R1 

#4,WHY.DR0PT(R1> 

55 

11761 
MSG1 
0 

30CSP) ,R0 

51 

19$ 

R4,#2 

17$ 

30CSP1.R1 
#5,WHY .DROPTfRI ) 

55 

11762 
MSG1 
0 

30(SP) ,R0 

51 

19$ 

R4.#3 

18$ 

55 

11763 
MSG1 
0 

30 (SP) ,R1 

#6,WHY.DR0PT(R1) 

R1.R0 

51 

19$ 

R4,#4 

21 $ 

PC. ISOLATE 
55 

11764 
MSG2 
0 

TESTING RANDOM DATA 

30(SP) ,R1 
#7.WHY.DR0PT(R1) 
R1.R0 
51 

#22. SP 
40$ 

R4.#5 

28i 


SEO 0288 


LUN.* 

WRDCNT,* 

PTR,* 

SECTOR.* 


; LUN,* 

0 


6924 

6925 

; LUN,* 


6926 

6927 

; VALUE.* 


6891 

; LUN.* 

9 


6934 

6935 

; LUN,* 


6936 

6937 

; VALUE,* 

9 


6891 

6942 

; LUN.* 


6943 

; LUN,* 


6944 

• 

0 


6945 

: VALUE.* 


6891 

■ 


6950 

9 


6951 


27-Mar-1982 19:24:42 

TOPS 


27-Mar-1982 19:23:44 

PA:< 

; LUN.* 


6952 

; LUN,* 


6953 



6954 

; VALUE,* 


6891 
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13046 071774 

004767 

145332 


JSR 

PC. ISOLATE 

13047 072000 

032767 

000001 

110252 

BIT 

#1.ERR0UT 

13048 072006 

001423 



BEQ 

22* 

13049 072010 

017701 

142374 


MOV 

3ML.REG+42.R1 

13050 072014 

006201 



ASR 

R1 

13051 072016 

006201 



ASR 

R1 

13052 072020 

006201 



ASR 

R1 

13053 072022 

006201 



ASR 

R1 

13054 072024 

006201 



ASR 

R1 

13055 072026 

006201 



ASR 

R1 

13056 072030 

042701 

177700 


BIC 

#1 77700.R1 

13057 072034 

010146 



MOV 

RI.-(SP) 

13058 072036 

012746 

006640 


MOV 

fFMTIOB.-(SP) 

13059 072042 

012746 

000002 


MOV 

#2.-(SP> 

13060 072046 

010600 



MOV 

SP.RO 

13061 072050 

104414 



TRAP 

14 

13062 072052 

062706 

000006 


ADD 

#6,SP 

13063 072056 

017766 

142330 

000040 22$: 

MOV 

8ML.REG*44,40(SP) 

13064 072064 

017701 

142320 


MOV 

9ML.REGK2.R1 

13065 072070 

006201 



ASR 

R1 

13066 072072 

006201 



ASR 

R1 

13067 072074 

006201 



ASR 

R1 

13068 072076 

006201 



ASR 

R1 

13069 072100 

006201 



ASR 

R1 

13070 072102 

006201 



ASR 

R1 

13071 072104 

042701 

177700 


BIC 

*1 77700. R1 

13072 072110 

010166 

000034 


MOV 

R1.34CSP) 

13073 072114 

012746 

000001 


MOV 

#1.-<SP) 

13C74 072120 

016646 

000046 


MOV 

46<SP).-(SP) 

13075 072124 

016646 

000034 


MOV 

34(SP) ,-(SP> 

13076 072130 

010246 



MOV 

R2.-CSP) 

13077 072132 

016646 

000052 


NOV 

52(SP),-(SP) 

13078 072136 

010346 



MOV 

R3.-CSP) 

13079 072140 

004767 

154060 


JSR 

PC. RETRY 

13080 072144 

062706 

000014 


ADD 

#14. SP 

13081 072150 

020027 

000005 


CMP 

R0.#5 

13082 072154 

001052 



BNE 

25$ 

13083 072156 

027766 

142230 

000040 

CMP 

BML.REG*44,40(SP) 

13084 072164 

001035 



BNE 

24$ 

13085 072166 

016600 

000034 


MOV 

34 (SP) ,R0 

13086 072172 

017701 

142212 


NOV 

BML.REG+42.R1 

13087 072176 

006201 



ASR 

R1 

13088 072200 

006201 



ASR 

R1 

13089 072202 

006201 



ASR 

R1 

13090 



;MLX4 



13091 



• 


TESTING RANDOM DA 

13092 






13093 072204 

006201 



ASR 

R1 

13094 072206 

006201 



ASR 

R1 

13095 072210 

006201 



ASR 

R1 

13096 072212 

04 2701 

177700 


BIC 

#1 77700. R1 

13097 072216 

020100 



CMP 

R1.R0 

13098 072220 

001017 



BNE 

24$ 

13099 072222 

032767 

000001 

110030 

BIT 

#1 .ERROUT 

13100 072230 

001404 



BEQ 

23$ 

13101 072232 

104456 



TRAP 

56 

13102 072234 

011765 



.WORD 

11765 


SEQ 0289 

6959 

6961 


; SP .* 


; *,OLDSEC 


6964 

6965 


*,0LDCHN 

COMMAND.* 
LUN,* 
WRDCNT . * 
PTR,* 
SECTOR.* 


6967 


; *.OLDSEC 6970 

; OLDCHN,* 


27-Mar-1982 19:24:42 TOPS 
27-Mar-1982 19:23:44 PA:< 


6974 
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13103 072236 

011202 




.WORD 

MSG4 

13104 072240 

000000 




.WORD 

0 

13105 072242 

016646 

000030 


23$: 

MOV 

30(SP) ,-(SP) 

13106 072246 

016746 

142070 



MOV 

BOARD. -(SP) 

13107 072252 

004767 

145144 



JSR 

PC, UP. HARD. COUNT 

13108 072256 

000427 




BR 

27$ 

13109 072260 

032767 

000001 

107772 

24$: 

BIT 

#1.ERR0UT 

13110 072266 

001415 




BEQ 

26§ 

13111 072270 

104457 




TRAP 

57 

13112 072272 

011766 




.WORD 

11766 

13113 072274 

011166 




.WORD 

MSG3 

13114 072276 

000000 




.WORD 

0 

13115 072300 

000410 




BR 

26$ 

13116 072302 

032767 

000001 

107750 

2S$: 

BIT 

#1.ERR0UT 

13117 072310 

001404 




BEQ 

26$ 

13118 072312 

104457 




TRAP 

57 

13119 072314 

011767 




.WORD 

11767 

13120 072316 

011166 




.WORD 

MSG3 

13121 072320 

COOOOO 




.WORD 

0 

13122 072322 

016646 

000030 


26$: 

MOV 

30(SP) ,-(SP) 

13123 072326 

016746 

142010 



MOV 

BOARD, -(SP) 

13124 072332 

004767 

145546 



JSR 

PC. UP. SOFT. COUNT 

13125 072336 

022626 



27$: 

CMP 

(SP)+.(SP)+ 

13126 072340 

010200 



28$: 

MOV 

R2.R0 

13127 072342' 

006300 




ASL 

RO 

13128 072344 

066700 

140320 



ADD 

WPTR.RO 

13129 072350 

010067 

140314 



MOV 

RO.WPTR 

13130 072354 

010216 




MOV 

R2, (SP) 

13131 072356 

012746 

000400 



MOV 

#400. -(SP) 

13132 072362 

004767 

112602 



JSR 

PC.8LSDIV 

13133 072366 

060300 




ADD 

R3.R0 

13134 072370 

010003 




MOV 

R0.R3 

13135 072372 

062706 

000024 



ADD 

#24. SP 

13136 072376 

000167 

176332 



JMP 

5$ 

13137 072402 

032767 

000001 

107652 

29$: 

BIT 

#1 ,EFN$21 

13138 072410 

001002 




BNE 

30$ 

13139 072412 

000167 

000440 



JMP 

40$ 

13140 072416 

016600 

000006 


30$: 

MOV 

6(SP),R0 

13141 072422 

006300 




ASL 

RO 

13142 072424 

016001 

034500 



MOV 

TOP. SECT (RO) ,R1 

13143 072430 

016005 

034460 



MOV 

LOW. SECT (RO) ,R5 

13144 072434 

000167 

000406 



JMP 

39$ 

13145 




;MLX4 



13146 




• 

9 


TESTING RANDOM DATA 

13147 







13148 072440 

016646 

000006 


31$: 

MOV 

6(SP).-(SP) 

13149 072444 

012746 

000400 



MOV 

#400. -(SP) 

13150 072450 

012746 

022670 



MOV 

#RBUFF.-(SP) 

13151 072454 

010546 




MOV 

R5.-CSP) 

13152 072456 

004767 

153130 



JSR 

PC.READ 

13153 072462 

062706 

000010 



ADD 

#10. SP 

13154 072466 

020027 

000005 



CMP 

R0,#5 

13155 072472 

001164 




BNE 

38i 

13156 072474 

004767 

144632 



JSR 

PC. ISOLATE 

13157 072500 

032767 

000001 

107552 


BIT 

#1 .ERROUT 

13158 072506 

001423 




BEQ 

32i 

13159 072510 

017700 

141674 



MOV 

3ML.REG+42.R0 


LUN,* 


SEQ 0290 

6977 

6970 

6982 


6985 

6991 


.* LUN,* 

; WRDCNT,* 


6994 

6958 

7000 


; WRDCNT,* 

; SECTOR,* 
; *, SEC TOR 

; LUN,* 

; *, SECTOR 

; LUN,* 

; SECTOR,* 


7001 


6830 

6829 

7012 


7019 


27-Mar-1982 19:24:42 TOPS 
27-Mar-1982 19:23:44 PA:< 

7021 


7024 

7026 
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SEO 

0291 

13160 072514 

006200 




ASR 

RO 





13161 072516 

006200 




ASR 

RO 





13162 072520 

006200 




ASR 

RO 





13163 072522 

006200 




ASR 

RO 





13164 072524 

006200 




ASR 

RO 





13165 072526 

006200 




ASR 

RO 





13166 072530 

042700 

177700 



BJC 

Ml 77700 . RO 





131 67 072534 

010046 




MOV 

RO.-(SP) 





13168 072536 

012746 

006640 



MOV 

#FMT10B,-(SP) 





13169 072542 

012746 

000002 



MOV 

#2.-(SP> 





13170 072546 

010600 




MOV 

SP.RO 

; SP,* 




13171 072550 

104414 




TRAP 

1 4 






13172 072552 

062706 

000006 



ADD 

#6.SP 






13173 072556 

017766 

141630 

000016 

32$: 

MOV 

8ML.REG*44,16<SP) 

; *.OLDSEC 



7035 


13174 072564 

017700 

141620 



MOV 

8ML.REG+42.R0 

* 



7036 


13175 072570 

006200 




ASR 

RO 






13176 072572 

006200 




ASR 

RO 






13177 072574 

006200 




ASR 

RO 



i 



13178 072576 

006200 




ASR 

RO 






13179 072600 

006200 




ASR 

RO 






13180 072602 

006200 




ASR 

RO 






13181 072604 

042700 

177700 



BIC 

#1 77700, RO 






13182 072610 

010066 

000012 



MOV 

R0.12CSP) 

; *,0LDCHN 





13183 072614 

012746 

000001 



MOV 

#1,-(SP> 

9 



7044 


13184 072620 

016646 

000024 



MOV 

24(SP),-(SP) 

; COMMAND.* 





13185 072624 

016646 

000012 



MOV 

12<SP).-(SP> 

; LUN,* 





13186 072630 

012746 

000400 



MOV 

#400. -(SP) 






13187 072634 

016646 

000030 



MOV 

30<SP),-(SP> 

; PTR,* 





13188 072640 

016646 

000030 



MOV 

30(SP),-(SP) 

; OLDSEC,* 





13189 072644 

004767 

153354 



JSR 

PC. RE TRY 






13190 072650 

062706 

000014 



ADD 

#14, SP 






13191 072654 

020027 

000005 



CM P 

R0,#5 






13192 072660 

001052 




8NE 

35$ 






13193 072662 

027766 

141524 

000016 


CMP 

iML .REG+44, 16CSP) 

; *, OLDSEC 



7053 


13194 072670 

001035 




BNE 

34$ 






13195 072672 

016646 

000012 



MOV 

12<SP) ,-<SP) 

; OLDCHN.* 





13196 072676 

017700 

141506 



MOV 

8ML.REG+42.R0 






13197 072702 

006200 




ASR 

RO 






13198 072704 

006200 




ASR 

RO 






13199 072706 

006200 




ASR 

RO 






13200 




:MLX4 



27-Mar-1982 

19:24:42 

TOPS 


13201 






TESTING RANDOM DATA 


27-Mar-1982 

19:23:44 

PA:< 


13202 












13203 072710 

006200 




ASR 

RO 






13204 072712 

006200 




ASR 

RO 






13205 072714 

006200 




ASR 

RO 






13206 072716 

042700 

177700 



BJC 

#1 77700.RO 






13207 072722 

020026 




CMP 

RO.(SP)* 






13208 072724 

001017 




BNE 

34$ 






13209 072726 

032767 

000001 

107324 


BIT 

#1 .ERROUT 

9 



7057 


13210 072734 

001404 




BEQ 

33* 






13211 072736 

104456 




TRAP 

56 

• 



7062 


13212 072740 

011770 




.WORD 

11770 






13213 072742 

011202 




.WORD 

MSG4 






13214 072744 

000000 




.wo;<d 

0 






13215 0 72746 

016646 

000006 


33$: 

MOV 

6(SP),-(SP) 

; LUN,* 



7065 


13216 072752 

016746 

141364 



MOV 

BOARD. -(SP) 
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13217 

072756 

004767 

144440 



JSR 

PC. UP. HARD. COUNT 



13218 

072762 

000427 




BR 

37$ 

# 


15219 

072764 

032767 

000001 

107266 

34$: 

BIT 

#1 .ERROUT 

# 


13220 

072772 

001415 




BEQ 

36$ 



13221 

072774 

104457 




TRAP 

57 

* 


13222 

072776 

01177i 




.WORD 

11771 



13223 

073000 

011166 




.WORD 

HSG3 



13224 

073002 

000000 




.WORD 

0 



13225 

073004 

000410 




BR 

36$ 

0 


13226 

073006 

032767 

000001 

107244 

35$: 

BIT 

#1. ERROUT 

0 


13227 

073014 

001404 




BEQ 

36$ 



13228 

073016 

104457 




TRAP 

57 

• 

# 


13229 

073020 

011772 




.WORD 

11772 



13230 

073022 

011166 




.WORD 

MSG3 



13231 

073024 

000000 




.WORD 

0 



13232 

073026 

016646 

000006 


36$: 

MOV 

6CSP) ,-(SP) 

0 

LUN.* 

13233 

073032 

016746 

141304 



MOV 

BOARD. -(SP) 



13234 

073036 

004767 

145042 



JSR 

PC # UP. SOFT. COUNT 



13235 

073042 

022626 



37$: 

CMP 

(SP)*,(SP>* 

0 


13236 

073044 

005205 



38$: 

INC 

R5 

0 

SECTOR 

13237 

073046 

020501 



39$: 

CMP 

R5.R1 

• 

0 

SECTOR,* 

13238 

073050 

101002 




BHI 

40$ 



13239 

073052 

000167 

177362 



JMP 

31$ 



13240 

073056 

005266 

000006 


40$: 

INC 

6(SP) 

0 

LUN 

13241 

073062 

026666 

000006 

000010 

41$: 

CMP 

6(SP),10(SP) 

0 

LUN,* 

13242 

073070 

002002 




BGE 

42$ 



13243 

073072 

000167 

175524 



JMP 

2$ 



13244 

073076 

005266 

000024 


42$: 

INC 

24(SP) 

• 

0 

COUNT 

13245 

073102 

026666 

000024 

000044 


CMP 

24(SP).44(SP> 

0 

COUNT, REPEAT 

13246 

073110 

003002 




BGT 

43$ 



13247 

073112 

000167 

175462 



JMP 

1$ 



13248 

073116 

062706 

000026 


43$: 

ADD 

#26, SP 

0 


13249 

073122 

000207 




RTS 

PC 



13250 










13251 





; Routine Size: 

634 words 



13252 





; Maximum stack depth per invocation: 

35 words 


13260 










13261 











SEQ 0292 

7053 

7070 

7075 

7078 

7084 

7089 

7092 

7023 

7019 

6816 

6812 

6746 
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13263 

MLX4 

13264 

13265 

13266 

7106 

13267 

7107 

13268 

7108 

13269 

7109 

13270 

7110 

13271 

7111 

13272 

7112 

13273 

7113 

13274 

7114 

13275 

7115 

13276 

7116 

13277 

7117 

13278 

7118 

13279 

7119 

13280 

7120 

13281 

7121 

13282 

7122 

13283 

7123 

13284 

7124 

13285 

7125 

13286 

7126 

13287 

7127 

13288 

7128 

13289 

7129 

13290 

7130 

13291 

7131 

13292 

7132 

13293 

7133 

13294 

7134 

13295 

7135 

13296 

7136 

13297 

7137 

13298 

7138 

13299 

7139 

13300 

7140 

13301 

7141 

13302 

7142 

13303 

7143 

13304 

7144 

13305 

7145 

13306 

7146 

13307 

7147 

13308 

7148 

13309 

7149 

13310 

7150 

13311 

7151 

13312 

7152 

13313 

7153 

13314 

7154 

13315 

7155 

13316 

7156 

13317 

7157 


TESTING RANDOM DATA t WORD COUNTS 

Xsbttl 'TESTING RANDOM DATA t WORD COUNTS' 
routine RAND 2 (REPEAT) : novalue = 
begin 


27-Mar-1982 19:24:42 
27-Mar-1982 19:23:44 


1 • START OF ROUTINE 


♦ ♦ 


ROUTINE: RAND2 (REPEAT) 

PURPOSE: TO TEST ALL UNITS IN A SEQUENTIAL FASHION. BUT 

USING RANDOM WORD COUNTS 

ARGUMENT: REPEAT = NUMBER OF TIMES TO EXECUTE THIS ROUTINE 

BEFORE RETURNING TO THE CALLER (OPTS). 

NOTE: SINCE ONLY THE WORD COUNTS AND THE DATA ARE RANDOM, 

THE OTHER TRANSFER VALUES MUST BE SET UP BY THIS 
ROUTINE. THESE VALUES INCLUDE: 

THE LUN. SECTOR AND BUFFER POINTERS. 

THE CODE FOR 'RAND2* IN BRIEF: 

BEGIN 1 (START OF ROUTINE) 

SAY ROUTINE IS RUNNING 
I NCR COUNT FROM 1 TO REPEAT 
BEGIN 2 (START OF REPEAT LOOP FOR THE ROUTINE) 

INCR LUN FROM 0 TO LAST 

BEGIN 3 (START OF LOGICAL UNIT SELECTION LOOP) 

GENERATE THE RANDOM PATTERN 
TESTLOOP: 

BEGIN 4 (START OF LOOP THAT COMPLETELY TESTS 1 UNIT) 

IF UNIT IS ACTIVE 
THEN 

BEGIN 5 (START OF TEST FOR AN ACTIVE UNIT) 

SECTOR = LOWEST 

INITIALIZE THE WRITE AND READ BUFFER POINTERS 
WHILE SECTOR LEO HIGHEST DO 
BEGIN 6 (START OF A PASS THROUGH ALL SECTORS) 

CHOOSE A RANDOM WORD COUNT 
SET UP BUFFER POINTERS BEFORE TRANSFER 
CALCULATE NEXT STARTING SECTOR (BASED ON WORD COUNT) 

IF NEXT STARTING SECTOR GTR HIGHEST 
: THEN ADJUST THE WORD COUNT & NEXT SECTOR SO THEY FIT 
WITHIN THE TESTABLE SECTOR LIMITS 

WRITE 

LOOK FOR ERRORS (IF DROP UNIT. LEAVE TESTLOOP' 

CHOOSE WHETHER TO WRITE CHECK OR READ 
DO THE WRITE CHECK OR READ 
LOOK FOR ERRORS (IF DROP UNIT, LEAVE TESTLOOP) 

SECTOR = THE CALCULATED NEXT STARTING SECTOR 
CHANGE BUFFER POINTERS AFTER TRANSFER 
END 6 (END OF A PASS THROUGH ALL SECTORS) 

END 5 (END OF TEST FOR AN ACTIVE UNIT) 

END 4 (END TESTLOOP) 


TOPS-20 Bliss-16 V2(212) 
PA :<NEALE>HLX4 .BLI .5 (45) 


SEQ 0293 
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SEQ 0294 


13319 ;MLX4 

13320 ; 

13321 

13322 

13323 

13324 

13325 

13326 

13327 

13328 

13329 

13330 

13331 

13332 

13333 

13334 

13335 

13336 

13337 

13338 

13339 

13340 

13341 

13342 

13343 

13344 

13345 

13346 

13347 

13348 

13349 

13350 

13351 

13352 

13353 

13354 

13355 

13356 

13357 

13358 

13359 

13360 

13361 

13362 

13363 

13364 

13365 

13366 

13367 

13368 

13369 

13370 

13371 

13372 

13373 


TESTING RANDOM DATA S WORD COUNTS 


27-Mar-1982 19:24:42 
27-Mar-1 982 19:23:44 


TOPS -20 Bliss-16 V2(212) 
PA:<NEALE>MLX4.8ll.5 (45) 


7158 

7159 

7160 

7161 

7162 

7163 

7164 

7165 

7166 

7167 

7168 

7169 

7170 

7171 

7172 

7173 

7174 

7175 

7176 

7177 

7178 

7179 

7180 

7181 

7182 

7183 

7184 

7185 

7186 

7187 

7188 

7189 

7190 

7191 

7192 

7193 

7194 

7195 

7196 

7197 

7198 

7199 

7200 

72 01 

7202 

7203 

7204 

7205 

7206 

7207 

7208 

7209 


LOOP 


: : END 3 (END OF LOGICAL UNIT SELECTION LOOP) 
: END 2 (END OF REPEAT LOOP FOR THIS ROUTINE) 
RETURN 

END 1 (END OF ROJTINE) 


local 

WRDCNT, 

SECTOR, 

NEXT SECT. 

VALUE. 

OlDStC, 

GlDCHN, 

PTR, 

COMMAND. 

DBL.VALUE; 

label 

LOOP; 

PRINTS (SAY1. RTN5B); 

.'•RAND2* 

incr COUNT from 1 to .REPEAT do 
begin 

incr LUN from 0 to (.L$UNIT - 1) do 
begin 
GEN5 (); 

begin 

if .DRIVE.STATUS C.LUNJ eql ACTIVE 
then 

begin 

LSLUN = .LUN; 

SECTOR = LOWEST; 

WPTR = W8UFF; 

RPTR = R8UFF; 


!* 2 * START OF REPEAT LOOP FOR THIS ROUTINE 

!* 3 * START OF LOGICAL UNIT SELECTION LOOP 

.'RANDOM DATA PATTERN 

!* 4 * START OF THE LOOP FOR COMPLETELY TESTING 1 UNIT 

!* 5 * START OF TEST FOR AN ACTIVE UNIT 


while .SECTOR leqa HIGHEST do 
begin 
RDC 


<* 6 * START OF A PASS THROUGH ALL SECTORS 
! EXPECT VALUE BETWEEN 1 AND BUFSIZ 


WRDCNT = RNDWC (); 

SET PTRS (.WRDCNT); 

NEXT.SECT = .SECTOR ♦ (.WRDCNT/256); 

if .SECTOR eql .NEXT.SECT then NEXT.SECT = .NEXT.SECT ♦ 1; 

if .NEXT SECT gtra HIGHEST 
then 

WRDCNT = 256* (HIGHEST - .SECTOR *1); 
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SEG 0295 


13375 

13376 

13377 

13378 

13379 

13380 

13381 

13382 

13383 

13384 

13385 

13386 

13387 

13388 

13389 

13390 

13391 

13392 

13393 

13394 

13395 

13396 

13397 

13398 

13399 

13400 

13401 

13402 

13403 

13404 

13405 

13406 

13407 

13408 

13409 

13410 

13411 

13412 

13413 

13414 

13415 

13416 

13417 

13418 

13419 

13420 

13421 

13422 

13423 

13424 

13425 

13426 

13427 

13428 

13429 


; ML X4 


TESTING RANDOM DATA & WORD COUNTS 


27-Mar-1982 19:24:42 
27-Mar-1982 19:23:44 


T0PS-20 Bliss-16 V2(212) 
PA:<NEALE>MLX4.BLI.5 (45) 


7210 

7211 

7212 

7213 

7214 

7215 

7216 

7217 

7218 

7219 

7220 

7221 

7222 

7223 

7224 

7225 

7226 

7227 

7228 

7229 

7230 

7231 

7232 

7233 

7234 

7235 

7236 

7237 

7238 

7239 

7240 

7241 

7242 

7243 

7244 

7245 

7246 

7247 

7248 

7249 

7250 

7251 

7252 

7253 

7254 

7255 

7256 

7257 

7258 

7259 

7260 

7261 


NEXT.SECT = HIGHEST ♦ 1; 
end; 

VALUE = write (.LUN, .WRDCNT, .WPTR, .SECTOR); 
* SEE HOW SUCCESSFUL THE WRITE WAS: 


selectone .VALUE of 
set 

Cl 3 : 
begin 


.'SEE ’SYSFRR' FOR DEFINITION 
• OF ERROR # CONTAINED IN ’VALUE’ 


6A * RETRY ALLOWED 


if RETRY (SIX. write. .LUN. .WRDCNT, .WPTR, .SECTOR) neq 0 
then ! THE RETRY FAILED — SYSTEM FATAL ERROR 

begin 

WHY DROPT C.LUNJ = C0DE.4; 

ERRPF (5201. MSG1 , 0); .'**** OPTION 5, RAND2 ERROR 01 **** 

DODU (.LUN); 

leave LOOP; !JUMP JUST BEYOND END OF BLOCK * 4 * 
end; 


end; 


6A * 


123 : 

begin !* 68 * FATAL CONTROLLER ERROR ~ NO RETRY ALLOWED 

WHY DROPT C.LUNJ = C0DE.5; 

ERR5F (5202, MSG1 , 0); .'**** OPTION 5, RAND2 ERROR 02 **** 

DODU (.LUN); 

leave LOOP; !JUMP JUST BEYOND END OF BLOCK * 4 * 

end; !* 68 * 

C33 begin !* 6C * FATAL DRIVE ERROR — NO RETRY ALLOWED 

ERRDF (5203, MSG1 , 0); .'**** OPTION 5. RAND 2 ERROR 03 **** 

WHY DROPT C.LUNJ = C0DE.6; 

DODO (.LUN); 

leave LOOP; !JUMP JUST BEYOND END OF BLOCK * 4 * 

end; ! * 6C * 

tes; 

COMMAND = CHOOSE (>; 

if .COMMAND eql read 
then 

begin 

PTR = .RPTR • 

VALUE = read (.LUN, .WRDCNT. .RPTR, .SECTOR); 
end 

else 
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SEQ 0296 


13431 

13432 

13433 

13434 

13435 

13436 

13437 

13438 

13439 

13440 

13441 

13442 

13443 

13444 

13445 

13446 

13447 

13448 

13449 

13450 

13451 

13452 

13453 

13454 

13455 

13456 

13457 

13458 

13459 

13460 

13461 

13462 

13463 

13464 

13465 

13466 

13467 

13468 

13469 

13470 

13471 

13472 

13473 

13474 

13475 

13476 
134 77 

13478 

13479 

13480 

13481 

13482 

13483 

13484 

13485 


TESTING RANDOM DATA 1 WORD COUNTS 

begin 


27-Mar-1982 19:24:42 TOPS-20 Bliss-16 V2(212) 
27-Mar-1982 19:23:44 PA:<NEALE>MLX4.BLl .5 (45) 


begin 

PTR - UPTR* 

VALUE = CHECK ( .LUN, .URDCNT, .UPTR. .SECTOR); 
end; 


.' SEE HOW SUCCESSFUL THE OPERATION WAS: 

f _ 


selectone .VALUE of 
set 


.'SEE 'SVSERR' FOR DEFINITION 
I OF ERROR # CONTAINED IN 'VALUE* 


if .COMMAND eql read 
then 

begin 

if (DBL.VALUE = D0U8LE.CHECK (.UPTR. .RPTR, .URDCNT)) neq 0 
then 

begin 

SAYWHO ( LUN) * 

PRINT8 (SAV1 ,*MSG5); I'ECC LOGIC FAILED TO DETECT DATA ERROR' 

PRINTB (FMT12A, ..DBL VALUE. .DBL VALUE); 

."GOOD DATA: XXXXXX AT LOCATION YYYYYY' 

DBL VALUE = .DBL. VALUE ♦ BUFSI2*2; 

PRINTS (FMT12B, ..DBL. VALUE, .DBL VALUE); 

! 'BAD DAT*: PPPPPP AT LOCATION OQOQOO' 

WHY DROPT [.LUN] = CODE 8; 

ERRPF (5204, MSG1 . 0); .'**** OPTION 5. RAND2 ERROR 04 **** 

DODU (.LUN); 

leave LOOP; MUMP JUST BEYOND END OF BLOCK * 4 * 
end; 


begin 


!* 6D * RETRY ALLOWED 


if RETRY (SIX, .COMMAND, .LUN, .URDCNT, PTR, .SECTOR) neq 0 
then .'THE RETRY FAILED -- SYSTEM FATAL ERROR 

begin 

WHY DROPT C.LUN] = CODE. 4; 

ERRDF (5205, MSG1 , 0); !**•* OPTION 5. RAND2 ERROR 05 **** 

DODU (.LUN); 

leave LOOP; MUMP JUST BEYOND END OF BLOCK * 4 * 
end; 


[ 2 ] : 

begin 


.'* 6D * 


!* 6E * FATAL CONTROLLER ERROR — NO RETRY ALLOWED 




I 
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SEQ 0297 


13487 ;MLX4 

13488 ; 

13489 

13490 

13491 

13492 

13493 

13494 

13495 

13496 

13497 

13498 

13499 

13500 
1 35f 1 
135^2 

13503 

13504 

13505 

13506 

13507 

13508 

13509 

13510 

13511 

13512 

13513 

13514 

13515 

13516 

13517 

13518 

13519 

13520 

13521 

13522 

13523 

13524 

13525 

13526 

13527 

13528 

13529 

13530 

13531 

13532 

13533 

13534 

13535 

13536 

13537 

13538 

13539 

13540 

13541 


TESTING RANDOM DATA ft WORD COUNTS 


27-Mar-1982 19:24:42 
27-Mar-1982 19:23:44 


TOPS-20 Bliss-16 V2C212) 
PA:<NEALE>MLX4.BLJ.5 (45) 


7314 

7315 

7316 

7317 

7318 

7319 

7320 

7321 

7322 

7323 

7324 

7325 

7326 

7327 

7328 

7329 

7330 

7331 

7332 

7333 

7334 

7335 

7336 

7337 

7338 

7339 

7340 

7341 

7342 

7343 

7344 

7345 

7346 

7347 

7348 

7349 

7350 

7351 

7352 

7353 

7354 

7355 

7356 

7357 

7358 

7359 

7360 

7361 

7362 

7363 

7364 

7365 


WHY DROPT C.LUN] = CODE. 5; , 

ERRBF (5206, MSG1 , 0); !**•* OPTION 5. RAND2 ERROR 06 **** 

DODU (.LUN); 

leave LOOP; JJUMP JUST BEYOND END OF BLOCK * 4 * 

end; ! * 6E * 

m • 

begin !* 6F * FATAL DRIVE ERROR — NO RETRY ALLOWED 

ERRDF (5207, MSG1, 0); OPTION 5, RAND 2 ERROR 07 **** 

WHY DROPT C.LUN] = C0DE.6; 

DODO (.LUN); 

leave LOOP; IJUMP JUST BEYOND END OF BLOCK * 4 * 

end; !* 6F * 


C4] 


begin 
ISOLATE () 


!* 6G * UNRECOVERABLE DATA ERROR 


ERRDF (520 6, MSG2, 0); '.**** OPTION 5, RAND2 ERROR 08 **** 

WHY DROPT C.LUN] = C0DE.7; 

DODO (.LUN); 

leave LOOP; !JUMP JUST BEYOND END OF BLOCK * 4 * 

end; !* 6G * 


C5J 


begin 


!* 6H * RECOVERABLE DATA ERROR 


begi 

ISOLATE O; 

if .ERROUT then PRINTS (FMT10B, .CHAN); 

BIT QQ' ' 

OLDSEC = .MLEL; 

OLDCHN = .CHAN; 

if RETRY (ONE, .COMMAND. .LUN. .WRDCNT , .PTR, .SECTOR) eql 5 
then 

if ((.MLEL eql .OLDSEC) and (.CHAN eql .OLDCHN)) 
then 

begin 

if .ERROUT then ERRHRD (5209. MSG4, 0); 

!**«* OPTION 5. RAND2 ERROR 09 **** 

UP HARD. COUNT (.LUN, .BOARD); 
en3 


else 


begin 

if .ERROUT then ERRSOFT (5210, MSG3, 0); 

•***• OPTION 5, RAND2 ERROR 10 **** 
UP.SOFT.COUNT (.LUN, .BOARD); 
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SEO 0298 


13543 

13544 

13545 

13546 

13547 

13548 

13549 

13550 

13551 

13552 

13553 

13554 

13555 

13556 

13557 

13558 

13559 

13560 

13561 

13562 

13563 

13564 

13565 

13566 

13567 

13568 

13569 

13570 

13571 

13572 

13573 

13574 

13575 

13576 

13577 

13578 

13579 

13580 

13581 

13582 

13583 

13584 

13585 

13586 

13587 

13588 

13589 

13590 

13591 

13592 

13593 

13594 

13595 

13596 

13597 


;MtX4 
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TOPS-20 Btiss-16 V2(212> 
PA:<NEAIE>MLX4.BLI.5 (45) 


7366 

7367 

7368 

7369 

7370 

7371 

7372 

7373 

7374 

7375 

7376 

7377 

7378 

7379 

7380 

7381 

7382 

7383 

7384 

7385 

7386 

7387 

7388 

7389 

7390 

7391 

7392 

7393 

7394 

7395 

7396 

7397 

7398 

7399 

7400 

7401 

7402 

7403 

7404 

7405 

7406 

7407 

7408 

7409 

7410 

7411 

7412 

7413 

7414 

7415 

7416 

7417 


end 


else 


end; 

tes; 

SECTOR = .NEXT.SECT; 
WPTR = .WPTR ♦ 2; 
end; 


begin 

if .ERROUT then ERRSOFT (5211. MSG3, 0); 

! **** OPTION 5. RAND2 ERROR 11 **** 
UP SOFT.COUNT (.LUN. .BOARD); 
en3; 

! * 6H * 


end; 


!* 6 * END OF A PASS THROUGH ALL SECTORS 
!* 5 * END OF TEST FOR AN ACTIVE UNIT 


Test to see if this uut's address space is 
to be read for soft errors. This test is 
is intended for DMT purposes. 


if .EFNS21 
then 

begin 


! Is the background pattern to be read 


version czmlbb changed incr to incru 

incru SECTOR from LOWEST to HIGHEST do 


if read (.LUN, 256, RBUFF. .SECTOR) eql 5 
then 

begin 

ISOLATE (); iFind the failing bank and board no. 

if .ERROUT then PRINTS (FMT10B. .CHAN); 

Print where the error is 

Save the contents of the ML error location 
register so we can compare it to the new 
contents of this register after the retry. 

This is done to classify the error. 

OLDSEC = .MLEL; 

OLDCHN = .CHAN; 

I 
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13599 

MLX4 



27-Mar-1982 19:24:42 T0PS-20 BliSS-16 V2(212> 

13600 

13601 



TESTING RANDOM DATA l WORD COUNTS 

2 7-Mar- 1982 19:23:44 PA:<NEALE>MLX4.BLJ.5 (45) 

13602 


7418 

! Do a classify retry call. If the same error 

13603 


7419 

i occures then classify 

it as a hard error. I f 

13604 


7420 

! a different error occured or the error went away 

13605 


7421 

! then classify it as a 

soft error. 

13606 

13607 

13608 


7422 

7423 

7424 




if RETRY (ONE. .COMMAND 

. .LUN, 256, .PTR, .OLDSEC) eql 5 

13609 


7425 

then 

13610 


7426 

1 


13611 


7427 

! The same error occured so see if it is at the same 

13612 


7428 

! sector and channel number, if so then classify 

13613 


7429 

! it as a hard error else classiy it as a soft 

13614 


7430 

! error. 


13615 


7431 

1 


13616 


7432 



13617 


7433 

if ((.MLEl eql .OLDSEC) and (.CHAN eql .OLDCHN)) 

13618 


7434 

then 


13619 


7435 

begin 

.'Same error occured 'hard* 

13620 


7436 


13621 


7437 

if .ERROUT 

! Print error if enabled 

13622 


7438 

then 


13623 


7439 

begin 


13624 

P 

7440 

ERRHRD (5212, iError number 

13625 

P 

7441 

MSG4, 

'.Error message 

13626 


7442 

0); 

.'Additional message routine 

13627 


7443 

end; 

13628 


7444 



13629 


7445 

UP HARD COUNT ( 

.LUN. .BOARD); 

13630 


7446 

end 


13631 


7447 

else 


13632 


7448 

begin 

.'Not the same error 'soft' 

13633 


7449 


13634 


7450 

if .ERROUT 

! Print error if enabled 

13635 


7451 

then 


13636 

13637 

P 

7452 

7453 

begin 

ERftSOFT (5213, '.Error number 

13638 

P 

7454 

MSG3. 

•Error message 

13639 


7455 

0); 

.'Additional message routine 

13640 


7456 

end; 

13641 


7457 



13542 


7458 

UP SOFT.COUNT ( 

.LUN, .BOARD); 

13643 


7459 

end 


13644 


7460 


.'Not rhe same error 'soft* 

13645 


7461 

else 

13646 


7462 

begin 


13647 


74 63 

IPrint error if enabled 

13648 


7464 

if .ERROUT 

13649 


7465 

then 


13650 


7466 

begin 


13651 

P 

7467 

ERRSOFT (5214, 

! Error number 

13652 

P 

7468 

MSG3, 

.'Error message 

13653 


7469 

0); 

lAdditional message routine 


SEO 0299 
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13655 ;MLX4 





27-Mar-1982 

19:24:42 TOPS-20 Bliss-16 V2(212) 


13656 ; 


TESTING 

RANDOM DATA £ 

WORD COUNTS 27-Mar-1982 

19:23:44 PA:<NEALE>MLX4.8Ll.5 (45) 


13657 









13658 ; 

7470 




end; 




13659 ; 

7471 








13660 ; 

7472 



UP 

SOFT COUNT (.LUN. .BOARD); 



13661 ; 

7473 



eno 

0 




13662 ; 

7474 








13663 ; 

7475 



end; 





13664 ; 

7476 








13665 ; 

7477 


end; 






13666 ; 

7478 








13667 ; 

7479 


end; 


! * 4 

* END 

OF LOOP THAT COMPLETELY TESTS 1 UNIT 


13668 ; 

7480 


end; 


! * 3 

* END OF LOGICAL UNIT SELECTION LOOP 


13669 ; 

7481 








13670 ; 

7482 


end; 


.'* 2 

* END 

OF REPEAT LOOP FOR THIS ROUTINE 


13671 ; 

7483 








13672 ; 

7484 

return; 






13673 ; 

7485 

end; 



! * 1 

* END 

OF ROUTINE 


13677 









13678 




.SBTTL 

RAND 2 TESTING RANDOM DATA £ WORD COUNTS 


13682 073124 

004167 

112204 

RAND 2 

JSR 

R1.SSAVE5 


0 

7107 

13683 073130 

162706 

000022 


SUB 

*22. SP 




13684 073134 

012746 

007672 


MOV 

/ RTN5B»-(SP) 


0 

7178 

13685 073140 

012746 

007072 


MOV 

iJSAYl ,-(SP) 




13686 073144 

012746 

000002 


MOV 

#2,-(SP) 




13687 073150 

010600 



MOV 

SP.RO 


; SP.* 


13688 073152 

104414 



TRAP 

14 




13689 073154 

005066 

000022 


CLR 

22(SP> 


; COUNT 

7181 

13690 073160 

000167 

002232 


JMP 

44$ 




13691 073164 

016766 

106622 

000026 IS: 

MOV 

L$UNIT,26(SP) 


0 

7184 

13692 073172 

005001 



CLR 

R1 


: LUN 


13693 073174 

000167 

002204 


JMP 

43$ 




13694 073200 

004767 

146414 

2$: 

JSR 

PC. GENS 


• 

7186 

13695 073204 

010100 



MOV 

R1.R0 


; LUN.* 

7190 

13696 073206 

006200 



ASR 

RO 



• 

13697 073210 

006200 



ASR 

RO 




13698 073212 

006200 



ASR 

RO 




13699 073214 

062700 

034442 


ADD 

#DRIVE. STATUS.RO 




13700 073220 

010046 



MOV 

RO. -(SP) 




13701 073222 

010146 



MOV 

RI.-(SP) 


; LUN.* 


13702 073224 

042716 

177770 


BIC 

#1^7770, (SP) 




13703 073230 

012746 

000001 


MOV 

#1.-(SP) 




13704 073234 

005046 



CLR 

-(SP) 




13705 073236 

004767 

111114 


JSR 

PC.8LSGT2 




13706 073242 

062706 

000010 


ADD 

#10. SP 




13707 073246 

005300 



DEC 

RO 




13708 073250 

001402 



BEQ 

4$ 




13709 073252 

000167 

001460 

3$: 

JMP 

31$ 
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SEQ 0301 


13711 

13712 

13713 

13714 

13715 

13716 

13717 

13718 

13719 

13720 

13721 

13722 

13723 

13724 

13725 

13726 

13727 

13728 

13729 

13730 

13731 

13732 

13733 

13734 

13735 

13736 

13737 

13738 

13739 

13740 

13741 

13742 

13743 

13744 

13745 

13746 

13747 

13748 

13749 

13750 

13751 

13752 

13753 

13754 

13755 

13756 

13757 

13758 

13759 

13760 

13761 

13762 

13763 

13764 

13765 


073256 

073262 

073264 

073266 

073272 

073300 

073306 

077314 

073320 

073324 

073326 

073332 

073334 

073336 

073342 

073344 

073350 

073354 

073356 

073362 

073364 

073366 

073372 

073400 

073402 

073406 

073410 

073412 

073414 

073416 

073422 

073430 

073434 

073436 

073440 

073444 

073446 

073452 

073454 

073460 

073462 

073466 

073472 

073474 

073476 

073502 

073504 

073510 

073514 

073516 

073520 

073526 


010167 

010100 

006300 

016003 

012767 

012767 

012766 

060066 

020376 

101352 

004767 

010002 

010246 

004767 

010216 

012746 

004767 

060300 

010066 

020300 

001002 

005266 

026676 

101415 

017600 

160300 

000300 

105000 

010002 

062702 

017666 

005266 

010116 

010246 

016746 

010346 

004767 

010004 

020427 

001031 

012746 

012746 

010146 

010246 

016746 

010346 

004767 

062706 

005700 

001446 

112761 

104455 




;MLX4 






* 


TESTING RANDOM DATA g WORD 

COUNTS 

106612 


4$: 

MOV 

Rl.LlLUN 

; LUN.* 




MOV 

Rl.RO 

; LUN,* 




ASL 

RO 


034460 



MOV 

LOW.SECT(R0>,R3 

; *. SECTOR 

012670 

137370 


MOV 

#W8UFF ,WPTR 


022670 

137364 


MOV 

#R8UFF,RPTR 


034500 

000024 


MOV 

#T0P.SECT.24(SP) 


000024 



ADD 

R0.24(SP> 


000024 


51: 

CMP 

R3.824(SP> 

; SECTOR.* 




BHI 

3S 


174652 



JSR 

PC.RNDWC 





MOV 

R0.R2 

; *,WRDCNT 




MOV 

R2,-(SP> 

; WRDCNT,* 

153570 



JSR 

PC.SET.PTRS 





MOV 

R2 e (SP) 

; WRDCNT,* 

000400 



MOV 

#400, -<SP) 


111614 



JSR 

PC.BLSDIV 





ADD 

R3,R0 

; SECTOR,* 

000012 



MOV 

R0.12(SP> 

; *, NEXT. SECT 




CMP 

R3,R0 

; SECTOR, NEXT 




BNE 

61 


000012 



INC 

12(SP) 

; NEXT. SECT 

000012 

000030 

6$: 

CMP 

12(SP).a30(SP) 

; NEXT. SECT,* 




BIOS 

7$ 


000030 



MOV 

830(SP),R0 

• 

9 




SUB 

R3,R0 

; SECTOR,* 




SWAB 

RO 

9 




CLR8 

RO 





MOV 

R0.R2 

; *, WRDCNT 

000400 



ADD 

#460, R? 

; *. WRDCNT 

000030 

000012 


MOV 

i30(SP),12(SP) 

; *, NEXT. SECT 

000012 



INC 

12CSP) 

; NEXT. SECT 



7$: 

MOV 

R1 , (SP) 

; LUN.* 




MOV 

R2.-CSP) 

; WRDCNT,* 

137224 



MOV 

WPTR.-CSP) 





MOV 

R3.-CSP) 

; SECTOR.* 

151752 



JSR 

PC, WRITE 





MOV 

R0,R4 

; *. VALUE 

000001 



CMP 

R4,#1 

; VALUE.* 




BNE 

8$ 


000006 



MOV 

#6,-CSP) 

• 

9 

045424 



MOV 

#WRITE,*(SP> 





MOV 

R1 ,-(SP) 

; LUN.* 




MOV 

R2.-CSP) 

; WRDCNT.* 

137166 



MOV 

WPTR,-(SP) 





MOV 

R3,-(SP) 

; SECTOR,* 

152514 



JSR 

PC, RETRY 


000014 



ADD 

#14, SP 





TST 

RO 





SEQ 

11$ 


000004 

C34446 


MOVB 

#4,WHY.DR0PT(R1) 

; *,*(LUN) 




TRAP 

55 

9 


27-M*r-1982 19:24:42 
27-Har-1982 19:23:44 


TOPS 

PA:< 

7193 

7194 


7195 

7196 
7198 


7200 

7201 

7202 

7204 

7206 

7209 

7208 

7209 

7210 
7213 


7219 

7225 


7228 

7229 
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13767 





;MLX4 





13768 







TESTING RANOOM DATA K WORD 

COUNTS 


13769 










13770 

073530 

012121 




.WORD 

12121 



13771 

073532 

011070 




.WORD 

MSG1 



13772 

073534 

000000 




.WORD 

0 



13773 

073536 

010100 




MOV 

R1.R0 

a 

LUN.* 

13774 

073540 

104451 




TRAP 

51 



13775 

073542 

000431 




BR 

10$ 

# 


13776 

073544 

020427 

000002 


8$: 

CMP 

R4,#2 

s 

VALUE,* 

13777 

073550 

001012 




BNE 

9$ 



13778 

073552 

112761 

000005 

034446 


MOVB 

#5,WHY.DR0PT(R1) 

9 

• , * (LUNI 

13779 

073560 

104455 




TRAP 

55 

# 


13780 

073562 

012122 




.WORD 

12122 



13781 

073564 

011070 




.WORD 

HSG1 



13782 

073566 

000000 




.WORD 

0 



13783 

073570 

010100 




MOV 

R1.R0 

• 

LUN,* 

13784 

073572 

104451 




TRAP 

51 



13785 

073574 

000414 




8R 

10$ 

9 


13786 

073576 

020427 

000003 


9$: 

CMP 

R4,#3 

9 

VALUE,* 

13787 

073602 

001014 




BNE 

11$ 



13788 

073604 

104455 




TRAP 

55 

9 


13785 

073606 

012123 




.WORD 

12123 



13790 

073610 

011070 




.WORD 

MSG1 



13791 

073612 

000000 




.WORD 

0 



13792 

073614 

112761 

000006 

034446 


MOVB 

#6,WHY.DR0PT(R1) 

• 

9 

*,*(LUN) 

13793 

073622 

010100 




MOV 

R1.R0 

• 

9 

LUN.* 

13794 

073624 

104451 




TRAP 

51 



13795 

073626 

062706 

000012 


10$: 

ADD 

#12, SP 

• 

9 


13796 

073632 

000535 




BR 

16$ 



13797 

073634 

004767 

152326 


11$: 

JSR 

PC, CHOOSE 

9 


13798 

073640 

010066 

000022 



MOV 

R0.22(SP) 

« 

9 

*, COMMAND 

13799 

073644 

005005 




CLR 

R5 

0 


13800 

073646 

020027 

045612 



CMP 

RO.#READ 

0 

COMMAND,* 

13801 

073652 

001014 




BNE 

12$ 



13802 

073654 

005205 




INC 

R5 



13803 

073656 

016766 

137010 

000024 


MOV 

RPTR,24(SP) 

0 

*,PTR 

13804 

073664 

010146 




MOV 

R1 ,-(SP) 

0 

LUN,* 

13805 

073666 

010246 




MOV 

R2.-CSP) 

9 

WRDCNT,* 

13806 

073670 

016746 

136776 



MOV 

RPTR.-(SP) 



13807 

073674 

010346 




MOV 

R3,-(SP) 

9 

SECTOR,* 

13808 

073676 

004767 

151710 



JSR 

PC, READ 



13809 

073702 

000412 




BR 

13$ 



13810 

073704 

016766 

136760 

000024 

12$: 

MOV 

WPTR,24(SP) 

9 

*,PTR 

13811 

073712 

010146 




MOV 

RI.-(SP) 

9 

LUN,* 

13812 

073714 

010246 




MOV 

R2,-(SP) 

0 

WRDCNT,* 

13813 

073716 

016746 

136746 



MOV 

WPTR,-(SP) 



13814 

073722 

010346 




MOV 

R3,-(SP> 

9 

SECTOR,* 

13815 

073724 

004767 

152050 



sb* 

PC, CHECK 



13816 

073730 

010004 



13$: 

MOV 

R0.R4 

0 

*, VALUE 

13817 

073732 

001076 




BNE 

17i 

0 


13818 

073734 

006005 




ROR 

R5 

9 


13819 

073736 

103402 




BLO 

15$ 



13820 

073740 

000167 

000750 


14$: 

JMP 

30$ 



13821 

073744 

016746 

136720 


15$: 

MOV 

WPTR,-(SP) 

9 



SEG 0302 

27-Mar-1982 19:24:42 TOPS 
27-Mar- 1982 19:23:44 PA:< 


7230 

7231 
7219 

7238 

7239 


7240 

7241 
7219 

7246 


7247 

7248 

7249 


7253 

7255 


7258 

7259 


7263 

7264 


7271 

7276 


7280 
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13823 

13824 

13825 

13826 

13827 

13828 

13829 

13830 

13831 

13832 

13833 

13834 

13835 

13836 

13837 

13838 

13839 

13840 

13841 

13842 

13843 

13844 

13845 

13846 

13847 

13848 

13849 

13850 

13851 

13852 

13853 

13854 

13855 

13856 

13857 

13858 

13859 

13860 

13861 

13862 

13863 

13864 

13865 

13866 

13867 

13868 

13869 

13870 

13871 

13872 

13873 

13874 

13875 

13876 

13877 


;MLX4 


073750 

073754 

073756 

073762 

073766 

073772 

073774 

073776 

074002 

074006 

074012 

074016 

074020 

074022 

074026 

074032 

074036 

074042 

074044 

074046 

074054 

074060 

074064 

074070 

074074 

074076 

074100 

074106 

074110 

074112 

074114 

074116 

074120 

074122 

074126 

074130 

074134 

074136 

074142 

074146 

074150 

074152 

074156 

074160 

074164 

074170 

074172 

074174 

074202 

074204 

074206 

074210 


016746 
010246 
004767 
062706 
010066 
001762 
010146 
004767 
012716 
012746 
012746 
010600 
104414 
016616 
017646 
012746 
012746 
010600 
104414 
062766 
016616 
01 7646 
012746 
012746 
010600 
104414 
112761 
104455 
012124 
011070 
000000 
010100 
104451 
062706 
000506 
020427 
001031 
012746 
016646 
010146 
010246 
016646 
010346 
004767 
062706 
005700 
001662 
112761 
104455 
012125 
011070 
000000 


136716 

150344 

000006 

000040 


141522 

011216 

007072 

000002 


000046 

000046 

006710 

000003 


010000 000054 

000054 

000054 

006756 

000003 


000010 034446 


000044 

000001 

000006 

000034 


000044 

152040 

000014 


000004 034446 


TESTING RANDOM DATA l W 

MOV RPTR.-(SP) 

MOV R2.-(SP) 

JSR PC. DOUBLE. CHECK 

ADD #6,SP 

MOV R0.40($P> 

BEQ 14$ 

MOV RI.-(SP) 

JSR PC.SAYWHO 

MOV #MSG5,(SP) 

MOV #SAY1.-(SP) 

MOV *2.-1 SP) 

MOV SP.RO 

TRAP 14 

MOV 46CSP) . (SP) 

MOV 946(SP) ,~(SP) 

MOV #EMT12A.-(SP) 

MOV #3,-(S?) 

MOV SP.RO 

TRAP 14 

ADD *10000. 54 (SP) 

MOV 54 (SP) . (SP) 

MOV 354(SP),-(SP) 

MOV #FMT12B,-(SP) 

MOV #3,-(SP> 

MOV SP.RO 

TRAP 14 

M0V8 #10.WHY.DROPT(R1) 

TRAP 55 

.WORD 12124 

.WORD MSG1 

.WORD 0 

MOV R1 .RO 

TRAP 51 

ADD #44. SP 

BR 22$ 

CMP R4,#1 

8NE 18$ 

MOV #6,*(SP) 

MOV 34(SP).-(SP) 

MOV R1 .-(SP) 

MOV R2,-(SP) 

MOV 44(SP),*(SP) 

MOV R3.-(SP) 

JSR PC, RETRY 

ADD #14, SP 

TST RO 

BEQ 14$ 

MOVB #4.WHY.DR0PT(R1) 

TRAP 55 

.WORD 12125 

.WORD MSG1 

.WORD 0 


SEQ 0303 
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13879 

13880 
"3881 

13882 

13883 

13884 

13885 

13886 

13887 

13888 

13889 

13890 

13891 

13892 

13893 

13894 

13895 

13896 

13897 

13898 

13899 

13900 

13901 

13902 

13903 

13904 

13905 

13906 

13907 

13908 

13909 

13910 

13911 

13912 

13913 

13914 

13915 

13916 

13917 

13918 

13919 

13920 

13921 

13922 

13923 

13924 

13925 

13926 

13927 

13928 

13929 

13930 

13931 

13932 

13933 


;MLX4 


074252 
074214 
074216 
074220 
074224 
074226 
074234 
074236 
074240 
074242 
074244 
074246 
074250 
074252 
074256 
074260 
074262 
074264 
074266 
074270 
074276 
074300 
074302 
074304 
074310 
074312 
074316 
074320 
074322 
074324 
074326 
074334 
074336 
074 340 
074344 
074350 
074354 
074356 
074362 
074370 
074372 
074376 
074400 
074402 
074404 
074406 
074410 
074412 
074416 
074420 
074424 
074430 
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SEQ 0304 

27-Mar-1982 19:24:42 TOPS 
2 7-Mar -1982 19:23:44 PA:< 


010100 

104451 

000450 

020427 

001012 

112761 

104455 

012126 

011070 

000000 

010100 

104451 

000433 

020427 

001012 

104455 

012127 

011070 

000000 

112761 

010100 

104451 

000416 

020427 

001017 

004767 

104455 

012130 

011120 

000000 

112761 

010100 

104451 

062706 

000167 

020427 

001157 

004767 

032767 

001423 

017705 

006205 

006205 

006205 

006205 

006205 

006205 

042705 

010546 

012746 

012746 

010600 





MOV 

R1.R0 

; lUN,* 

7306 




TRAP 

51 






BR 

21$ 

• 

7307 

000002 


18$: 

CMP 

R4,#2 

; VALUE.* 

7271 




BNE 

19J 



000005 

034446 


M0V8 

#5,WHY.DR0PT(R1> 

; *,*(LUN) 

7314 




TRAP 

55 

• 

0 

7315 




.WORD 

12126 






.WORD 

MSG1 






.WORD 

0 






MOV 

R1.R0 

; LUN ' 

7316 




TRAP 

51 






BR 

21$ 

# 

7317 

000003 


19S: 

CMP 

R4,#3 

; VALUE,* 

7271 




BNE 

20$ 






TRAP 

55 

• 

* 

7322 




.WORD 

12127 






.WORD 

MSG1 






.WORD 

0 



000006 

034446 


M0V8 

#6,WHY .DROPT (R1 ) 

; *,*(LUN) 

7323 




MOV 

R1.R0 

; LUN.* 

7324 




TRAP 

51 






BR 

21$ 

0 

7325 

000004 


20$: 

CMP 

R4.#4 

; VALUE.* 

7271 




BNE 

23i 



143014 



JSR 

PC, ISOLATE 

• 

7330 




TRAP 

55 

0 

7331 




.WORD 

12130 






.WORD 

MSG2 






.WORD 

0 



000007 

034446 


MOVB 

#7.WHY.DR0PT(R1) 

; *,*(LUN) 

7332 




MOV 

R1.R0 

; LUN,* 

7333 




TRAP 

51 



000022 


21J: 

ADD 

#22, SP 

0 

7334 

001032 


22$: 

JMP 

42$ 



000005 


23$: 

CMP 

R4,#5 

; VALUE.* 

7271 




BNE 

30$ 



142750 



JSR 

PC. ISOLATE 

0 

7339 

000001 

10567O 


BIT 

#1 .ERROUT 

« 

• 

7341 




BEQ 

24i 



140012 



MOV 

aML.REGK2,R5 




177700 

006640 

000002 


ASR R5 

ASR R5 

ASR R5 

ASR R5 

ASR R5 

ASR R5 

BIC #177700,R5 

MOV R5.-(SP> 

MOV #FMT10B,-(SP) 

MOV #2,-(SP) 

MOV SP.RO 


SP,* 
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i 


13935 

13936 

13937 

13938 074432 104414 

13939 074434 062706 

13940 074440 017766 

13941 074446 017705 

1 3942 074452 006205 

13943 074454 006205 

13944 074456 006205 

13945 074460 006205 

13946 074462 006205 

13947 074464 006205 

13948 074466 042705 

13949 074472 010566 

13950 074476 012746 

13951 074502 016646 

13952 074506 010146 

13953 074510 010246 

13954 074512 016646 

13955 074516 010346 

13956 074520 004767 

13957 074524 062706 

13958 074530 020027 

13959 074534 001051 

13960 074536 027766 

13961 074544 001034 

13962 074546 016600 

13963 074552 017705 

13964 074556 006205 

13965 074560 006205 

13966 074562 006205 

13967 074564 006205 

13968 074566 006205 

13969 074570 006205 

13970 074572 042705 

13971 074576 020500 

13972 074600 001016 

13973 074602 032767 

13974 074610 001404 

13975 074612 104456 

13976 074614 012131 

13977 074616 011202 

13978 074620 000000 

13979 074622 01 01 46 

13980 074624 016746 

13981 074630 004767 

1 3982 074634 000426 

13983 074636 032767 

13984 074644 001415 

13985 074646 104457 

13986 074650 012132 

13987 074652 011166 

13988 074654 000000 

13989 074656 000410 




;MlX4 







« 


TESTING RANDOM DATA £ WORD 

COUNTS 




TRAP 

14 



000006 



ADD 

#6.SP 



137746 

000036 

24$: 

MOV 

3NL . REG*44 . 36 ( SP) 

l 

*.OLDSEC 

137736 



MOV 

8ML.REG+42.R5 






ASR 

R5 






ASR 

R5 






ASR 

R5 






ASR 

R5 






ASR 

R5 






ASR 

R5 



177700 



BIC 

#177700.R5 



000042 



MOV 

R5.42CSP) 

i 

*,OLDCHN 

000001 



MOV 

#1.-(SP> 



000034 



MOV 

34(SP).-(SP) 


COMMAND, 




MOV 

Rl.-(SP) 


LUN,* 




MOV 

R2.-(SP) 


WRDCNT,* 

000044 



MOV 

44(SP) ,-(SP) 


PTR,* 




MOV 

R3.-CSP) 


SECTOR,* 

151500 



JSR 

PC, RETRY 



000014 



ADD 

#14, SP 



000005 



CMP 

R0.#5 






BNE 

27§ 



137650 

000036 


CM? 

BNL . REG+44 , 36 < SP) 


; *.01DS£C 




BNE 

26$ 



000042 



MOV 

42(SP).R0 


; OLDCHN,* 

137632 



MOV 

aNL.REG*42.R5 






ASR 

R5 






ASR 

R5 






ASR 

R5 






ASR 

R5 






ASR 

R5 






ASR 

R5 



177700 



BIC 

#177700.R5 






CMP 

R5.R0 






BNE 

26§ 



000001 

105450 


BIT 

#1 .ERROUT 


a 




BEQ 

25i 






TRAP 

56 






.WORD 

12131 






.WORD 

MSG4 






.WORD 

0 





25$: 

MOV 

R1, -(SP) 


; LUN, " 

137512 



MOV 

BOARD. -(SP) 



142566 



JSR 

PC -UP. HARD. COUNT 






BR 

29i 


* 

000001 

105414 

26$: 

81 T 

#1. ERROUT 


0 




BEQ 

28$ 






TRAP 

57 






.WORD 

12132 






.WORD 

MSG3 






.WORD 

0 






8R 

28$ 


0 


SEG 0305 

2 7-Mar- 1982 19:24:42 TOPS 
2 7-Mar- 1982 19:23:44 PA:< 


7344 

/345 


7347 


7350 


7354 


7357 

7350 

7362 


7365 
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1 13991 





;MIX4 


13992 





# 


13993 

13994 

074660 

032767 

000 v 01 

105372 

27$: 

BIT 

13995 

074666 

001404 




BEQ 

13996 

074670 

104457 




TRAP 

13997 

074672 

012133 




.WORD 

13998 

074674 

011166 




.WORD 

13999 

074676 

000000 



28$: 

.WORD 

14000 

074700 

010146 

137434 


MOV 

14001 

074702 

016746 



MOV 

14002 

074706 

004767 

143172 


29$: 

JSR 

14003 

074712 

022626 



CMP 

14004 

074714 

016603 

000030 

135742 

30$: 

MOV 

14005 

074720 

062767 

000002 


ADD 

14006 

074726 

062706 

000022 



ADD 

14007 

074732 

000167 

176362 

105316 

31$: 

JMP 

14^08 

074736 

032767 

000001 

BIT 

14009 

074744 

001002 




BNE 

14010 

074746 

000167 

000430 


32$: 

JMP 

14011 

074752 

010100 



MOV 

14012 

074754 

006300 




ASL 

14013 

074756 

016066 

034500 

000024 


MOV 

14014 

074764 

016005 

034460 



MOV 

14015 

074770 

000577 



33$: 

BR 

14016 

074772 

010146 



MOV 

14017 

074774 

012746 

000400 



MOV 

14018 

075000 

012746 

022670 



MOV 

14019 

075004 

010546 




MOV 

14020 

075006 

004767 

150600 



JSR 

14021 

075012 

062706 

000010 



ADD 

14022 

075016 

020027 

000005 



CMP 

14023 

075022 

001161 

142302 



BNE 

14024 

075024 

004767 



JSR 

14025 

075030 

032767 

000001 

105222 


BIT 

14026 

075036 

001423 




BEQ 

14027 

075040 

017700 

137344 



MOV 

14028 

075044 

006200 




ASR 

14029 

075046 

006200 




ASR 

14030 

075050 

006200 




ASR 

14031 

075052 

006200 




ASR 

14032 

075054 

006200 




ASR 

14033 

075056 

006200 




ASR 

14034 

075060 

042700 

177700 



BIC 

14035 

075064 

010046 




MOV 

14036 

075066 

012746 

006640 



MOV 

14037 

075072 

012746 

000002 



MOV 

14038 

075076 

010600 




MOV 

14039 

075100 

104414 




TRAP 

14040 

075102 

062706 

00000c 



ADD 

14041 

075106 

01 7766 

137300 

000014 

34$: 

MOV 

14042 

0 7 51 14 

01 77U, 

137270 



MOV 

14043 

075120 

* 06200 




ASR 

14044 

075122 

006200 




ASR 

14045 

075124 

006200 




ASR 


J 8 
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#1 -ERROUT 
28$ 

57 

12133 

MSG3 

0 

Rl.-(SP) 

BOARD, -(SP) 

PC, UP. SOFT. COUNT 

(SP)+.(SP)+ 

30(SP).R3 

#2.WPTR 

#22. SP 

5$ 

#1 ,EFN$21 

32i 

42$ 

R1.R0 

RO 

TOP. SECT (R0),24(SP) 

LOW.SECT(RO).R5 

41$ 

R1. -(SP) 

#400. -<SP) 

#RBUFF,-(SP) 

R5.-(SP) 

PC. READ 
#10. SP 
R0.#5 
40$ 

PC, ISOLATE 
#1 .ERROUT 
34$ 

aML.REGM2.R0 

RO 

RO 

RO 

RO 

RO 

RO 

#1 77700. RO 
RO, -(SP) 
#FMT108,-(SP) 
#2.-(SP) 

SP.RO 

14 

#6,SP 

8ML.REGM4.14(SP) 

aML.REGM2,R0 

RO 

RO 

RO 


SEQ 0306 


27-Mar-1982 19:24:42 
27-Mar-1982 19:23:44 


; LUN.* 

NEXT. SECT, SECTOR 


; LUN,* 

; *, SECTOR 
; LUN,‘> 

; SECTOR,* 


TOPS 

PA:< 

7371 


7374 


7338 

7380 

7381 
7199 
7198 
7392 


7399 


7401 


7404 

7406 


; SP,* 

; *.OLDSEC 


7415 

7416 
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14047 





;MLX4 

14048 

14049 

14050 

075126 

006200 



# 

14051 

075130 

006200 




14052 

075132 

006200 




14053 

075134 

042700 

177700 



14054 

075140 

010066 

000020 



14055 

075144 

012746 

000001 



14056 

075150 

016646 

000012 



14057 

075154 

010146 




14058 

075156 

012746 

000400 



14059 

075162 

016646 

000022 



14060 

075166 

016646 

000026 



14061 

075172 

004767 

151026 



14062 

075176 

062706 

000014 



14063 

075202 

020027 

000005 



14064 

075206 

001051 




14065 

075210 

027766 

137176 

000014 


14066 

075216 

001034 




14067 

075220 

016646 

000020 



14068 

075224 

017700 

137160 



14069 

075230 

006200 




14070 

075232 

006200 




14071 

075234 

006200 




14072 

075236 

006200 




14073 

075240 

006200 




14074 

075242 

006200 

177700 



14075 

075244 

042700 



14076 

075250 

020026 




14077 

075252 

001016 


104776 


14078 

075254 

032767 

000001 


14079 

075262 

001404 




14080 

075264 

104456 




14081 

075266 

012134 




14082 

075270 

11202 




14083 

075272 

000000 



35$: 

14084 

075274 

010146 



14085 

075276 

016746 

137040 



14086 

075302 

004767 

142114 



14087 

075306 

000426 




14088 

075310 

032767 

000001 

104742 

36$: 

14089 

075316 

001415 




14090 

075320 

104457 




14091 

075322 

012135 




14092 

075324 

011166 




14093 

075326 

000000 




14094 

075330 

000410 


104720 

37$: 

14095 

075332 

032767 

000001 

14096 

075340 

001404 




14097 

075342 

104457 




14098 

075344 

012136 




14099 

075346 

011166 




14100 

075350 

000000 



38$: 

14101 

075352 

010146 




K 8 
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ASR 

RO 


ASR 

RO 


ASR 

RO 


BIC 

#1 77700.R0 


MOV 

R0.20CSP) 

; *»OLDCHN 

MOV 

#1.-(SP> 

• 

9 

MOV 

12(SP) ,-(SP) 

; COMMAND,* 

MOV 

RI.-(SP) 

; LUN.* 

MOV 

#400. -(SP) 


MOV 

22CSP) ,-(SP) 

; PTR,* 

MOV 

26(SP),-(SP) 

; OLDSEC,* 

JSR 

PC. RETRY 


ADD 

#14. SP 


CMP 

R0,#5 


BNE 

37$ 


CMP 

3ML . REG+44 , 1 4 ( SP) 

; *. OLDSEC 

BNE 

36$ 


MOV 

20(SP) ,-(SP) 

; OLDCHN,* 

MOV 

3ML.REG+42.R0 


ASR 

RO 


ASR 

RO 


ASR 

RO 


ASR 

RO 


ASR 

RO 


ASR 

RO 


BIC 

#1 77700, RO 


CMP 

RO,(SP)+ 


BNE 

36$ 


BIT 

#1 .ERROUT 

• 

BEO 

35$ 


TRAP 

56 

9 

.WORD 

12134 


.WORD 

MSG4 


.WORD 

0 


MOV 

R1,-(SP> 

; LUN,* 

MOV 

BOARD, -(SP) 


JSR 

PC.UP. HARD. COUNT 


BR 

39$ 

9 

BIT 

#1. ERROUT 

9 

BEO 

38$ 


TRAP 

57 

9 

.WORD 

12135 


.WORD 

MSG3 


.WORD 

0 


BR 

38$ 

9 

BIT 

#1. ERROUT 

9 

BEO 

38$ 


TRAP 

57 

9 

.WORD 

12136 


.WORD 

MSG3 


.WORD 

0 


MOV 

R1 .-(SP) 

; LUN,* 


SEO 0307 

2 7-Mar- 1982 19:24:42 TOPS 
27- Mar-1982 19:23:44 PA:< 


7424 


7433 


7437 

7442 

7445 

7433 

7450 

7455 

7458 

7464 

7469 

7472 
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SEG 0308 


14103 



;MLX4 


14104 



0 


14105 





14106 075354 

016746 

136762 


MOV 

14107 075360 

004767 

142520 


JSR 

14108 075364 

022626 


39$: 

CMP 

14109 075366 

005205 


40$: 

INC 

14110 075370 

020566 

000024 

41$: 

CMP 

14111 075374 

101002 



8HI 

14112 075376 

000167 

177370 


JMP 

14113 075402 

005201 


42$: 

INC 

14114 075404 

020166 

000026 

43$: 

CMP 

14115 075410 

002002 



BGE 

14116 075412 

000167 

175562 


JMP 

14117 075416 

005266 

000022 

44$: 

INC 

14118 075422 

026666 

000022 

000046 

CMP 

14119 075430 

003002 



BGT 

14120 075432 

000167 

175526 


JMP 

14121 075436 

062706 

000030 

45$: 

ADD 

14122 075442 

000207 



RTS 

14123 





14124 



; Routine S 

14125 



; Maximum s 

14130 





14131 
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BOARD, -(SP) 

PC, UP. SOFT. COUNT 
(SP)*,CSP>* 

R5 

R5,24(SP) 

42i 

33$ 

R1 

R1.26CSP) 

44$ 

2 $ 

22(SP) 

22(SP),46(SP> 

45$ 

1$ 

*30, SP 
PC 


27-Mar-1982 19:24:42 
27-Mar-1982 19:23:44 


SECTOR 

SECTOR,* 


; LUN 
; LUN,* 


; COUNT 

; COUNT, REPEAT 


TOPS 

PA:< 


7403 

7399 


7184 

7181 

7107 


616 words 


36 words 
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HI 33 ;MLX4 
14134 ; 
H135 
H136 
K137 
H138 
H139 

14140 

14141 

14142 

14143 

14144 

14145 

14146 

14147 

14148 

14149 

14150 

14151 

14152 

14153 

14154 

14155 

14156 

14157 

14158 

14159 

14160 

14161 

14162 

14163 

14164 

14165 

14166 

14167 

14168 

14169 

14170 

14171 

14172 

14173 

14174 

14175 

14176 

14177 

14178 

14179 

14180 

14181 

14182 

14183 

14184 

14185 

14186 

14187 
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7486 

7487 

7488 

7489 

7490 

7491 

7492 

7493 

7494 

7495 

7496 

7497 

7498 

7499 

7500 

7501 

7502 

7503 

7504 

7505 

7506 

7507 

7508 

7509 

7510 

7511 

7512 

7513 

7514 

7515 

7516 

7517 

7518 

7519 

7520 

7521 

7522 

7523 

7524 

7525 

7526 

7527 

7528 

7529 

7530 

7531 

7532 

7533 

7534 

7535 

7536 

7537 


Xsbttl 'TESTING RANDOM SECTORS. DATA. WORD COUNTS' 
routine RAND3 (REPEAT) : novalue = 

begin !* 1 * 


START OF ROUTINE 


♦ ♦ 


ROUTINE: RAND3( REPEAT) 

PURPOSE: TO CHECK RANDOM SECTORS 

ARGUMENT: REPEAT = NUMBER OF TIMES TO EXECUTE ENTIRE ROUTINE 

THE CODE FOR ' RAND3 ' IN BRIEF: 

BEGIN 1 (START OF ROUTINE) 

SAY ROUTINE IS RUNNING 
INCR COUNT FROM 1 TO REPEAT 
BEGIN 2 (START OF REPEAT LOOP FOR THIS ROUTINE) 

GENERATE THE RANDOM PATTERN 
INCR LUN FROM 0 TO LAST 

BEGIN 3 (START OF LOGICAL UNIT SELECTION LOOP) 

INITIALIZE BUFFER POINTERS 
TESTLOOP: 

BEGIN 4 (START OF LOOP THAT COMPLETELY TESTS 1 UNIT) 

IF UNIT IS ACTIVE 
THEN 

BEGIN 5 (START OF TEST FOR AN ACTIVE UNIT) 

TIMES = (HIGHEST - L0WEST)/2 ♦ 1 
INCR KOUNT FROM 1 TO TIMES 

BEGIN 6 (START OF COUNTING LOOP FOR SECTOR SELECTION) 
CHOOSE A RANDOM WORD COUNT 
SET UP BUFFER POINTERS BEFORE TRANSFER 
CHOOSE A RANDOM SECTOR 

CALCULATE WHERE TRANSFER WILL END (BASED ON WORD COUNT) 
IF CALCULATED VALUE GTR HIGHEST 
: THEN ADJUST THE WORD COUNT SO IT FITS 
: : WITHIN THE TESTABLE SECTOR LIMITS 

WRITE 

LOOK FOR ERRORS (IF DROP UNIT. LEAVE LABEL) 

CHOOSE WHETHER TO WRITE CHECK OR READ 
DO THE WRITE CHECK OR READ 
LOOK FOR ERRORS (IF DROP UNIT, LEAVE LABEL) 

CHANGE BUFFER POINTERS AFTER TRANSFER 
. END 6 (END OF COUNTING LOOP FOR SECTOR SELECTION) 

END 5 (END OF TEST FOR AN ACTIVE UNIT) 

END 4 (END OF TESTLOOP) 

END 3 (END OF LOGICAL UNIT SELECTION LOOP) 

END 2 (END OF REPEAT LOOP FOR THIS ROUTINE) 

RETURN 

END 1 (END OF ROUTINE) 


local 


TOPS-20 Bliss-16 V2(212) 
PA:<NEALE>MLX4.8LI .5 (46) 


SEO 0309 
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14189 

14190 

14191 

14192 

14193 

14194 

14195 

14196 

14197 

14198 

14199 

14200 

14201 

14202 

14203 

14204 

14205 

14206 

14207 

14208 

14209 

14210 

14211 

14212 

14213 

14214 

14215 

14216 

14217 

14218 

14219 

14220 

14221 

14222 

14223 

14224 

14225 

14226 

14227 

14228 

14229 

14230 

14231 

14232 

14233 

14234 

14235 

14236 

14237 

14238 

14239 

14240 

14241 

14242 

14243 


MlX4 


7538 

7539 

7540 

7541 

7542 

7543 

7544 

7545 

7546 

7547 

7548 

7549 

7550 

7551 

7552 

7553 

7554 

7555 

7556 

7557 

7558 

7559 

7560 

7561 

7562 

7563 

7564 

7565 

7566 

7567 

7568 

7569 

7570 

7571 

7572 

7573 

7574 

7575 

7576 

7577 

7578 

7579 

7580 

7581 

7582 

7583 

7584 

7585 

7586 

7587 

7588 

7589 


TESTING RANDOM SECTORS. DATA, WORD COUNTS 

URDCNT, 

SECTOR, 

TIMES, 

VALUE, 

OLDSEC, 

OLDCHN, 

COMMAND, 

DBL.VALUE; 

label 

LOOP; 

PRINTS (SAY1, RTN5C); 

! 'RAND3' 

incr COUNT from 1 to .REPEAT do 
begin 

incr LUN from 0 to (.LJUNIT.- 1) do 
begin ' 


LOOP 


incr KOUNT from 1 to .TIMES do 
begin 

URDCNT = RNDUC (); 

SET PTRS (.URDCNT); 

SECTOR = RNDSEC (.LUN); 


SEQ 0310 


27-Mar-1982 19:24:42 
27-Mar-1982 19:23:44 


TOPS-20 Bliss-16 V2(212> 
PA: <NEALE>MLX4 .8LI . 5 (46) 


egu. 

GEN5 (); 
begin 

if .DRIVE_STATUS C.LUN3 eql ACTIVE 
then 

begin 

LSI UN = .LUN; 

UP TR = UBUFf ; 

RPTR = R8UFF; 

TIMES = (HIGHEST - L0UEST)/2 ♦ 1; 


l* 2 * START OF REPEAT LOOP FOR THIS ROUTINE 

!* 3 * START OF LOGICAL UNIT SELECTION LOOP 

J* 4 * START OF THE LOOP THAT COMPLETELY TESTS 1 UNIT 


»* 5 * START OF TEST FOR AN ACTIVE UNIT 


!* 6 * START OF COUNTING LOOP FOR SECTOR SELECTION 


! VALUE BETUEEN 1 AND BUFSIZ 
! VALUE BETUEEN LOUEST- AND HIGHEST 
if (.SECTOR + .URDCNT/256) gtra HIGHEST then URDCNT = 256*(HIGHEST - .SECTOR + 1); 
VALUE = write (.LUN, .URDCNT. .UPTR, .SECTOR); 

*♦ 

SEE HOU SUCCESSFUL THE URITE UAS: 


selectone .VALUE of 
set 


C1J 


begin 


! SEE ’SYSERR’ FOR DEFINITION 
! OF ERROR » CONTAINED IN 'VALUE* 


!* 6A * RETRY ALLOUED 
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SEO 0311 


14245 

MLX4 

14246 

14247 

14248 

7590 

14249 

7591 

14250 

7592 

14251 

7593 

14252 

7594 

14253 

7595 

14254 

7596 

14255 

7597 

14256 

7598 

14257 

7599 

14258 

7600 

14259 

7601 

14260 

7602 

14261 

7603 

14262 

7604 

14263 

7605 

14264 

7606 

14265 

7607 

14266 

7608 

14267 

7609 

14268 

7610 

14269 

7611 

14270 

7612 

14271 

761 3 

14272 

7614 

14273 

7615 

14274 

7616 

14275 

7617 

14276 

7618 

14277 

7619 

14278 

7620 

14279 

7621 

14280 

7622 

14281 

7623 

14282 

7624 

14283 

7625 

14284 

7626 

14285 

7627 

14286 

7628 

14287 

7629 

14288 

7630 

14289 

7631 

14290 

7632 

14291 

7633 

14292 

7634 

14293 

7635 

14294 

7636 

14295 

7637 

14296 

7638 

14297 

7639 

14298 

7640 

14299 

7641 
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TOPS-20 Bliss-16 V2C212) 
PA:<NEALE>MLX4.BII.5 (46) 


if RETRY (SIX, write, .LUN, .WRDCNT, .WPTR, .SECTOR) neg 0 
then .'THE RETRY FAILED — SYSTEM FATAL ERROR 

begin 

WHY DROPT C.LUNJ = C0DE.4; 

ERR BF (5301, MSG1, 0); .'**** OPTION 5, RAND3 ERROR 01 **** 

DODU (.LUN); 

leave LOOP; JJUMP JUST BEYOND END OF BLOCK * 4 * 
end; 


C2J 


end; !* 6A * 

begin 

WHY DROPT C.LUN3 = C0DE.5; 


ERR 5F (5302. MSG1, 0); 
DODU (.LUN); 


!* 6B * FATAL CONTROLLER ERROR — NO RETRY ALLOWED 
***** OPTION 5, RAND3 ERROR 02 **** 


leave LOOP; 
end; 


1JUMP JUST BEYOND END OF BLOCK * 4 * 
!* 68 * 


C3J : 


begin 

ERRDF 


! * 6C * FATAL DRIVE ERROR — NO RETRY ALLOWED 
(5303, MSG1. 0); !**** OPTION 5, RAND3 ERROR 03 **** 

WHY DROPT [.LUN3 = C0DE.6; 

DODO (.LUN); 

leave LOOP; !JUMP JUST BEYOND END OF BLOCK * 4 * 

end; I* 6C * 

tes; 

COMMAND = CHOOSE (); 

if .COMMAND eql read 
then 

begin 

PTr = RPTR • 

VALUE = read (.LUN. .WRDCNT. .RPTR, .SECTOR); 
end 

else 

begin 

PTR = .WPTR; 

VALUE = CHECK (.LUN, .WRDCNT, .WPTR, .SECTOR); 
end; 


SEE HOW SUCCESSFUL THE OPERATION WAS: 


selectone .VALUE of 
set 

CO] : 


•SEE 'SYSERR* FOR DEFINITION 
.'OF ERROR # CONTAINED IN ’VALUE' 
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SEQ 0312 


14301 

14302 

14303 

14304 

14305 

14306 

14307 

14308 

14309 

14310 

14311 

14312 

14313 

14314 

14315 

14316 

14317 

14318 

14319 

14320 

14321 

14322 

14323 

14324 

14325 

14326 

14327 

14328 

14329 

14330 

14331 

14332 

14333 

14334 

14335 

14336 

14337 

14338 

14339 

14340 

14341 

14342 

14343 

14344 

14345 

14346 

14347 

14348 

14349 

14350 

14351 

14352 

14353 

14354 

14355 
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TOPS-20 Bliss-16 V2(212> 
PA:<NEALE>MLX4.BLl.5 (46) 


7642 

7643 

7644 

7645 

7646 

7647 

7648 

7649 

7650 

7 651 

7652 

7653 

7654 

7655 

7656 

7657 

7658 

7659 

7660 

7661 

7662 

7663 

7664 

7665 

7666 

7667 

7668 

7669 

7670 

7671 

7672 

7673 

7674 

7675 

7676 

7677 

7678 

7679 

7680 

7681 

7682 

7683 

7684 

7685 

7686 

7687 

7688 

7689 

7690 

7691 

7692 

7693 


if .COMMAND eql read 
then 

begin 

if (DBL.VALUE = DOUBLE.CHECK (.UPTR. .RPTR, .WRDCNT) ) neq 0 
then 

begin 

SAYWHO ( . LUN) ; 

PRINTS CSAY1 . MSGS); i’ECC LOGIC FAILED TO DETECT DATA ERROR* 

PRINTS (FMT12A, . .DSL VALUE, .DSL VALUE); 

! * GOOD DATA: XXXXXX AT LOCATION YYYYYY* 

DSL VALUE = .DBL.VALUE ♦ BUFSI2*2; 

PRlRTB (FMT12B, ..DBL, VALUE, .DSL VALUE); 

! 'SAD DAT*: PPPPPP AT LOCATION QQQOQQ* 

WHY DROPT [.LUN] = C0DE.8; 

ERRDF (5304, MSG1, 0); .'**** OPTION 5, RAND3 ERROR 04 **•* 

DODU (.LUN); 

leave LOOP; .'JUMP JUST BEYOND END OF BLOCK * 4 * 
end; 


begin 


!* 6D * RETRY ALLOWED 


if RETRY (SIX, .COMMAND. .LUN. .WRDCNT, .PTR, .SECTOR) neq 0 
then ! THE RETRY FAILED — SYSTEM FATAL ERROR 

begin 

WHY DROPT [.LUN] = C0DE_4; 

ERR&F (5305, MSG1. 0); !**** OPTION 5, RAND3 ERROR 05 **** 

DODU (.LUN); 

leave LOOP; !JUMP JUST BEYOND END OF BLOCK * 4 * 
end; 

end; !* 6D * 

begin 6E * FATAL CONTROLLER ERROR — NO RETRY ALLOWED 

WHY DROPT [.LUN] = CODE.5; 

ERR0F (5306. MSG1 , 0); !***♦ OPTION 5, RAND3 ERROR 06 **** 

DODU (.LUN); 

leave LOOP; .'JUMP JUST BEYOND END OF BLOCK * 4 * 

end; 

begin !* 6F * FATAL DRIVE ERROR — NO RETRY ALLOWED 

ERRDF (5307, MSG1 , 0); !***♦ OPTION 5. RAND3 ERROR 07 **** 

WHY DROPT [.LUN] = C0DE.6; 

DODO (.LUN); 

leave LOOP; !JUMP JUST BEYOND END OF BLOCK * 4 ‘ 

end; J* 6F * 
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SEQ 0313 


14357 

14358 

14359 

14360 

14361 

14362 

14363 

14364 

14365 

14366 

14367 

14368 

14369 

14370 

14371 

14372 

14373 

14374 

14375 

14376 

14377 

14378 

14379 

14380 

14381 

14382 

14383 

14384 

14385 

14386 

14387 

14388 

14389 

14390 

14391 

14392 

14393 

14394 

14395 

14396 

14397 

14398 

14399 

14400 

14401 

14402 

14403 

14404 

14405 

14406 

14407 

14408 

14409 

14410 

14411 


NLX4 


7694 

7695 

7696 

7697 

7698 

7699 

7700 

7701 

7702 

7703 

7704 

7705 

7706 

7707 

7708 

7709 

7710 

7711 

7712 

7713 

7714 

7715 

7716 

7717 

7718 

7719 

7720 

7721 

7722 

7723 

7724 

7725 

7726 

7727 

7728 

7729 

7730 

7731 

7732 

7733 

7734 

7735 

7736 

7737 

7738 

7739 

7740 

7741 

7742 

7743 

7744 

7745 
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! * 6G * UNRECOVERABLE DATA ERROR 

>*** OPTION 5. RAND3 ERROR 08 **** 


begin 

ISOLATE (); 

ERRDF (5308. MSG2, 0); 

WHY DROPT [.LUN3 = C0DE.7; 

DODC (.LUN); 

leave LOOP; .'JUMP JUST BEYOND END OF BLOCK * 4 * 

end; !* 6G * 


[53 


begin 

ISOLATE O; 


6H * RECOVERABLE DATA ERROR 


tes; 


if .ERROUT then PRINTB (FMT10B. .CHAN); 

! * BIT QQ' 

OLDSEC = .MLEL; 

OLDCHN = .CHAN; 

if RETRY (ONE, CHECK. .LUN, .WRDCNT, .UPTR. .SECTOR) eql 5 
then 

if ((.MLEL eql .OLDSEC) and (.CHAN eql .OLDCHN)) 
then 

begin 

if .ERROUT then ERRHRD (5309, MSG4, 0); 

!***» OPTION 5, RAND3 ERROR 09 **** 

UP HARD.COUNT (.LUN. .BOARD); 
end 

else 

begin 

if .ERROUT then ERRSOET (5310, MSG3, 0); 

***** OPTION 5, RAND3 ERROR 10 **** 

UP SOFT.COUNT (.LUN, .BOARD); 
end 

begin 

if .ERROUT then ERRSOFT (5311. MSG3, 0); 

***** OPTION 5, RAND3 ERROR 11 **** 

UP SOFT_COUNT (.LUN. .BOARD); 
en3; 

end; * 6H * 


else 
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SEO 0514 


14413 ;MLX4 

14414 ; 

14415 

14416 

14417 

14418 

14419 

14420 

14421 

14422 

14423 

14424 

14425 

14426 

14427 

14428 

14429 

14430 

14431 

14432 

14433 

14434 

14435 

14436 

14437 

14438 

14439 

14440 

14441 

14442 

14443 

14444 

14445 

14446 

14447 

14448 

14449 

14450 

14451 

14452 

14453 

14454 

14455 

14456 

14457 

14458 

14459 

14460 

14461 

14462 

14463 

14464 

14465 

14466 

14467 
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27-Mar-1982 19:24:42 
27-Mar-1982 19:23:44 


TOPS-20 Bliss-16 V2(212) 
PA : <NE ALE >MLX4 .BL 1 . 5 (46) 


7746 

7747 

7748 

7749 

7750 

7751 

7752 

7753 

7754 

7755 

7756 

7757 

7758 

7759 

7760 

7761 

7762 

7763 

7764 

7765 

7766 

7767 

7768 

7769 

7770 

7771 

7772 

7773 

7774 

7775 

7776 

7777 

7778 

7779 

7780 

7781 

7782 

7783 

7784 

7785 

7786 

7787 

7788 

7789 

7790 

7791 

7792 

7793 

7794 

7795 

7796 

7797 


WPTR = .WPTR ♦ 2; 
end; 


end; 


!* 6 * END OF COUNTING LOOP FOR SECTOR SELECTION 
!* 5 * END OF TEST FOR AN ACTIVE UNIT 


Test to see if this uut’s address space is 
to be read for soft errors. This test is 
is intended for DMT purposes. 


if .EFNS21 
then 

begin 


! I s the background pattern to be read 


version czmlbb changed incr to incru 

incru SECTOR from LOWEST to HIGHEST do 

if read (.LUN, 256. RBUFF, .SECTOR) eql 5 
then 

begin 

ISOLATE <); 


!Find the failing bank and board no. 

if .ERROUT then PRINTS (FMT10S, .CHAN); 

Print where the error is 

Save the contents of the ML error location 
register so we can compare it to the new 
contents of this register after the retry. 

This is done to classify the error. 

OLDSEC = .MLEL; 

OLDCHN = .CHAN; 

Do a classify retry call. If the same error 
occures then classify it as a hard error. If 
a different error occured or the error went away 
then classify it as a soft error. 

if RETRY (ONE. .COMMAND. .LUN. 256. .PTR. .OLDSEC) eql 5 
then 

The same error occured so see if it is at the same 
sector and channel number, if so then classify 
it as a hard error else classiy it as a soft 
error. 



SEO 0315 
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14469 

;MLX4 



27-Mar-1982 19:24:42 TOPS-20 Bliss-16 V2(212> 

14470 


TESTING RANDOM SECTORS, 

DATA, WORD COUNTS 

27-Mar-1982 19:23:44 PA:<\‘EALE>MLX4.BLl. 5 (46) 

14472 

7798 


if ( ( .MLEL eql .OIDSEC) and (.CHAN eql .QLDCHN) ) 

14473 

7799 


then 


14474 

7800 


begin 

.'Same error occured 'hard' 

14475 

7801 




14476 

7802 


if .ERROUT 

.'Print error if enabled 

14477 

7803 


then 


14478 

7804 


begin 


14479 

P 7805 


ERRHRD (5312, .'Error number 

14480 

P 7806 


HSG4. 

JError message 

14481 

7807 


0); 

.'Additional message routine 

14482 

7808 


end; 


14483 

7809 




14484 

7810 


UP HARD.COUNT ( 

.LUN, .BOARD) ; 

14485 

7811 


end 


14486 

7812 


else 


14487 

7813 


begin 

!Not the same error 'soft' 

14488 

7814 




14489 

7815 


if .ERROUT 

! Print error if enabled 

14490 

7816 


then 


14491 

7817 


begin 


14492 

P 7818 


ERRSOFT (5313, JError number 

14493 

P 7819 


MSG3, 

.'Error message 

1<*494 

7820 


0); 

! Additional message routine 

14495 

7821 


end; 


14496 

7822 




14497 

7823 


UP SOFT.COUNT ( 

.LUN, .BOARD); 

14498 

7824 


end 


14499 

7825 




14500 

7826 


else 

!Not the same error ’soft' 

14501 

7827 


begin 


14502 

7828 




14503 

7829 


if .ERROUT 

JPrint error if enabled 

1450*' 

7830 


then 


14505 

7831 


begin 


14506 

P 7832 


ERRSOFT (5314, 

.'Error number 

14507 

P 7833 


MSG3, 

JError message 

14508 

7834 


0); 

.'Additional message routine 

14509 

7835 


end; 


14510 

7836 




14511 

7837 


UP SOFT.COUNT (.LUN 

, .BOARD); 

14512 

7838 


end; 


14513 

7839 




14514 

7840 


end; 


14515 

7841 




14516 

7842 

end; 



14517 

7843 




14518 

7844 

end; 


.'* 4 * END OF LOOP THAT COMPLETELY TESTS 1 UNIT 

14519 

7845 

end; 


!* 3 * END OF LOGICAL UNIT SELECTION LOOP 

14520 

7846 




14521 

7847 

end; 


!* 2 * END OF REPEAT LOOP FOR THIS ROUTINE 

14522 

7848 




14523 

7849 

return; 
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SEQ 0316 


14525 

;MlX4 






27-Mar-1982 

19:24:42 TOPS-20 Bliss-16 V2<212> 


14526 

• 


TESTING 

RANDOM SECTORS, 

DATA, 

WORD COUNTS 27-Mar-1982 

19:23:44 PA:<NEALE>MLX4.8LI .5 (46) 


14527 










14528 

• 

7850 

end; 




!* 1 • END 

OF ROUTINE 


1h55Z 

14533 






.S8TTL 

RAND3 TESTING RANDOM SECTORS 

. DATA, WORD COUNTS 


14537 

075444 

004167 

107664 


RAND3: 

JSR 

R1.JSAVE5 

0 

7487 

14538 

075450 

162706 

000024 



sue 

#24, SP 



14539 

075454 

012746 

007700 



MOV 

#RTN5C ,-(SP) 

0 

7551 

14540 

075460 

012746 

007072 



MOV 

#SAYl ,-(SP) 



14541 

075464 

012746 

000002 



MOV 

#2,-(SP> 



14542 

075470 

010600 




MOV 

SP,RO 

; SP,* 


14543 

075472 

104414 




TRAP 

1 4 



14544 

075474 

005066 

000030 



CLR 

30(SP) 

; COUNT 

7554 

14545 

075500 

000167 

002254 



JMP 

44$ 



14546 

075504 

016766 

104302 

000012 

IS: 

MOV 

L$UNIT,12(SP) 

0 

7557 

14547 

075512 

005003 




CLR 

R3 

: LUN 


14548 

075514 

000167 

002226 



JMP 

43$ 



14549 

075520 

004767 

144074 


2$: 

JSR 

PC,GEN5 

• 

0 

7559 

14550 

075524 

010300 




MOV 

R3,R0 

; LUN,* 

7563 

14551 

075526 

006200 




ASR 

RO 



14552 

075530 

006200 




ASR 

RO 



14553 

075532 

006200 




ASR 

RO 



14554 

075534 

062700 

034442 



ADD 

#DRIVE. STATUS, RO 



14555 

075540 

010046 




MOV 

RO.-(SP) 



14556 

075542 

010346 




MOV 

R3.-(SP) 

; LUN,* 


14557 

075544 

042716 

177770 



BIC 

#177770, (SP) 



14558 

075550 

012746 

000001 



MOV 

#1,-(SP) 



14559 

075554 

005046 




CLR 

-(SP> 



14560 

075556 

004767 

106574 



JSR 

PC-8L$GT2 



14561 

075562 

062706 

000010 



ADD 

#10, SP 



14562 

075566 

005300 




DEC 

RO 



14563 

075570 

001402 




BEQ 

3$ 



14564 

075572 

0001 67 

001502 



JMP 

31$ 



14565 

075576 

010367 

104272 


3$: 

MOV 

R3,L$LUN 

; LUN,* 

7566 

14566 

075602 

012767 

012670 

135060 


MOV 

#WBUFF,UPTR 


7567 

14567 

075610 

012767 

022670 

135054 


MOV 

#R8UFF.RPTR 


7568 

14568 

075616 

010300 




MOV 

R3,R0 

; LUN,* 

7569 

14569 

075620 

006300 




ASL 

RO 



14570 

075622 

012766 

034500 

000010 


MOV 

#T0P.SECT,10(SP) 



14571 

075630 

060066 

000010 



ADD 

RO-IO(SP) 



14572 

075634 

017646 

000010 



MOV 

ai6(SP>,-(SP) 



14573 

075640 

166016 

034460 



SUB 

LOW.SECT(RO) ,(SP) 



14574 

075644 

012746 

000002 



MOV 

#2,-< SP) 



14575 

075650 

004767 

107314 



JSR 

PC,BL$DIV 



14576 

075654 

010066 

000020 



MOV 

R0,20(SP) 

; *, TIMES 


14577 

075660 

005266 

000020 



INC 

20(SP) 

; TIMES 


14578 

075664 

00506t 

000012 



CLR 

12(SP) 

; (COUNT 

7571 

14579 

075670 

000167 

001362 



JMP 

29$ 
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14581 




;MLX4 




14582 

i / coi 




0 


TESTING RANDOM SECTORS. 

DATA. WORD COUNTS 

1 >583 

14584 075674 

004767 

172304 


4$: 

JSR 

PC .RNDUC 

0 

14585 075700 

010002 




MOV 

R0.R2 

; * .WRDCNT 

14586 075702 

010246 




MOV 

R2.-CSP) 

; WRDCNT,* 

14587 075704 

004767 

151222 



JSR 

PC.SET.PTRS 


14588 075710 

010316 




MOV 

R3,(SP) 

; LUN,* 

14589 075712 

004767 

172322 



JSR 

PC.RNDSEC 


14590 075716 

010001 




MOV 

R0.R1 

; *, SECTOR 

14591 075720 

010246 




MOV 

R2.-CSP) 

; WRDCNT.* 

14592 075722 

012746 

000400 



MOV 

#400. -<SP) 


14593 075726 

004767 

107236 



JSR 

PC.BL5DIV 


14594 075732 

022626 




CMP 

(SP)+,<SP>* 


14595 075734 

060100 




ADD 

R1.R0 

; SECTOR,* 

14596 075736 

020076 

000016 



CMP 

R0.i16(SP) 


14597 075742 

101410 




BIOS 

55 


14598 075744 

017600 

000016 



MOV 

ai6(SP),R0 


14599 075750 

160100 




SUB 

ri.ro 

; SECTOR,* 

14600 075752 

000300 




SWAB 

RO 


14601 075754 

105000 




CLRB 

RO 


14602 075756 

010002 




MOV 

R0.R2 

; *. WRDCNT 

14603 075760 

062702 

000400 



ADD 

#400. R2 

; *, WRDCNT 

14604 075764 

010316 



55: 

MOV 

R3.CSP) 

; LUN,* 

14605 075766 

010246 




MOV 

R2.-CSP) 

; WRDCNT,* 

14606 075770 

016746 

134674 



MOV 

WPTR.-(SP) 


14607 075774 

010146 




MOV 

RI.-(SP) 

; SECTOR,* 

14608 075776 

004767 

147422 



JSR 

PC, WRITE 


14609 076002 

010004 




MOV 

R0.R4 

; * , VALUE 

14610 076004 

020427 

000001 



CM P 

R4,#1 

; VALUE.* 

14611 076010 

001031 




BNE 

65 


14612 076012 

012746 

000006 



MOV 

#6,-(SP) 


14613 076016 

012746 

045424 



MOV 

#WRITE.-(SP) 


14614 076022 

010346 




MOV 

R3.-CSP) 

; LUN,* 

14615 076024 

010246 




MOV 

R2.-CSP) 

; WRDCNT,* 

14616 076026 

016746 

134636 



MOV 

WPTR.-(SP) 


14617 076032 

010146 




MOV 

RI.-(SP) 

; SECTOR,* 

14618 076034 

004767 

15C164 



JSR 

PC, RETRY 


14619 076040 

062706 

000014 



ADD 

#14, SP 


14620 076044 

005700 




TST 

RO 


14621 076046 

001446 




BEQ 

95 


14622 076050 

112763 

000004 

034446 


MOVB 

#4,WHY.DR0PT(R3> 

; *.*(LUN) 

14623 076056 

104455 




TRAP 

55 

0 

14624 076060 

012265 




.WORD 

12265 


14625 076062 

011070 




.WORD 

MSG1 


14626 076064 

000000 




.WORD 

0 


14627 076066 

010300 




MOV 

R3.R0 

; LUN,* 

14628 076070 

104451 




TRAP 

51 


14629 076072 

000431 




BR 

85 

0 

14630 076074 

020427 

000002 


65: 

CMP 

R4,#2 

; VALUE.* 

14631 076100 

001012 




BNE 

75 


14632 076102 

112763 

000005 

034446 


MOVB 

#5, WHY .DROPT lR3) 

; *,*(LUN) 

14633 076110 

104455 




TRAP 

55 

0 

14634 076112 

012266 




.WORD 

12266 


14635 076114 

011070 




.WORD 

MSG1 



sea 0317 

27-Mar-1982 19:24:42 TOPS 
27-Mar-1982 19:23:44 PA:< 

7573 

7574 

7575 

7577 


7579 


7585 

7591 


7594 

7595 


7596 

7597 
7585 

7604 

7605 
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14637 





;MLX4 


14638 

14639 

14640 

076116 

000000 



w 

.WORD 

14641 

076120 

010300 




MOV 

14642 

076122 

104451 




TRAP 

14643 

076124 

0^0414 

(*20427 



7$: 

BR 

14644 

076126 

000003 


CMP 

14645 

076132 

001014 




BNE 

14646 

076134 

104455 




TRAP 

14647 

076136 

012267 




.WORD 

14648 

076140 

011070 




.WORD 

14649 

076142 

000000 




.WORD 

14650 

076144 

112763 

000006 

034446 


M0V8 

14651 

076152 

010300 




MOV 

14652 

076154 

104451 




TRAP 

14653 

076156 

062706 

000014 


8$: 

ADD 

14654 

076162 

000535 




BR 

14655 

076164 

004767 

147776 


9$: 

JSR 

14656 

076170 

010066 

000036 



MOV 

14657 

076174 

005005 




CLR 

14658 

076176 

020027 

045612 



CMP 

14659 

076202 

001014 




BNE 

14660 

076204 

005205 


000034 


INC 

14661 

076206 

016766 

134460 


MOV 

14662 

076214 

010346 




MOV 

14663 

076216 

010246 




MOV 

14664 

076220 

016746 

134446 



MOV 

14665 

076224 

010146 




MOV 

14666 

076226 

004767 

147360 



JSR 

14667 

076232 

000412 


000034 

10$: 

BR 

14668 

076234 

016766 

134430 

MOV 

14669 

076242 

010346 




MOV 

14670 

076244 

010246 




MOV 

14671 

076246 

016746 

134416 



MOV 

14672 

076252 

010146 




MOV 

14673 

076254 

004767 

147520 


11$: 

JSR 

14674 

076260 

010004 



MOV 

14675 

076262 

001076 




BNE 

14676 

076264 

006005 




ROR 

14677 

076266 

103402 




BLO 

14678 

076270 

000167 

000750 


12$: 

JMP 

14679 

076274 

016746 

134370 


13$: 

MOV 

14680 

076300 

016746 

134366 



MOV 

14681 

076304 

010246 




MOV 

14682 

076306 

004767 

146014 



JSR 

14683 

076312 

062706 

000006 



ADD 

14684 

076316 

010066 

000050 



MOV 

14685 

076322 

001762 




8EQ 

14686 

076324 

010346 




MOV 

14687 

076326 

004767 

137172 



JSR 

14688 

076332 

012716 

011216 



MOV 

14689 

076336 

012746 

007072 



MOV 

14690 

076342 

012746 

000002 



MOV 

14691 

076346 

010600 




MOV 


I 9 

3:41 PAGE 299 


TESTING RANDOM SECTORS. DATA. UORD COUNTS 


0 

R3.R0 

51 

8 $ 

R4,#3 

9$ 

55 

12267 

MSG1 

#6,UHY.DROPT(R3) 

R3.R0 

51 

#14, SP 
14$ 

PC, CHOOSE 
R0,36(SP) 

R5 

RO.AREAD 

loi 

R5 

RPTR,34(SP) 

R3,-(SP> 

R2,-(SP) 

RPTR.-(SP) 

R1,-(SP) 

PC. READ 
11 $ 

UPTR.34CSP) 

R3.-(SP) 

R2.-(SP) 

UPTR.-(SP) 

R1 ,-(SP) 

PC, CHECK 

R0.R4 

15$ 

R5 

13$ 

28$ 

ypTR.-(SP) 

RPTR.-(SP) 

R2.-CSP) 

PC. DOUBLE. CHECK 
#6.SP 
R0.50(SP> 
i2i 

R3.-(SP> 

PC.SAYUHO 

#MSG5.(SP) 

#SAYl,-(SP> 

#2,-(SP) 

SP.RO 


; LUN.* 

; VALUE.* 


; *.*(LUN) 
; LUN,* 


; *, COMMAND 
; COMMAND.* 


; *»PTR 
; LUN,* 

; URDCNT,* 

; SECTOR,* 


; *,PTR 
; LUN,* 

; WRDCNT,* 

; SECTOR,* 

; *. VALUE 


; WRDCNT.* 

; *.DBL. VALUE 
; LUN.* 


SP.' 


SCO 0318 

27-Mar-1982 19:24:42 TOPS 
27-Mar-1982 19:23:44 PA:' 


7606 

7607 
7585 

7612 


7613 

7614 

7615 
7619 
7621 


7624 

7625 


7629 

7630 


7637 

7642 

7646 


7649 

7650 



J 9 
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14693 




;MLX4 




14694 




0 


TESTING RANDOM SECTORS. DATA. 

WORD COUNTS 

14695 








14696 076350 

104414 




TRAP 

1 4 


14697 076352 

016616 

000056 



MOV 

56(SP) ,(SP) 

; DBL. VALUE,* 

14698 076356 

017646 

000056 



MOV 

i56(SP).-(SP) 

; DBL. VALUE,* 

14699 076362 

O' 2746 

006710 



MOV 

#FMT12A.-(SP) 


14700 076366 

012746 

000003 



MOV 

#3.-(SP) 


14701 076372 

010600 




MOV 

SP.RO 

; SP,* 

1470? 076374 

104414 




TRAP 

1 4 


14703 076376 

062766 

010000 

000064 


ADD 

#10000,64(SP) 

; *, DBL. VALUE 

14704 076404 

016616 

000064 



MOV 

64<SP),(SP) 

; DBL. VALUE,* 

14705 076410 

017646 

000064 



MOV 

i64(SP>.-(SP) 

; DBL. VALUE.* 

14706 076414 

012 7 46 

006756 



MOV 

#FMT12B,-(SP> 


14707 076420 

012746 

000003 



MOV 

#3.-(SP) 


14708 076424 

010600 




MOV 

SP.RO 

; SP.* 

14709 076426 

104414 




TRAP 

1 4 


14710 076430 

112763 

000010 

034446 


MOVB 

#10.WHY.DROPT(R3) 

; *,*(LUN) 

14711 076436 

104455 




TRAP 

55 

0 

14712 076440 

012270 




.WORD 

12270 


14713 076442 

011070 




.WORD 

MSG1 


14714 076444 

000000 




.WORD 

0 


14715 076446 

010300 




MOV 

R3.R0 

; LUN,* 

14716 076450 

104451 




TRAP 

51 


14717 076452 

062706 

000046 



ADD 

#46. SP 

0 

14718 076456 

000506 



14$: 

8R 

20$ 


14719 076460 

020427 

000001 


15$: 

CMP 

R4 #1 

; VALUE , * 

14720 076464 

001031 




BNE 

16$ 


14721 076466 

012746 

000006 



MOV 

#6,-<SP> 

0 

14722 076472 

016646 

00005C 



MOV 

50(SP).-(SP) 

; COMMAND.* 

14723 076476 

010346 




MOV 

R3.-(SP> 

; LUN,* 

14724 076500 

010246 




MOV 

R2.-(SP) 

; WRDCNT, * 

14725 076502 

016646 

000054 



MOV 

54(SP),-(SP) 

; PTR,* 

14726 076506 

010146 




MOV 

Rl.-(SP) 

; SECTOR,* 

14727 076510 

004767 

147510 



JSR 

PC, RETRY 


14728 076514 

062706 

000014 



ADD 

#14, SP 


14729 076520 

005700 




TST 

RO 


14730 076522 

001662 




BEQ 

125 


14731 076524 

112763 

000004 

034*46 


MOVB 

#4,WHY.DROPT(R3> 

; *,*(LUN) 

14732 076532 

104455 




TRAP 

55 

• 

0 

14733 076534 

012271 




.WORD 

12271 


14734 076536 

011070 




.WORD 

MSG1 


14735 076540 

000000 




.WORD 

0 


14736 076542 

010300 




MOV 

R3.R0 

; LUN,* 

14737 076544 

104451 




TRAP 

51 


14738 076546 

000450 




BR 

19$ 

; 

14739 076550 

02042/ 

000002 


16$: 

CMP 

R4,#2 

; VALUE,* 

14740 076554 

001012 




BNE 

17$ 


14741 076556 

112763 

000005 

034446 


MOVB 

#5.WHY.DROPT(R3> 

; *,*(LUN) 

14742 076564 

104455 




TRAP 

55 

0 

14743 076566 

012272 




.WORD 

12272 


14744 076570 

011070 




.WORD 

MSG1 


14745 076572 

000000 




.WORD 

0 


14746 076574 

010300 




MOV 

R3.R0 

; LUN.* 

14747 076576 

104451 




TRAP 

51 



SEQ 0319 

27-Mar-1982 19:24:42 TOPS 
27-Mar-1982 19:23:44 PA:< 


7651 


7653 

7654 


7656 

7657 

7658 

7659 
7637 
7667 


7670 

7671 


7672 

7673 
7637 

7680 

7681 


7682 
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SEO 

0320 

i 14749 



;MLX4 




27-Mar-1982 

19:24:42 

TOPS 

14750 



9 


TESTING RANDOM SECTORS. 

DATA, WORD COUNTS 

27-Mar-1982 

19:23:44 

PA :< 

14751 

i 14752 076600 

000433 



BR 

19$ 

• 



7683 

14753 076602 

020427 

000003 

17$: 

CMP 


; VALUE,* 



7637 

14754 076606 

001012 



BNE 

18$ 





14755 076610 

104455 



TRAP 

55 

# 



7688 

14756 076612 

012273 



.WORD 

12273 





14757 076614 

011070 



.WORD 

MSG1 





14758 076616 

000000 



.WORD 

0 





14759 076620 

112763 

000006 

034446 

MOVB 

#6.WHY.DR0PT(R3) 

; *.*<LUN> 



7689 

14760 076626 

010300 



MOV 

R3.R0 

; LUN,* 



7690 

14761 076630 

104451 



TRAP 

51 





14762 076632 

000416 



BR 

19$ 

9 



7691 

14763 076634 

020427 

000004 

18$: 

CMP 

R4,#4 

; VALUE,* 



7637 

14764 076640 

001017 



BNE 

21$ 





14765 076642 

004767 

140464 


JSR 

PC. ISOLATE 

9 



7696 

14766 076646 

104455 



TRAP 

55 

9 



7697 

14767 076650 

012274 



.WORD 

12274 





14768 076652 

011120 



.WORD 

MSG2 





14769 076654 

000000 



.WORD 

0 





14770 076656 

112763 

000007 

034446 

MOVB 

#7,UHY.DR0PT(R3) 

; *,*(LUN) 



7698 

14771 076664 

010300 



MOV 

R3.R0 

; LUN.* 



7699 

14772 076666 

104451 



TRAP 

51 




• 

14773 076670 

062706 

000024 

19$: 

ADD 

#24. SP 

9 



7700 

14774 076674 

000167 

001044 

20$: 

JMP 

42$ 





14775 076700 

020427 

000005 

21$: 

CMP 


; VALUE,* 



7637 

1 14776 076704 

001157 



BNE 

28$ 





14777 076706 

004767 

140420 


JSR 

PC, ISOLATE 

9 



7705 

14778 C76712 

032767 

000001 

103340 

BIT 

#1 .ERROUT 

• 



7707 

14779 076720 

001423 



BEQ 

22$ 





14780 076722 

017705 

135462 


MOV 

BML.REG+42.R5 





14781 076726 

006205 



ASR 

R5 





14782 076730 

006205 



ASR 

R5 





14783 076732 

006205 



ASR 

R5 





14784 076734 

006205 



ASR 

R5 





14785 076736 

006205 



ASR 

R5 





14786 076740 

006205 



ASR 

R5 





14787 076742 

042705 

177700 


BJC 

#177700.R5 





14788 076746 

010546 



MOV 

R5,-(SP) 





14789 076750 

012746 

006640 


MOV 

AFMTIOB.-CSP) 





14790 076754 

012746 

000002 


MOV 

#2,-(SP) 





14791 076760 

010600 



MOV 

SP.RO 

; SP,* 




14792 076762 

104414 



TRAP 

14 





14793 076764 

062706 

000006 


ADD 

#6,SP 





14794 076770 

017766 

135416 

000052 22$: 

MOV 

iML.REG*44,52<SP) 

; *,OLDSEC 



7710 

14795 076776 

017705 

135406 


MOV 

9ML.REG+42.R5 

9 



7711 

14796 077002 

006205 



ASR 

R5 





14797 077004 

006205 



AS R 

R5 





14798 077006 

006205 



ASR 

R5 





14799 077010 

006205 



ASR 

R5 





14800 077012 

006205 



ASR 

R5 





14801 077014 

006205 



ASR 

R5 





14802 077016 

042705 

177700 


BIC 

#177700,R5 





14803 077022 

010566 

000042 


MOV 

R5.42CSP) 

; *,OLDCHN 



! 
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RAND3 TESTING RANDOM SECTORS. DATA. WORD 

COUNTS 




14805 




;MLX4 




14806 




• 


TESTING RANDOM SECTORS. 

DATA. UORD COUNTS 

14807 

14808 077026 

012746 

000001 



MOV 

#1,-(SP) 

0 

14809 077032 

012746 

046000 



MOV 

#CHECK,-(SP> 


14810 077036 

010346 




MOV 

R3.-CSP) 

; LUN,* 

14811 077040 

010246 




MOV 

R2.-CSP) 

; URDCNT,* 

14812 077042 

016746 

133622 



MOV 

WPTR.-(SP) 


14813 077046 

010146 




MOV 

RI.-(SP) 

; SECTOR,* 

14814 077050 

004767 

147150 



JSR 

PC, RE TRY 


14815 077054 

062706 

000014 



ADD 

#14, SP 


14816 077060 

020027 

000005 



CMP 

R0.#5 


14817 077064 

001051 




BNE 

25$ 


14818 077066 

027766 

135320 

000052 


CMP 

aML.REG*44,52(SP) 

; '-.OLDSEC 

14819 077074 

001034 




BNE 

24$ 


14820 077076 

016600 

000042 



MOV 

42(SP) ,R0 

; OLDCHN,* 

14821 077102 

017705 

135302 



MOV 

BML.REG+42.R5 


14822 077106 

006205 




ASR 

R5 


14823 077110 

006205 




ASR 

R5 


14824 077112 

006205 




ASR 

R5 


14825 077114 

006205 




ASR 

R5 


14826 077116 

006205 




ASR 

R5 


14827 077120 

006205 




ASR 

R5 


14828 077122 

042705 

177700 



BIC 

#1 77700, R5 


14829 077126 

020500 




CMP 

R5.R0 


14830 077130 

001016 




BNE 

24$ 


14831 077132 

032767 

000001 

103120 


BIT 

fl.ERROUT 

0 

14832 077140 

001404 




BEQ 

23$ 


14833 077142 

104456 




TRAP 

56 


14834 077144 

012275 




.WORD 

12275 


14835 077146 

011202 




.WORD 

MSG4 


14836 077150 

000000 




.WORD 

0 


14837 077152 

010346 



23$: 

MOV 

R3,-(SP) 

: LUN,* 

14838 077154 

016746 

135162 



MOV 

BOARD, -(SP) 


14839 077160 

004767 

140236 



JSR 

PC .UP. HARO. COUNT 


14840 077164 

000426 




BR 

27$ 

0 

14841 077166 

032767 

000001 

103064 

24$: 

BIT 

#1 .ERROUT 

0 

14842 077174 

001415 




BEQ 

26$ 


14843 077176 

104457 




TRAP 

57 


14844 077200 

012276 




.WORD 

12276 


14845 077202 

011166 




.WORD 

MSG3 


14846 077204 

000000 




.WORD 

0 


14847 077206 

000410 




BR 

26$ 

0 

14848 077210 

032767 

000001 

103042 

25$: 

BIT 

#1 .ERROUT 

0 

14849 077216 

001404 




BEQ 

26$ 


14850 077220 

104457 




TRAP 

57 


14851 077222 

012277 




.UORD 

12277 


14852 077224 

011166 




.WORD 

MSG3 


14853 077226 

000000 




.WORD 

0 


14854 077230 

010346 



26$: 

MOV 

R3,-(SP) 

; LUN,* 

14855 077232 

016746 

135104 



MOV 

BOARD, -(SP) 


14856 077236 

004767 

140642 



JSR 

PC. UP. SOFT. COUNT 


14857 077242 

022626 



27$: 

CMP 

ISP)* ASP)* 

0 

14858 077244 

062767 

000002 

133416 

28$: 

ADD 

#2.WPTR 

0 

-359 077252 

062706 

000020 



ADD 

#20, SP 

0 


SEQ 0321 

27-Mar-1982 19:24:42 TOPS 
27-Mar-1982 19:23:44 PA:< 

7713 


7716 


7720 


7723 

7716 

7728 


7731 

7737 


7740 


7704 

7746 

7572 
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14861 




;MLX4 


14862 




a 


14863 






14864 077256 

005266 

000012 


29$: 

JNC 

14865 077262 

026666 

000012 

000020 


CMP 

14866 077270 

003002 




8GT 

14867 077272 

000167 

176376 



JMP 

14868 077276 

022626 



30$: 

CMP 

14869 077300 

032767 

000001 

102754 

31$: 

BIT 

14870 077306 

001002- 




BNE 

14871 077310 

000167 

000430 



JMP 

14872 077314 

010300 



32$: 

MOV 

14873 077316 

006300 




ASL 

14874 077320 

016066 

034500 

000010 


MOV 

14875 077326 

016005 

034460 



MOV 

14876 077332 

000577 




BR 

14877 077334 

010346 



33$: 

MOV 

14878 077336 

012746 

000400 



MOV 

14879 077342 

012746 

022670 



MOV 

14880 077346 

010546 




MOV 

14881 077350 

004767 

146236 



JSR 

14882 077354 

062706 

000010 



ADD 

14883 077360 

020027 

000005 



CMP 

14884 077364 

001161 




BNE 

14885 077366 

004767 

137740 



JSR 

14886 077372 

032767 

000001 

102660 


BIT 

14887 077400 

001423 




BEO 

14888 077402 

017700 

135002 



MOV 

14889 077406 

006200 




ASR 

14890 077410 

006200 




ASR 

14891 077412 

006200 




ASR 

14892 077414 

006200 




ASR 

14893 077416 

006200 




ASR 

14894 077420 

006200 




ASR 

14895 077422 

042700 

177700 



BIC 

14896 077426 

010046 




MOV 

14897 077430 

012746 

006640 



MOV 

14898 077434 

012746 

000002 



MOV 

14899 077440 

010600 




MOV 

14900 077442 

104414 




TRAP 

14901 077444 

062706 

000006 



ADD 

14902 077450 

017766 

134736 

00002c> 

34$: 

MOV 

14903 077456 

017700 

134726 



MOV 

14904 077462 

006200 




ASR 

14905 077464 

006200 




ASR 

14906 077466 

006200 




ASR 

14907 077470 

006200 




ASR 

14908 077472 

006200 




ASR 

14909 077474 

006200 




ASR 

14910 077476 

042700 

177700 



BIC 

14911 077502 

010066 

000016 



MOV 

14912 077506 

012746 

000001 



MOV 

14913 077512 

016646 

000024 



MOV 

14914 077516 

010346 




MOV 

14915 077520 

012746 

000400 



MOV 


M 9 

13:41 PAGE 303 
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12(SP) 

12(SP).20(SP) 

30$ 

4$ 

(SP)+.(SP>* 

#1 .EFNS21 
32$ 

42$ 

R3.R0 

RO 

TOP. SECT ( RO) ,10(SP) 

L0W.SECT(R0).R5 

41$ 

R3.-CSP) 

#400, -(SP) 
#RBUFF,-(SP> 
R5,-(SP) 


; (COUNT 
; KOUNT. TIMES 


; LUN,* 

; *, SECTOR 
; LUN,* 

; SECTOR.* 


PC -READ 
#10. SP 

R0,#5 

40$ 


PC, ISOLATE 

0 

#1 .ERROUT 

34§ 

8ML.REG+42.R0 

RO 

RO 

RO 

RO 

RO 

RO 

#1 77700, RO 

RO,-(SP) 

#FMT108,-(SP) 

#2,-<SP> 

0 

SP.RO 

14 

#6,S P 

3ML.REG*44,26(SP) 

; SP,* 

; *,OLDSEC 

BML.REG+42,R0 

RO 

RO 

RO 

RO 

RO 

RO 

#1 77700, RO 

0 

R0,16(SP) 

; *,OLDCHN 

#1,-<SP> 

; COMMAND,* 

24(SP) ,-(SP) 

R3.-CSP) 

#460, -(SP) 

; LUN,* 


SEQ 0322 

27-Mar-1982 19:24:42 TOPS 
27-Mar-1982 19:23:44 PA:< 

7571 


7565 

7757 


7764 


7766 


7769 

7771 


7780 

7781 


7789 
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COUNTS 




14917 




;MLX4 




14918 




• 


TESTING RANDOM SECTORS, 

DATA, WORD COUNTS 

14919 








14920 077524 

016646 

000030 



MOV 

30<SP).-(SP> 

; PTR,* 

14921 077530 

016646 

000040 



MOV 

40CSP) ,-(SP) 

; OLDSEC,* 

14922 077534 

*04767 

146464 



JSR 

PC, RETRY 


14923 077540 

062706 

000014 



ADD 

#14, SP 


14924 077544 

020027 

000005 



CMP 

R0.#5 


14925 077550 

001051 




BNE 

37$ 


14926 077552 

027766 

134634 

000026 


CMP 

3ML.REG+44,26(SP) 

; *, OLDSEC 

14927 077560 

001034 




BNE 

36$ 


14928 077562 

016646 

000016 



MOV 

16(SP) ,-(SP) 

; OLDCHN,* 

14929 077566 

017700 

134616 



MOV 

9ML.REG+42.R0 


14930 077572 

006200 




ASR 

RO 


14931 077574 

006200 




ASR 

RO 


14932 077576 

006200 




ASR 

RO 


14933 077600 

006200 




ASR 

RO 


14934 077602 

006200 




ASR 

RO 


14935 077604 

006200 




ASR 

RO 


14936 077606 

042700 

177700 



BIC 

#177700,R0 


14937 077612 

020026 




CMP 

RO.(SP>+ 


14938 077614 

001016 




BNE 

36$ 


14939 077616 

032767 

000001 

102434 


BIT 

#1 .ERROUT 

0 

14940 077624 

001404 




BEO 

35$ 


14941 077626 

104456 




TRAP 

56 

• 

0 

14942 077630 

012300 




.WORD 

12300 


14943 077632 

011202 




.WORD 

MSG4 


14944 077634 

000000 




.WORD 

0 


14945 077636 

010346 



35$: 

MOV 

R3. -(SP) 

; LUN,* 

14946 077640 

016746 

134476 



MOV 

BOARD, -(SP) 


14947 077644 

004767 

137552 



JSR 

PC. UP. HARD. COUNT 


14948 077650 

000426 




BR 

39$ 

• 

0 

14949 077652 

032767 

000001 

102400 

36$: 

BIT 

#1, ERROUT 

• 

0 

14950 077660 

001415 




BEO 

38$ 


14951 077662 

104457 




TRAP 

57 

0 

14952 077664 

012301 




.WORD 

12301 


14953 077666 

011166 




.WORD 

MSG3 


14954 077670 

000000 




.WORD 

0 


14955 077672 

000410 




BR 

38$ 

4 

14956 077674 

032767 

000001 

102356 

37$: 

BIT 

#1. ERROUT 

; 

14957 077702 

001404 




BEO 

38$ 


14958 077704 

104457 




TRAP 

57 

0 

14959 077706 

012302 




.WORD 

12302 


14960 077710 

011166 




.WORD 

MS 63 


14961 077712 

000000 




.WORD 

0 


14962 077714 

010346 



38$: 

MOV 

R3.-CSP) 

: LUN.* 

14963 077716 

016746 

134420 

i 


MOV 

BOARD. -(SP) 


14964 077722 

004767 

140156 



JSR 

PC. UP. SOFT. COUNT 


14965 077726 

022626 



39$: 

CMP 

(SPH. (SP)* 

0 

14966 077730 

005205 



40$: 

INC 

R5 

; SECTOR 

14967 077732 

020566 

000010 


41$: 

CMP 

R5.10(SP) 

; SECTOR,* 

14968 077736 

101002 




BHI 

42$ 


14969 077740 

000167 

177370 



JMP 

33$ 


14970 077744 

005203 



42$: 

INC 

R3 

; LUN 

14971 077746 

020366 

000012 


43$: 

CMP 

R3.12(SP) 

; LUN.* 


SEQ 0323 

27-Mar-1982 19:24:42 TOPS 
27-Mar-1982 19:23:44 PA:< 


7798 


7802 

7807 


7810 

7798 

7815 

7820 


7823 

7829 

7834 


7837 

7768 

7764 


7557 
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14973 

14974 

14975 

14976 

14977 

14978 

14979 

14980 

14981 

14982 

14983 

14984 

14985 

14986 

14991 

14992 


077752 002002 

077754 000167 175540 

077760 005266 000030 _ 

077764 026666 000030 000050 

077772 003002 

077774 000167 175504 

100000 062706 000032 

100004 000207 


SEG 0324 


TESTING RANDOM SECTORS. DATA, WORD COUNTS 


27-Mar-1982 19:24:42 
27-Mar-1982 19:23:44 


BGE 44$ 

JMP 2$ 

44$: INC 30(SP) 

CMP 30(SP),50(SP) 

BGT 45$ 

JMP 1$ 

45$: ADD #32, SP 

RTS PC 

; Routine Size: 625 words # 

; Maximum stack depth per invocation: 


; COUNT 

• COUNT, REPEAT 


38 words 
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14994 

14995 

14996 

14997 

14998 

14999 

15000 

15001 

15002 

15003 

15004 

15005 

15006 

15007 

15008 

15009 

15010 

15011 

15012 

15013 

15014 

15015 

15016 

15017 

15018 

15019 

15020 

15021 

15022 

15023 

15024 

15025 

15026 

15027 

15028 

15029 

15030 

15031 

15032 

15033 

15034 

15035 

15036 

15037 

15038 

15039 

15040 

15041 

15042 

15043 

15044 

15045 

15046 

15047 

15048 


;MLX4 


7851 

7852 

7853 

7854 

7855 

7856 

7857 

7858 

7859 

7860 

7861 

7862 

7863 

7864 

7865 

7866 

7867 

7868 

7869 

7870 

7871 

7872 

7873 

7874 

7875 

7876 

7877 

7878 

7879 

7880 

7881 

7882 

7883 

7884 

7885 

7886 

7887 

7888 

7889 

7890 

7891 

7892 

7893 

7894 

7895 

7896 

7897 

7898 

7899 

7900 

7901 

7902 


27-Mar-1982 19:24:42 

TESTING RANDOM UNITS, SECTORS, DATA, WORD COUNT 27-Mar-1982 19:23:44 

Xsbttl ’TESTING RANDOM UNITS, SECTORS. DATA. WORD COUNTS’ 
routine RAND4 (REPEAT) : novalue = 

begin 1 * START OF ROUTINE 




ROUTINE: RAND4 (REPEAT) 

PURPOSE: TO CHECK RANDOM UNITS 

ARGUMENT: REPEAT = NUMBER OF TIMES TO EXECUTE ENTIRE ROUTINE 

THE CODE FOR ’RAND4 ' IN BRIEF: 

BEGIN 1 (START OF ROUTINE) 

SAY ROUTINE IS RUNNING 
INCR COUNT FROM 1 TO REPEAT 
BEGIN 2 (START OF REPEAT LOOP FOR THIS ROUTINE) 

GENERATE THE RANDOM PATTERN 
TIMES = NUMBER OF UNITS * 4 
INCR KOUNT FROM 1 TO TIMES 
BEGIN 3 (START OF COUNTING LOOP FOR UNIT SELECTION) 

CHOOSE A RANDOM LOGICAL UNIT WHICH IS ACTIVE 
INITIALIZE BUFFER POINTERS 
TESTLOOP: 

BEGIN 4 (START OF LOOP THAT COMPLETELY TESTS 1 UNIT) 

INCR K0UNT2 FROM 1 TO 10 

BEGIN 5 (START OF COUNTING LOOP FOR SECTOR SELECTION) 
CHOOSE A RANDOM WORD COUNT 
SET UP BUFFER POINTERS BEFORE TRANSFER 
CHOOSE A RANDOM SECTOR 

CALCULATE WHERE TRANSFER WILL END (BASED ON WORD COUNT) 
IF CALCULATED VALUE GTR HIGHEST 
: THEN ADJUST THE WORD COUNT SO IT FITS 
WITHIN THE TESTABLE SECTOR LIMITS 

WRITE 

LOOK FOR ERRORS (IF DROP UNIT, LEAVE TESTLOOP) 

CHOOSE WHETHER TO WRITE CHECK GR READ 
DO THE WRITE CHECK OR READ 
LOOK FOR ERRORS (IF DROP UNIT, LEAVE TESTLOOP) 

CHANGE BUFFER POINTERS AFTER TRANSFER 
END 5 (END OF COUNTING LOOP FOR SECTOR SELECTION) 

END 4 (END OF TESTLOOP) 

END 3 (END OF COUNTING LOOP FOR UNIT SELECTION) 

END 2 (END OF REPEAT LOOP FOR THIS ROUTINE 
RETURN 

END 1 (END OF ROUTINE) 


local 

LUN, 

WRDCNT, 

SECTOR, 


TOPS-20 Bliss-16 V2(212> 
PA:<NEALE>MLX4.BLI.5 (47) 


SEQ 0325 


D 10 

CZMLBBO PERFORMANCE EXERCISER MACRO Ml 113 29-NAR-82 13:41 PAGE 307 


RAND 3 TESTING RANDOM SECTORS. DATA. WORD COUNTS 


S 

15050 

;MLX4 


27-Mar-1982 19:24:42 TOPS-20 Bliss-16 V2(212) 

15051 

TESTING RANDOM UNITS. SECTORS. DATA. WORD COUNT 

27-Mar-1982 19:23:44 PA:<NEALE>MLX4.BLl .5 (47) 

15052 

15053 

7903 

VALUE. 



15054 

7904 

OLDSEC. 



15055 

7905 

OLDCHN. 



15056 

7906 

PTR. 



15057 

7907 

COMMAND. 



15058 

7908 

DBL. VALUE; 



15059 

7909 




15060 

7910 

label 



15061 

7911 

LOOP; 



15062 

7912 




15063 

7913 

PRINTS (SAYl , RTN5D); 



15064 

7914 

! ' RAND4 ' 



15065 

7915 




15066 

7916 

incr COUNT from 1 to .REPEAT do 



15067 

7917 

begin 

GEN5 (); 

!* 2 * 

START OF REPEAT LOOP FOR THIS ROUTINE 

15068 

7918 



15069 

7919 




15070 

7920 

incr KOUNT from 1 to (.NUMJ)RIVES*4) do 



15071 

7921 

begin 

LUN = RNDU (); 

!* 3 * 

START OF COUNTING LOOP FOR UNIT SELECTION 

15072 

7922 



15073 

7923 

LSLUN = .LUN; 



15074 

7924 

WPTR = W8UFF; 



15075 

7925 

RPTR = RBUFF; 



15076 

7926 

LOOP : 



15077 

7927 

begin 

|*4* 

START OF LOOP THAT COMPLETELY TESTS 1 UNIT 

15078 

7928 



15079 

7929 

incr K0UNT2 from 1 to 10 do 



15080 

7930 

begin 

URDCNT = RNDWC (); 

5 * 

START OF COUNTING LOOP FOR SECTOR SELECTION 

15081 

7931 

! EXPECT 

VALUE BETUEEN 1 AND BUFSIZ 

15082 

7932 

SET PTRS (.URDCNT); 



15083 

7933 

SECTOR = RNDSEC (.LUN); 

.'EXPECT 

VALUE BETUEEN LOUEST AND HIGHEST 

15084 

7934 




15085 

7935 

if (.SECTOR ♦ .WRDCNT/256) gtra HIGHEST 

then URDCNT = 256*(HIGHEST - .SECTOR ♦ 1); 

15086 

7936 




15087 

7937 

VALUE = wr< te (.LUN. .URDCNT. . 

UPTR, .SECTOR); 

15088 

7938 




15089 

7939 

»♦ 



15090 

7940 

SEE HOU SUCCESSFUL THE URITE 

UAS: 


15091 

7941 

| - 



15092 

7942 




15093 

7943 

selectone .VALUE of 

! SEE 'SYSERR' FOR DEFINITION 

15094 

7944 

set 

1 OF ERROR # CONTAINED IN 'VALUE' 

15095 

7945 




15096 

7946 

m : 



15097 

7947 

begin 

!* 5A * 

RETRY ALLOUED 

15098 

7948 



15099 

7949 

if RETRY (SIX. write, . 

LUN. .URDCNT, .UPTR, .SECTOR) neq 0 

15100 

7950 

then 

•THE RETRY FAILED — SYSTEM FATAL ERROR 

15101 

7951 

begin 



15102 

7952 

UH? DROPT C.LUN3 = 

C0DE.4; 

.'**** OPTION 5, RAND4 ERROR 01 **** 

15103 

7953 

ERRDF (5401. MSG1 , 

0); 

15104 

7954 

DODU (.LUN); 




CZMLB80 PERFORMANCE EXERCISER MACRO Mil 13 29-MAR-S2 
RAND3 TESTING RANDOM SECTORS, DATA, WORD COUNTS 
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SEQ 0327 


15106 

;MLX4 

15107 

15108 

15109 

7955 

15110 

7956 

15111 

7957 

15112 

7958 

15113 

7959 

15114 

7960 

15115 

7961 

15116 

7962 

15117 

7963 

15118 

7964 

15119 

7965 

15120 

7966 

15121 

7967 

15122 

7968 

15123 

7969 

15124 

7970 

15125 

7971 

15126 

7972 

15127 

7973 

15128 

7974 

15129 

7975 

15130 

7976 

15131 

7977 

15132 

7978 

15133 

7979 

15134 

7980 

15135 

7981 

15136 

7982 

15137 

7983 

15138 

7984 

15139 

7985 

15140 

7986 

15141 

7987 

15142 

7988 

15143 

7989 

15144 

7990 

15145 

7991 

15146 

7992 

15147 

7993 

15148 

7994 

15149 

7995 

15150 

7996 

15151 

7997 

15152 

7998 

15153 

7999 

15154 


15155 

8001 

15156 

8002 

15157 

8003 

15158 

8004 

15159 

8005 

15160 

8006 


27-Mar-1982 19:24:42 TOPS-20 BHss-16 V2(212) 

TESTING RANDOM UNITS, SECTORS, DATA. WORD COUNT 27-Mar-1982 19:23:44 PA:<NEALE>MLX4 .BLl .5 (47) 


leave LOOP; 
end; 


end; 

C23 : 
begin 


! JLWP JUST BEYOND END OF BLOCK * 4 * 

! * 5A * 

!* 58 * FATAL CONTROLLER ERROR — NO RETRY ALLOWED 


begin : * 

WHY DROPT [.LUN] = CCDE.5; 

ERRPF (5402, MSG1. 0); .'**** OPTION 5, RAND 4 ERROR 02 •*** 

DODU (.LUN); 

leave LOOP; !JUMP JUST BEYOND END OF BLOCK * 4 * 

end; !* 58 * 


C3J : 

begin 


!* 5C * FATAL DRIVE ERROR — NO RETRY ALLOWED 


begin 5L « i-aial ukjvc ckkum — mu 

ERRDF (5403, MSG1 , 0); !•*** OPTION 5. RAND4 ERROR 03 

WHY DROPT [.LUN] = CODE.6; 

DODO (.LUN); 

leave LOOP; .'JUMP JUST BEYOND END OF BLOCK * 4 * 

end; I* 5C * 

tes; 

COMMAND = CHOOSE (>; 

if .COMMAND eql read 
then 

begin 

PTR = RPTR- 

VALUE = read (.LUN, .WRDCNT, .RPTR, .SECTOR); 
end 

else 

begin 

PTR - WPTR* 

VALUE = CHECK (.LUN, .WRDCNT, .WPTR. .SECTOR); 
end; 


SEE HOW SUCCESSFUL THE OPERATION WAS; 


selectone .VALUE of 
set 


.'SEE •SYSERR* FOR DEFINITION 
I OF ERROR * CONTAINED IN ’VALUE’ 


C03 : 


if .COMMAND eql read 
then 

begin 

if (DBL .VALUE = DOUBLE. CHECK (.WPTR, .RPTR, .WRDCNT)) neq 0 
then 

begin 
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SEQ 0328 


15162 

15163 

15164 

15165 

15166 

15167 

15168 

15169 

15170 

15171 

15172 

15173 

15174 

15175 

15176 

15177 

15178 

15179 

15180 

15181 

15182 

15183 

15184 

15185 

15186 

15187 

15188 

15189 

15190 

15191 

15192 

15193 

15194 

15195 

15196 

15197 

15198 

15199 

15200 

15201 

15202 

15203 

15204 

15205 

15206 

15207 

15208 

15209 

15210 

15211 

15212 

15213 

15214 

15215 

15216 


;MLX4 


27-Mar-1982 19:24:42 
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TOPS-20 Bliss-16 V2 < 21 2 > 
PA:<NEALE>MLX4.BL1.5 (47) 


8007 

8008 

8009 

8010 
8011 
8012 

8013 

8014 
80’ 5 
8016 

8017 

8018 

8019 

8020 
8021 
8022 

8023 

8024 

8025 

8026 

8027 

8028 

8029 

8030 

8031 

8032 

8033 

8034 

8035 

8036 

8037 

8038 

8039 

8040 

8041 

8042 

8043 

8044 

8045 

8046 

8047 

8048 

8049 

8050 

8051 

8052 

8053 

8054 

8055 

8056 

8057 

8058 


SAYWHO (.LUN); 

PRINTB (SAY1, MSG5); 

!’ECC LOGIC FAILED TO DETECT DATA ERROR’ 

PRINTB (FMT12a, ..DBL VALUE, .DBL VALUE); 

! 'GOOD DATA: XXXXXX AT LOCATION Y?YYYY’ 

DBL VALUE = .DBL VALUE ♦ BUfSIZ*2; 

PRIRT8 (FMT12B, ..DBL VALUE, .DBL VALUE); 

."BAD DATA: PPPPPP AT LOCATION QOOOQO* 

WHY DROPT [ . LUND = C0DE_8; 

ERRUF (5404, MSG1, 0); .'**** OPTION 5. RAND4 ERROR 04 **** 

DODU (.LUN); 

leave LOOP; .'JUMP JUST BEYOND END OF BLOCK * 4 * 
end; 


end; 


m 


begin 


5D * RETRY ALLOWED 


if RETRY (SIX, .COMMAND. .LUN, .WRDCNT. .PTR, .SECTOR) neq 0 
then I THE RETRY FAILED — SYSTEM FATAL ERROR 

WH? 1 DROPT [.LUN] = C0DE.4; „ _ 

ERRPF (5405. MSG1, 0); .'**** OPTION 5. RAND4 ERROR 05 **** 

DODU (.LUN); 

leave LOOP; .'JUMP JUST BEYOND END OF BLOCK * 4 * 

end; 


end; 


[23 


!* 5D * 


!* 5E * FATAL CONTROLLER ERROR -- NO RETRY ALLOWED 


[33 


begin :* 

WHY DROPT [.LUN] = C0DE.5; 

ERRBF (5406. MSG1, 0); !***• OPTION 5. RAND4 ERROR 06 **** 

DODU (.LUN); 

leave LOOP; !JUMP JUST BEYOND END OF BLOCK * 4 * 

end; I* 5E * 

begin !• 5F * FATAL DRIVE ERROR — NO RETRY ALLOWED 

ERRDF (5407, MSG1 . 0); !***• OPTION 5, RAND4 ERROR 07 **** 

WHY DROPT [ . LUND = C0DE.6; 

DODO (.LUN); 

leave LOOP; .'JUMP JUST BEYOND END OF BLOCK * 4 * 

end; !* 5F * 


[4] 


begin 
ISOi 


! * 5G * UNRECOVERABLE DATA ERROR 

jLATE ()* 

ERRDF (540&. MSG2. 0); .'**** OPTION 5, RAND4 ERROR 08 **** 

WHY DROPT [.LUN] = C0DE_7; 

DODO (.LUN); 
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SEQ 0329 


15218 

15219 

15220 

15221 

15222 

15223 

15224 

15225 

15226 

15227 

15228 

15229 

15230 

15231 

15232 

15233 

15234 

15235 

15236 

15237 

15238 

15239 

15240 

15241 

15242 

15243 

15244 

15245 

15246 

15247 

15248 

15249 

15250 

15251 

15252 

15253 

15254 

15255 

15256 

15257 

15258 

15259 

15260 

15261 

15262 

15263 

15264 

15265 

15266 

15267 

15268 

15269 

15270 

15271 

15272 


MLX4 


27-Mar-1982 19:24:42 

TESTING RANDOM UNITS. SECTORS, DATA, WORD COUNT 27-Mar-1982 19:23:44 


TC?S~20 Bliss-16 V2(212> 
PA:<NEALE>MLX4.8LI.5 (47) 


8059 

8060 
8061 
8062 

8063 

8064 

8065 

8066 

8067 

8068 

8069 

8070 

8071 

8072 

8073 

8074 

8075 

8076 

8077 

8078 

8079 

8080 
8081 
8082 

8083 

8084 

8085 

8086 

8087 

8088 

8089 

8090 

8091 

8092 

8093 

8094 

8095 

8096 

8097 

8098 

8099 

8100 
8101 
8102 

8103 

8104 

8105 

8106 

8107 

8108 

8109 

8110 


leave LOOP; 
end; 


C53 


! JUMP JUST BEYOND END OF BLOCK * 4 * 
!* 5G * 

!* 5H * RECOVERABLE DATA ERROR 


begin 

ISOLATE O; 

if .ERROUT then PRINTS (FMT10B, .CHAN); 

•• BIT 00* 

OLDSEC = .MLEL; 

OLDCHN = .CHAN; 

if RETRY (ONE, .COMMAND, .LUN, .WRDCNT, .PTR. .SECTOR) eql 5 
then 

i r ((.MLEL eql .OLDSEC) and (.CHAN eql .OLDCHN)) 
then 

begin 

if .ERROUT then ERRHRD (5409. MSG4, 0); .'**** OPTION 5, RAND4 ERROR 09 ***• 

UP HARD.COUNT (.LUN. .BOARD); 
end 


else 


begin 

if .ERROUT then ERRSOFT (5410, MSG3. 0); 

.'**** OPTION 5, RAND4 ERROR 10 **** 
UP SOFT.COUNT (.LUN, .BOARD); 
en3 


else 


end; 

tes; 

WPTR = . WPTR ♦ 2; 
end; 


begin 

if .ERROUT then ERRSOFT (5411, MSG3, 0); 

UP SOFT.COUNT (.LUN, .BOARD); 
end; 

! * 5H * 


! **** OPTION 5. RAND 4 ERROR 11 **** 


!* 5 * END OF COUNTING LOOP FOR SECTOR SELECTION 


! ♦ 

! Test to see if this uut's address space is 
! to be read for soft errors. This test is 
! is intended for DMT purposes. 
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SEO 0330 


15274 

15275 

15276 

15277 

15278 

15279 

15280 

15281 

15282 

15283 

15284 

15285 

15286 

15287 

15288 

15289 

15290 

15291 

15292 

15293 

15294 

15295 

15296 

15297 

15298 

15299 

15300 

15301 

15302 

15303 

15304 

15305 

15306 

15307 

15308 

15309 

15310 

15311 

15312 

15313 

15314 

15315 

15316 

15317 

15318 

15319 

15320 

15321 

15322 

15323 

15324 

15325 

15326 

15327 

15328 


27-Mar-1982 19:24:42 

TES T ING RANDOM UNITS. SECTORS, DATA. WORD COUNT ?7-Mar-1982 19:23:44 


T0PS-20 Bliss-16 V2(212) 
PA:<NEAIE>MLX4.BLI.5 (47) 


8111 

8112 

8113 

8114 

8115 

8116 

8117 

8118 

8119 

8120 
8121 
8122 

8123 

8124 

8125 

8126 

8127 

8128 

8129 

8130 

8131 

8132 

8133 

8134 

8135 

8136 

8137 

8138 
3139 

8140 

8141 

8142 

8143 

8144 

8145 

8146 

8147 

8148 

8149 

8150 

8151 

8152 

8153 

8154 

8155 

8156 

8157 

8158 

8159 
P 8160 
P 8161 

8162 


if .EFNS21 
then 

begin 

version czmlbb changed incr to incru 


! I s the background pattern to be read 


incru SECTOR from LOWEST to HIGHEST do 

if read (.LUN. 256, RBUFF. .SECTOR) eql 5 
then 

begin 

ISOLATE (>; .'Find the failing bank and board no. 

if .ERROUT then PRINTB (FMT106, .CHAN); 

! Print where the error is 

t 

! Save the contents of the ML error location 
! register so we can compare it to the new 
! contents of this register after the retry. 

! This is done to classify the error. 

I 

OLDSEC = .MLEL; 

OLDCHN = .CHAN; 

i 

! Do a classify retry call. If the same error 
! occures then classify it as a hard error. If 
! a different error occured or the error went away 
! then classify it as a soft error. 

I 

if RETRY (ONE, .COMMAND. .LUN. 256, .PTR, .OLDSEC) eql 5 
then 

I 

! The same error occured so see if it is at the same 
! sector and channel number, if so then classify 
! it as a hard error else classiy it as a soft 
! error. 

I 

if ((.MLEL eql .OLDSEC) and (.CHAN eql .OLDCHN)) 
then 

begin ISame error occured hard' 


if .ERROUT 
then 

begin 

ERRHRD 


.'Print error if enabled 


ERRHRD (5412, ! Error number 

HSG4, ! Error message 
0); !Additional message routine 


L. 
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PAGE 


I 10 
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SEQ 0331 


15330 ;MLX4 

15331 

15332 

15333 

15334 

15335 

15336 

15337 

15338 

15339 

15340 

15341 

15342 

15343 

15344 

15345 

15346 

15347 

15348 

15349 

15350 

15351 

15352 

15353 

15354 

15355 

15356 

15357 

15358 

15359 

15360 

15361 

15362 

15363 

15364 

15365 

15366 

15367 

15368 

15369 

15370 

15371 

15372 

15373 

15374 

15375 

15379 

15380 . 

15384 100006 


27-Ma r - 1982 19:24:42 

TESTING RANDOM UNITS. SECTORS. DATA. WORD COUNT 27-Mar-1982 19:23:44 


TOPS-20 Bliss-16 V2(212> 
PA:<NEALE>MLX4.BLI.5 (47) 


8163 

8164 

8165 

8166 
8167 
d168 

8169 

8170 

8171 

8172 
P 8173 
P 8174 

8175 

8176 

8177 

8178 

8179 

8180 
8181 
8182 

8183 

8184 

8185 

8186 
P 8187 
P 8188 

8189 

8190 

8191 

8192 

8193 

8194 

8195 

8196 

8197 

8198 

8199 

8200 
8201 
8202 

8203 

8204 

8205 


end; 


end; 

end; 


end; 

return; 

end; 


004167 105322 


RAND4: 


else 


end; 

UP HARD.COUNT 

en3 


begin 


(.LUN, .BOARD); 

.'Not the same error 'soft' 
JPrint error if enabled 


if .ERROUT 
then 

begin 

ERRSOFT (5413. JError number 

MSG3, JError message 
0); JAdditional message routine 

end; 

UP S0FT_C0UNT (.LUN, .BOARD); 
en3 


else 


begin 

if .ERROUT 
then 

begin 

ERRSOFT (5414. 
MSG3, 

0 ); 

end; 


JNot the same error 'soft* 


JPrint error if enabled 


JError number 

JError message 

JAdditional message routine 


UP S0FT.C0UNT (.LUN, .BOARD); 
en3; 


end; 


.SBTTL 
J SR 


! * 4 * END OF LOOP THAT COMPLETELY TESTS 1 UNIT 
!* 3 * END OF COUNTING LOOP FOR UNIT SELECTION 

!* 2 * END OF REPEAT LOOP FOR THIS ROUTINE 


!* 1 * END OF ROUTINE 

RAND4 TESTING RANDOM UNITS, SECTORS, DATA, WORD COUNT 
R1.JSAVE5 


7852 



j 10 
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^386 





;MLX4 



1 S587 





• 

9 


TESTING RANDOM UNITS 

15388 








15389 

100012 

162706 

000026 



SUB 

#26, SP 

15390 

100016 

012746 

007706 



MOV 

#RTN5D.-(SP) 

15391 

100022 

012746 

007072 



MOV 

#SAVl.-(SP) 

15392 

100026 

012746 

000002 



MOV 

#2.-(SP) 

15393 

100032 

010600 




MOV 

SP.RO 

15394 

100034 

104414 




TRAP 

14 

15395 

100036 

005066 

000032 



CLR 

32 (SP) 

15396 

100042 

000167 

002176 



JMP 

41 $ 

15397 

100046 

004767 

141546 


1$: 

JSR 

PC.GEN5 

15398 

100052 

016766 

134400 

000016 


MOV 

NUM.DRI VES.16(SP) 

15399 

100060 

006366 

000016 



ASl 

16(SP> 

15400 

100064 

006366 

000016 



ASL 

16(SP) 

15401 

100070 

005066 

000014 



CLR 

14(SP) 

15402 

100074 

C00563 




BR 

8$ 

15403 

100076 

004767 

170234 


2$: 

JSR 

PC.RNDU 

15404 

100102 

010002 




MOV 

R0.R2 

15405 

100104 

010267 

101764 



MOV 

R2.LSLUN 

15406 

100110 

012767 

012670 

132552 


MOV 

#WBUFF ,WPTR 

15407 

100116 

012767 

022670 

132546 


MOV 

#RBUFF,RPTR 

15408 

100124 

010266 

000012 



MOV 

R2.12(SP) 

15409 

100130 

006366 

000012 



ASL 

12(SP) 

15410 

100134 

012766 

034500 

000010 


MOV 

#TOP. SECT. 10(SP) 

15411 

100142 

066666 

000012 

000010 


ADD 

12(SP),10(SP) 

15412 

100150 

012766 

000001 

000006 


MOV 

#1.6(SP) 

15413 

100156 

004767 

1 70022 


3$: 

JSR 

PC.RNDWC 

15414 

100162 

010003 




MOV 

R0.R3 

15415 

100164 

010346 




MOV 

R3,-(SP) 

15416 

100166 

004767 

146740 



JSR 

PC.SET.PTRS 

154 17 

100172 

010216 




MOV 

R2, (SP) 

15418 

1001 74 

004767 

170040 



JSR 

PC .RNDSEC 

15419 

100200 

010001 




MOV 

R0.R1 

15420 

100202 

010346 




MOV 

R3.-(SP) 

15421 

100204 

012746 

000400 



MOV 

#400. -(SP) 

15422 

100210 

004767 

104754 



JSR 

PC.BLSDIV 

15423 

100214 

022626 




CMP 

(SP)*, (SP>+ 

15424 

100216 

060100 




ADD 

R1.R0 

15425 

100220 

020076 

000012 



CMP 

ro.812(sp) 

15426 

100224 

101410 




BLOS 

4$ 

15427 

100226 

01 7600 

0C0012 



MOV 

B12(SP).R0 

15428 

100232 

160100 




SUB 

R1.R0 

15429 

100234 

000300 




SWAB 

RO 

15*. 30 

100236 

105000 




CLRB 

RO 

15431 

100240 

010003 




MOV 

R0.R3 

15432 

100242 

062703 

000400 



ADD 

#400. R3 

15433 

100246 

010216 



AS: 

MOV 

R2, (SP) 

15434 

100250 

010346 




MOV 

R3. -(SP) 

15435 

100252 

016746 

132412 



MOV 

WPTR.-(SP) 

15436 

100256 

010146 




MOV 

R1 .-(SP) 

15437 

100260 

004767 

145140 



JSR 

PC. WRITE 

15438 

10026a 

010004 




MOV 

R0.R4 

15439 

100266 

020427 

000001 



CMP 

R4,#1 

15440 

100272 

001031 




BNE 

5$ 


SEO 0332 

27-Mar-1982 19:24:42 TOPS 

SECTORS, DATA, WORD COUNT 27-Mar-1982 19:23:44 PA:< 


7913 


SP.* 


COUNT 

7916 


7918 


7920 

KOUNT 

7922 

* ,LUN 

LUN.* 

7923 


7924 


7925 

LUN.* 

7935 

*,K0UNT2 

7929 


7931 

•.WRDCNT 

WRDCNT.* 

7932 

LUN.* 

7933 

*, SECTOR 

WRDCNT,* 

7935 

SECTOR.* 


SECTOR,* 


*. WRDCNT 
•.WRDCNT 

LUN.* 

WRDCNT.* 

7937 

SECTOR.* 


•.VALUE 

VALUE,* 

7943 
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K 10 
314 


SEQ 0333 


15442 

15443 

15444 

15445 

15446 

15447 

15448 

15449 

15450 

15451 

15452 

15453 

15454 

15455 

15456 

15457 

15458 

15459 

15460 

15461 

15462 

15463 

15464 

15465 

15466 

15467 

15468 

15469 

15470 

15471 

15472 

15473 

15474 

15475 

15476 

15477 

15478 

15479 

15480 

15481 

15482 

15483 

15484 

15485 

15486 

15487 

15488 

15489 

15490 

15491 

15492 

15493 

15494 

15495 

15496 


;MLX4 


100274 

100300 

100304 

100306 

100310 

100314 

100316 

100322 

100326 

100330 

100332 

100340 

100342 

100344 

100346 

100350 

100352 

100354 

100356 

100362 

100364 

100372 

100374 

100376 

100400 

100402 

100404 

100406 

100410 

100414 

100416 

100420 

100422 

100424 

100426 

100434 

100436 

100440 

100444 

100446 

100452 

100456 

100460 

100464 

100466 

100470 

100476 

100500 

100502 

100506 

100510 

100514 


012746 

012746 

010246 

01034t> 

016746 

010146 

004767 

062706 

005700 

001446 

112762 

104455 

012431 

011070 

000000 

010200 

104451 

000431 

020427 

001012 

112762 

104455 

012432 

011070 

000000 

010200 

104451 

000414 

020427 

001014 

104455 

012433 

011070 

000000 

112762 

010200 

104451 

062706 

000535 

004767 

010066 

005005 

020027 

001014 

005205 

016766 

010246 

010346 

016746 

010146 

004767 

000412 


000006 

045424 


132354 


TESTING RANDOM UNITS. SECTORS, 

MOV #6.-(SP> 

MOV #WRITE.-($P> 

MOV R2.-CSP) 

MOV R3.-CS P) 

MOV UPTR.-(SP) 

MOV RI.-(SP) 


27-Mar-1982 19:24:42 
DATA. WORD COUNT 27-Mar-1982 19:23:44 


; LUN.* 

; WRDCNT . * 


TOPS 

PA:< 

7949 


; SECTOR.* 


145702 



JSR 

PC, RE TRY 



000014 



ADD 

#14. SP 






TST 

RO 






BEO 

9$ 



000004 

034446 


MOVB 

#4,WHV.DR0PT(R2> 

* 

* , * ( l UN ) 




TRAP 

55 

9 





.WORD 

12431 






.WORD 

MSG1 






.WORD 

0 






MOV 

R2.R0 

• 

• 

LUN.* 




TRAP 

51 






BR 

7$ 

9 


000002 


5$: 

CMP 

R4,#2 

9 

VALUE.* 




BNE 

6$ 



000005 

034446 


MOVB 

#5 , WH V . DROPT ( R2) 

9 

*. *(LUN) 




TRAP 

55 

9 





.WORD 

12432 






.WORD 

MSG1 






.WORD 

0 






MOV 

R2.R0 

9 

LUN.* 




TRAP 

51 






BR 

7$ 

9 


000003 


6$: 

CMP 

R4.#3 

9 

VALUE,* 




BNE 

9$ 






TRAP 

55 

9 





.WORD 

12433 






.WORD 

MSG1 






.WORD 

0 



000006 

034446 


MOVB 

#6,WHY.OROPT(R2) 

9 

*.*<LUN> 




MOV 

R2.R0 

9 

LUN,* 




TRAP 

51 



000010 


7$: 

ADD 

#10. SP 

9 




8$: 

BR 

14$ 



145514 


9$: 

JSR 

PC. CHOOSE 

9 


000040 



MOV 

R0,40(SP) 

9 

•.COMMAND 




CLR 

R5 

9 


045612 



CMP 

R0,#READ 

9 

COMMAND.* 




8NE 

10$ 






INC 

R5 



132176 

000036 


MOV 

RPTR.36CSP) 

• 

• 

*,PTR 




MOV 

R2.-CSP) 

• 

LUN.* 




MOV 

R3.-CSP) 

• 

WRDCNT,* 

132164 



MOV 

RPTR.-CSP) 






MOV 

RI.-(SP) 

9 

SECTOR,* 

145076 



JSR 

PC, READ 






BR 

ni 




7952 

7953 


7954 

7955 
7943 

7962 

7963 


7964 

7965 
7943 

7970 


7971 

7972 

7973 
7977 
7979 


7982 

J983 
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15498 

15499 

15500 

15501 

15502 

15503 

15504 

15505 

15506 

15507 

15508 

15509 

15510 

15511 

15512 

15513 

15514 

15515 

15516 

15517 

15518 

15519 

15520 

15521 

15522 

15523 

15524 

15525 

15526 

15527 

15528 

15529 

15530 

15531 

15532 

15533 

15534 

15535 

15536 

15537 

15538 

15539 

15540 

15541 

15542 

15543 

15544 

15545 

15546 

15547 

15548 

15549 

15550 

15551 

15552 


;MIX4 


100516 

100524 

100526 

100530 

100534 

100536 

100542 

100544 

100546 

100550 

100552 

100556 

100562 

100566 

100570 

100574 

100600 

100604 

100606 

100610 

100614 

100620 

100624 

100630 

100632 

100634 

100640 

100644 

100650 

100654 

100656 

100660 

100666 

100672 

100676 

100702 

100706 

100710 

100712 

100720 

100722 

100724 

100726 

100730 

100732 

100734 

100740 

100742 

100746 

100750 

100754 

100760 


016766 
010246 
010346 
016746 
010V 6 
004767 
010004 
001076 
006005 
103402 
000167 
016746 
016746 
010346 
004767 
062706 
010066 
001762 
010246 
004767 
012716 
012746 
012746 
010600 
104414 
016616 
017646 
012746 
012746 
010600 
104414 
062766 
016616 
017646 
012746 
012746 
010000 
104414 
112762 
104455 
012434 
011070 
000000 
010200 
104451 
062706 
000506 
020427 
001031 
012746 
016646 
010246 


132146 000036 


132134 


145236 


000750 

132106 

132104 

143532 

000006 

000042 


134710 

011216 

007072 

000002 


000050 

000050 

006710 

000003 


010000 000056 

000056 

000056 

006756 

000003 


000010 034446 


000042 

000001 

000006 

000052 


TESTING RANDOM UNITS. SEC : 

MOV WPTR.36CSP) 

MOV R2,-(SP) 

MOV R3.-CSP) 

MOV WPTR.-(SP) 

MOV RI.-(SP) 

JSR PC. CHECK 

MOV R0.R4 

8NE 15$ 

ROR R5 

BIO 13$ 

JMP 28$ 

MOV WPTR.-(SP) 

MOV RPTR.-(SP) 

MOV R3.-CSP) 

JSR PC, DOUBLE. CHECK 

ADD 06. SP 

MOV R0,42(SP) 

BEO 12$ 

MOV R2,-(SP) 

JSR PC, SAYWHO 

MOV #MSG5, (SP) 

MOV #SAY1.-<SP) 

MOV 02. -(SP) 

MOV SP. RO 

TRAP 14 

MOV 50(SP),(SP) 

MOV 850(SP),-(SP) 

MOV #FMT12A,-(SP) 

MOV #3,-(SP) 

MOV SP. RO 

TRAP 14 

ADD #10000, 56CSP) 

MOV 56<SP),(SP> 

MOV a56CSP).-(SP) 

MOV #FMT12B,-(SP) 

MOV #3,-<SP) 

MOV SP.RO 

TRAP 14 

MOVB #10.WHY.DROPT(R2) 

TRAP 55 

.WORD 12434 

.WORD MSG1 

.WORD 0 

MOV R2.R0 

TRAP 51 

ADD #42. SP 

BR 20$ 

CMP R4,#1 

8NE 16$ 

MOV #6,-<SP) 

MOV 52(SP).-(SP) 

MOV R2.-CSP) 


L. 


SEQ 0334 



; SP,* 

; DBL. VALUE,* 
; D8L. VALUE,* 

; SP,* 

; *, DBL. VALUE 
; DBL. VALUE.* 
; DBL. VALUE,* 

; SP.* 

; *,*(LUN) 

• 

; LUN,* 

0 

; VALUE,* 

; COMMAND,* 

; LUN.* 


8010 


8012 

8013 


8015 

8016 

8017 

8018 
7995 
8026 


h 10 
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15554 

15555 

15556 

15557 

15558 

15559 

15560 

15561 

15562 

15563 

15564 

15565 

15566 

15567 

15568 

15569 

15570 

15571 

15572 

15573 

15574 

15575 

15576 

15577 

15578 

15579 

15580 

15581 

15582 

15583 

15584 

15585 

15586 

15587 

15588 

15589 

15590 

15591 

15592 

15593 

15594 

15595 

15596 

15597 

15598 

15599 

15600 

15601 

15602 

15603 

15604 

15605 

15606 

15607 

15608 


;MLX4 


100762 

100764 

100770 

100772 

100776 

101002 

101004 

101006 

101014 

101016 

101020 

101022 

101024 

101026 

101030 

101032 

101036 

101040 

101046 

101050 

101052 

101054 

101056 

101060 

101062 

101064 

101070 

101072 

101074 

101076 

101100 

101102 

101110 

101112 

101114 

101116 

101122 

101124 

101130 

101132 

101134 

101136 

101140 

101146 

101150 

101152 

101156 

101162 

101166 

101170 

101174 

101202 


010346 

016646 

010146 

004767 

062706 

005700 

001662 

112762 

104455 

012435 

011070 

000000 

010200 

104451 

000450 

020427 

001012 

112762 

104455 

012436 

011070 

000000 

010200 

104451 

000433 

020427 

001012 

104455 

012437 

011070 

000000 

112762 

010200 

104451 

000416 

020427 

001017 

004767 

104455 

012440 

011120 

000000 

112762 

010200 

104451 

062706 

000167 

020427 

001157 

004767 

032767 

001423 


000056 

145226 

000014 


000004 034446 


000002 

000005 034446 


000003 


000006 034446 


000004 

136202 


000020 

001042 

000005 

136136 


MOV 

MOV 

MOV 

JSR 

ADD 

TST 

BEQ 

M0V8 

TRAP 

.WORD 

.WORD 

.WORD 

MOV 

TRAP 

BR 

CMP 

BNE 

MOVB 

TRAP 

.WORD 

.WORD 

.WORD 

MOV 

TRAP 

BR 

CMP 

BNE 

TRAP 

.WORD 

.WORD 

.WORD 

MOVB 

MOV 

TRAP 

BR 

CMP 

BNE 

JSR 

TRAP 

.WORD 

.WORD 

.WORD 


034446 


MOVB 

MOV 

TRAP 


19$: 

ADD 


20$: 

JMP 


21$: 

CMP 

BNE 

JSR 

101056 


BIT 

BEQ 


TCSTING RANDOM UNITS, SECT 

R3. -(SP) 

56<SP),-(SP) 

R1, -(SP) 

PC, RETRY 
#14, SP 
RO 
12$ 

#4,WHY.DR0PT(R2) 

55 

12435 
MSG1 
0 

R2.R0 

51 

19$ 

R4,#2 

17$ 

#5.WHY.DR0PT(R2) 

55 

12436 
MSG1 
0 

R2.R0 

51 

19$ 

R4.#3 

18$ 

55 

12437 
MSG1 
0 

#6.WHY.DR0PT(R2> 

R2.R0 

51 

19$ 

R4.#4 

21 § 

PC. ISOLATE 
55 

12440 

MSG2 

0 

#7,UHY.DR0PT(R2) 

R2.R0 

51 

#20. SP 
40$ 

R4 ,#5 

28i 

PC, ISOLATE 
#1 .ERROUT 
22 $ 


SEQ 0335 


27-Mar-1982 19:24:42 TOPS 

. DATA, WORD COUNT 27-Mar-1982 19:23:4*. PA:< 

; WRDCNT,* 

; PTR,* 

; SECTOR,* 


; *,*(LUN) 

* 

; LUN,* 

; VALUE.* 

; *,*(LUN) 
# 

; LUN.* 

; VALUE.* 

0 

; *,*(LUN) 
; LUN,* 

• 

; VALUE.* 

0 

0 

; *,* (LUN) 
; LUN,* 

0 

; VALUE.* 


8029 

8030 


8031 

8032 
7995 

8039 

8040 


8041 

8042 
7995 

8047 


8048 

8049 

8050 
7995 

8055 

8056 


8057 

8058 

8059 

7995 

8064 

8066 


L 
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SEQ 0336 


15610 

15611 

15612 

15613 

15614 

15615 

15616 

15617 

15618 

15619 

15620 

15621 

15622 

15623 

15624 

15625 

15626 

15627 

15628 

15629 

15630 

15631 

15632 

15633 

15634 

15635 

15636 

15637 

15638 

15639 

15640 

15641 

15642 

15643 

15644 

15645 

15646 

15647 

15648 

15649 

15650 
1 5e>51 

15652 

15653 

15654 

15655 

15656 

15657 

15658 

15659 

15660 

15661 

15662 

15663 

15664 


;MLX4 


101204 

101210 

101212 

101214 

101216 

101220 

101222 

101224 

101230 

101232 

101236 

101242 

101244 

101246 

101252 

101260 

101264 

101266 

101270 

101272 

101274 

101276 

101300 

101304 

101310 

101314 

101320 

101322 

101324 

101330 

101332 

101336 

101342 

101346 

101350 

101356 

101360 

101364 

101370 

101372 

101374 

101376 

101400 

101402 

101404 

101410 

101412 

101414 

101422 

101424 

101426 

101430 


017705 
006205 
006205 
006205 
006205 
006205 
006205 
042705 
010546 
012746 
012746 
010600 
104414 
062706 
017766 
017705 
006205 
006205 
006205 
006205 
006205 
006205 
042705 
010566 
012746 
016646 
010246 
010346 
016646 
010146 
004767 
062706 
020027 
00 1051 
027766 
001034 
016600 
017705 
006205 
006205 
006205 
006205 
006205 
006205 
042705 
020500 
001016 
032767 
001404 
104456 
012441 
011202 


133200 


177700 

006640 

000002 


000006 

133134 000044 22$: 
133124 


177700 

000040 

000001 

000052 


000056 

144666 

000014 

000005 


133036 000044 

000040 

133020 


177700 


000001 100636 


; *,OLDSEC 


27-Mar-1982 19:24:42 

TESTING RANDOM UNITS, SECTORS, DATA, WORD COUNT 27-Mar-1982 19:23:44 

MOV aML.REG«-42,R5 

ASR R5 

ASR R5 

ASR R5 

ASR R5 

ASR R5 

ASR R5 

81 C #1 77700, R5 

MOV R5.-CSP) 

MOV #FMT1QB,-(SP) 

MOV #2,-( SP) 

MOV SP,RO ; SP.* 

TRAP 14 

ADD #6,SP 

MOV SML.REG*44,44(SP) ; *,OLDSEC 

MOV 3ML.REG+42.R5 

ASR R5 

ASR R5 

ASR R5 

ASR R5 

ASR R5 

ASR R5 

BIC #1 77700, R5 

MOV R5,40(SF> ; *.0LDCHN 

MOV #1,-(SP> 

MOV 52(SP),-(SP) ; COMMAND,* 

MOV R2.-CSP) ; LUN,* 

MOV R3.-CSP) ; WRDCNT,* 

MOV 56(SP) ,-CSP) ; PTR,* 

MOV Rl.-(SP) ; SECTOR,* 

JSR PC .RETRY 

ADD #14.SP 

CMP R0.#5 

BNE 25* 

CMP aML.REG+44,44(SP) ; *,OLDSEC 

BNE 24$ 

MOV 40 (SP) ,R0 ; OLDCHN,* 

MOV 3ML.REG+42.R5 

ASR R5 

ASR R5 

ASR R5 

ASR R5 

ASR R5 

ASR R5 

BIC #1 77700. R5 

CMP R5.R0 

BNE 24i 

BIT #1 .ERROUT 

BEQ 23$ 

TRAP 56 

.WORD 12441 

.WORD MSG4 


*. OLDCHN 

COMMAND,* 

LUN,* 

WRDCNT,* 

PTR,* 

SECTOR,* 


*.OLDSEC 

OLDCHN,* 


B 11 
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15666 





;H' X4 



27-Mar-1982 

19:24:42 

TOPS 

15667 





• 


TESTING RANDOM UNITS. 

SECTORS. DATA. WORD COUNT 27-Mar-1982 

19:23:44 

PA : < 

15668 











15669 

101432 

000000 




.WORD 

0 




15670 

101434 

010246 



23$: 

MOV 

R2,-(SP> 

; LUN.* 


8081 

15671 

101436 

016746 

132700 



MOV 

BOARD, -(SP) 




15672 

101442 

004767 

135754 



JSR 

PC. UP. HARD. COUNT 




15673 

101446 

000426 




BR 

27i 

0 


8075 

15674 

101450 

032767 

000001 

100602 

24$: 

BIT 

#1,ERR0UT 

• 

0 


8086 

15675 

101456 

001415 




BEQ 

26$ 




15676 

101460 

104457 




TRAP 

57 




15677 

101462 

012442 




.WORD 

12442 




15678 

101464 

011166 




.WORD 

HSG3 




15679 

101466 

030000 




.WORD 

0 




15680 

101470 

000410 




BR 

26$ 

• 

0 


8089 

15681 

101472 

032767 

000001 

100560 

25$: 

BIT 

#1,ERR0UT 

• 

0 


8095 

15682 

101500 

001404 




BEQ 

26$ 




15683 

101502 

104457 




TRAP 

57 




15684 

101504 

012443 




.WORD 

12443 




15685 

101506 

011166 




.WORD 

MSG3 




15686 

101510 

000000 




.WORD 

0 




15687 

101512 

010246 



26$: 

MOV 

R2.-CSP) 

; LUN,* 


8097 

15688 

101514 

016746 

132622 



MOV 

BOARD. -(SP) 




15689 

101520 

004767 

136360 



JSR 

PC ,UP . SOF T . COUNT 




15690 

101524 

022626 



27$: 

CMP 

(SP)+. (SP)+ 



8063 

15691 

101526 

062767 

000002 

131134 

28$: 

ADD 

#2. WPTR 



8103 

15692 

101534 

062706 

000020 



ADD 

#20. SP 



7930 

15693 

101540 

005266 

000006 



INC 

6<SP) 

; K0UNT2 


7929 

15694 

101544 

026627 

000006 

000012 


CMP 

6(SP),#12 

; K0UNT2.* 



15695 

101552 

003002 




BGT 

29$ 




15696 

101554 

000167 

176376 



JMP 

3$ 




15697 

101560 

032767 

000001 

100474 

29$: 

BIT 

#1 ,EFN$21 

• 

0 


8112 

15698 

1 01 566 

001002 




BNE 

30$ 




15699 

101570 

000167 

000430 



JMP 

40$ 




15700 

101574 

017666 

000010 

000010 

30$: 

MOV 

alocspj.iocsp) 

• 

0 


8119 

15701 

101602 

016600 

000012 



MOV 

12(SP).R0 




15702 

101606 

016005 

034460 



MOV 

LOW.SECT(RO) ,R5 

; *. SECTOR 



15703 

101612 

000577 




BR 

39$ 




15704 

101614 

010246 



31$: 

MOV 

R2.-(SP) 

; LUN.* 


8121 

15705 

101616 

012746 

000400 



MOV 

#400, -(SP) 




15706 

101622 

012746 

022670 



MOV 

#R8UFF,-(SP> 




15707 

101626 

010546 




MOV 

R5.-(SP) 

; SECTOR,* 



15708 

101630 

004767 

143756 



JSR 

PC.READ 




15709 

101634 

062706 

000010 



ADD 

#10, SP 




15710 

101640 

020027 

000005 



CMP 

R0,#5 




15711 

101644 

001161 




BNE 

38$ 




15712 

101646 

004767 

135460 



JSR 

PC. I SOL ATE 

0 


8124 

15713 

101652 

032767 

000001 

100400 


BIT 

#1 .ERROUT 

0 


8126 

15714 

101660 

001423 




BEQ 

32$ 




15715 

101662 

017700 

132522 



MOV 

3ML.REG+42.R0 




15716 

101666 

006200 




ASR 

RO 




15717 

101670 

006200 




A SR 

RO 




15718 

101672 

006200 




ASR 

RO 




15719 

101674 

006200 




ASR 

RO 




15720 

101676 

006200 




ASR 

RO 
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15722 

15723 

15724 

15725 

15726 

15727 

15728 

15729 

15730 

15731 

15732 

15733 

15734 

15735 

15736 

15737 

15738 

15739 

15740 

15741 

15742 

15743 

15744 

15745 

15746 

15747 

15748 

15749 

15750 

15751 

15752 

15753 

15754 

15755 

15756 

15757 

15758 

15759 

15760 

15761 

15762 

15763 

15764 

15765 

15766 

15767 

15768 

15769 

15770 

15771 

15772 

15773 

15774 

15775 

15776 


;MLX4 


101700 
101702 
101706 
101710 
101714 
101720 
101722 
101 724 
101730 
101736 
101742 
101 744 
101746 
101750 
101752 
101754 
101756 
101762 
101766 
101772 
101776 
102000 
102004 
102010 
102014 
102020 
102024 
102030 
102032 
102040 
102042 
102046 
102052 
102054 
102056 
102060 
102062 
102064 
102066 
102072 
102074 
102076 
102104 
102106 
102110 
102112 
102114 
102116 
102120 
102124 
102130 
102132 


006200 
042700 
010046 
012746 
012746 
010600 
1044 V, 
062706 
017766 
01770C 
006200 
006200 
006200 
006200 
006200 
006200 
042700 
010066 
012746 
016646 
010246 
012746 
016646 
016646 
004767 
062706 
020027 
001051 
027766 
001034 
016646 
017700 
006200 
006200 
006200 
006200 
006200 
006200 
042700 
020026 
001016 
032767 
001404 
104456 
012444 
011202 
000000 
010246 
016746 
004767 
000426 
032767 


177700 

006640 

000002 


000006 

132456 000024 32$: 
132446 


177700 

000020 

000001 

000032 

000400 

000036 

000036 

144204 

000014 

000005 

132354 000024 

000020 

132336 


177700 


000001 100154 


132216 

135272 

000001 100120 34$: 


TESTING RANDOM UNITS. SECT 

ASR RO 

91 C #1 77700.R0 

MOV RO.-(SP) 

MOV #£MT10B,-(SP) 

MOV #2,-(S°) 

MOV SP.RO 

TRAP 14 

ADD 46. SP 

MOV iML . REG+44 , 24 ( SP) 

MOV aMl.REG+42.R0 

ASR RO 

ASR RO 

ASR RO 

ASR RO 

ASR RO 

ASR RO 

SIC #17770O,R0 

MOV R0.20.SP) 

MOV #1,-(SP) 

MOV 32(SP).-(SP) 

MOV R2.-CSP) 

MOV #400, -(SP) 

MOV 36<SP),-(SP> 

MOV 36(SP),-(SP) 

JSR PC. RETRY 

ADD #14, SP 

CM P R0,#5 

BNE 35$ 

CMP iML.REGH4,24(SP) 

BNE 34$ 

MOV 20(SP),-(SP) 

MOV BML. REGH2.R0 

ASR RO 

ASR RO 

ASR RO 

ASR RO 

ASR RO 

ASR RO 

BIC #1 77700, RO 

CMP RO.(SP)+ 

BNE 34$ 

BIT #1 .ERROUT 

BEQ 33§ 

TRAP 56 

.WORD 12444 

.WORD MS 64 

.WORD 0 

MOV R2.-(SP) 

MOV BOARD, -(SP) 

JSR PC. UP. HARD. COUNT 

BR 37i 

BIT #1 .ERROUT 


SEQ 0338 
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SEO 0339 


15778 

15779 
15 780 

15781 

15782 

15783 

15784 

15785 

15786 

15787 

15788 

15789 

15790 

15791 

15792 

15793 

15794 

15795 

15796 

15797 

15798 

15799 

15800 

15801 

15802 

15803 

15804 

15805 

15806 

15807 

15808 

15809 

15810 

15811 

15812 

15813 

15818 

15819 


;MIX4 


102140 

102142 

102144 

102146 

102150 

102152 

102154 

102162 

102164 

102166 

102170 

102172 

102174 

102176 

102202 

102206 

102210 

102212 

102216 

102220 

102224 

102230 

102236 

102240 

102244 

102250 

102256 

102260 

102264 

102270 


001415 

104457 

012445 

011166 

000000 

000410 

032767 

001404 

104457 

012446 

011166 

000000 

010246 

016746 

004767 

022626 

005205 

020566 

101002 

000167 

005266 

026666 

003002 

000167 

005266 

026666 

003002 

000167 

062706 

000207 


000001 100076 35$: 


TESTING RANDOM UNITS, SECTORS, DATA. WORD 

BEQ 36$ 

TRAP 57 

.WORD 12445 

.WORD MSG3 

.WORD 0 

BR 36$ 

BIT #1 .ERROUT 

BEQ 36$ 

TRAP 57 

.WORD 12446 

.WORD MSG3 

.WORD 0 

; LUN.* 


SECTOR 

SECTOR,* 


27-Mar-1982 19:24:4 2 
COUNT 27-Mar-1982 19:23:44 




36$: 

MOV 

R2,-(SP> 

0 

132140 



MOV 

BOARD,- (SP) 


135676 



JSR 

PC, UP. SOFT. COUNT 



37$: 

CMP 

(SP)*.(SPH 

# 



38$: 

INC 

R5 

0 

000010 


39$: 

CMP 

R5.10ISP) 

0 



BHI 

40$ 


177370 



JMP 

31$ 


000014 


40$: 

INC 

14(SP) 

0 

000014 

000016 


CMP 

14(SP),16(SP) 

0 



BGT 

41$ 


175632 



JMP 

2$ 


000032 


41$: 

INC 

3 2<SP> 

0 

000032 

000052 


CMP 

32(SP),52(SP) 

0 



BGT 

42$ 


175562 



JMP 

1$ 


000034 


42$: 

ADD 

#34. SP 

0 




RTS 

PC 



TOPS 
PA: < 


8175 


8178 

8184 

8189 


8192 


£123 

8119 


7920 

7916 

7852 


Routine Size: 602 words 

Maximum stack depth per invocation: 37 words 
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SEQ 0340 


15821 

MLX4 

15822 

15823 

15824 

8206 

15825 

8207 

15826 

8208 

15827 

8209 

15828 

8210 

15829 

8211 

15830 

8212 

15831 

8213 

15832 

8214 

15833 

8215 

15834 

8216 

15835 

8217 

15836 

8218 

15837 

8219 

15838 

8220 

15839 

8221 

15840 

8222 

15841 

8223 

15842 

8224 

15843 

8225 

15844 

8226 

15845 

8227 

15846 

8228 

15847 

8229 

15848 

8230 

15849 

8231 

15850 

8232 

15851 

8233 

15852 

8234 

15853 

8235 

15854 

8236 

15855 

8237 

15856 

8238 

15857 

8239 

15858 

8240 

15859 

8241 

15860 

8242 

15861 

8243 

15862 

8244 

15863 

8245 

15864 

8246 

15865 

8247 

15866 

8248 

15867 

8249 

15868 

8250 

15869 

8251 

15870 

8252 

15871 

8253 

15872 

8254 

15873 

8255 

15874 

8256 

15875 

8257 


Zsbttl 'DEFINITION OF OPTION 5' 
routine OPTS : novalue = 
begin 


27-Mar-1982 19:24:42 
27-Mar-1982 19:23:44 


!* 1 * 


TOPS-20 S'. iss-16 V2(212) 
PA:<N£ALE>MLX4.BLl .5 (48) 


♦♦ 


ROUTINE: 0PT5 

PURPOSE: TO EXERCISE THE ML11 SYSTEMS UNDER TEST IN A RANDOM 

MANNER. SO AS TO SIMULATE THE FLEXIBILITY OF TESTING 
THAT WOULD BE DONE BY AN OPERATING SYSTEM. 

THERE ARE 4 RANDOM TESTS WHICH ARE CALLED BY '0PT5' 
TO ACCOMPLISH ALL TESTING. IT IS THE RESPONSIBILITY 
OF THIS ROUTINE TO DECIDE HOW MANY TIMES THOSE 4 
RANDOM TESTS WILL BE EXECUTED. REFER TO 'RAND1 ' TO 
'RAND4' ABOVE FOR MORE INFORMATION. 


local 

REPEAT; 

PRINTB (SAY 2. WRD34, RTN5); 

."RUNNING 0PT5 * 

REPEAT = 9 - .NUM DRIVES; 

! FEWER TIMES EACH RANDOM TEST WILL BE RUN. 

incr LUN from 0 to (.LSUNIT - 1) do 
begin 

if .DRIVE.STATUS C.LUNJ eql ACTIVE 
then 

begin 

UNIT = .DRIVE; 


.'THE MORE UNITS THERE ARE ON THE SYSTEM. THE 


! SEE IF THERE ARE ANY UNITS 

!* 2 * ] WHICH HAVE 64K CHIPS (ML11-B) 


!* 3 * 


if .MLDT 
then 

begin 

repeat = 1 * 

! LOWER THE*REPEAT TIME FOR ALL TESTABLE UNITS, 
ex it loop; 
end; 


* * 4 * 

JTHERE IS AT LEAST 1 UNIT WHICH IS AN ML11-B. SO 


end; 


end; 


• * 4 * 

!* 3 * 

!* 2 * 


AT THIS POINT. 'REPEAT' IS BASED ON THE SYSTEM CONFIGURATION. 

! NOW WEIGHT THE LOOP COUNTS OF THE 4 RANDOM TESTS SO THAT RAND1 
! AND RAND2 ARE MUCH QUICKER THAN RAND3 AND RAND4. RAND3 IS LONGEST. 

t. 

RAND1 (.REPEAT); ! TEST USING RANDOM DATA 


RAND1 (.REPEAT); 
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SEQ 0341 


15877 

15878 

15879 

15880 

15881 

15882 

15883 

15884 

15888 

15889 

15893 

15894 

15895 

15896 

15897 

15898 

15899 

15900 

15901 

15902 

15903 

15904 

15905 

15906 

15907 

15908 

15909 

15910 

15911 

15912 

15913 

15914 

15915 

15916 

15917 

15918 

15919 

15920 

15921 

15922 

15923 

15924 

15925 

15926 

15927 

15928 

15929 

15930 

15931 


;MiX4 


102272 

102276 

102302 

102306 

102312 

102316 

102320 

102322 

102326 

102332 

102336 

102340 

102342 

102344 

102346 

102350 

102352 

102356 

102360 

102362 

102366 

102372 

102374 

102400 

102404 

102406 

102410 

102412 

102414 

102420 

102424 

102430 

102436 

10244? 

102450 

102452 

102456 

102460 

102462 


8258 

8259 

8260 
8261 
8262 


004167 

012746 

012746 

012746 

012746 

010600 

104414 

012703 

166703 

016704 

005001 

000450 

010102 

006202 

006202 

006202 

062702 

010246 

0 1 0146 

042716 

012746 

005046 

004767 

062706 

005300 

OOIO^ 

010102 

006302 

016202 

016200 

042700 

142777 

150077 

032777 

001403 

012703 

000403 

005201 

020104 


DEFINITION OF OPTION 5 

RAND 2 (.REPEAT); 

RAND3 (.REPEAT); 

RAND4 ((.REPEAT*16)); 

return; 

end; 


?7-Mar-1982 19:24:42 
27-Mar-1982 19:23:44 


TOPS-20 Bliss-16 V2(?12) 
PA:<NEALE>MLX4.BII.5 (48) 


! TEST USING RANDOM DATA, WORD COUNTS 

! TEST USING RANDOM SECTORS, DATA, WORD COUNTS 

J TEST USING RANDOM UNITS, SECTORS, DATA, WORD COUNTS 

.'* 1 * 





.SBTTL 

OPTS DEFINITION OF OPTION 5 

103016 


OPTS: 

JSR 

Rl .SSAVE4 

007656 



MOV 

#RTN5.-(S P) 

#URD34,-(SP> 

007344 



MOV 

007100 



MOV 

#SAV2,-(SP) 

000003 



MOV 

#3.-(SP> 



MOV 

SP.RO 




TRAP 

14 

00001 1 



MOV 

#11. R3 

132124 



SUB 

NUM. DRIVES, R3 

07’454 



MOV 

L4UNIT.R4 



CLR 

Rl 




BR 

3S 



It: 

MOV 

R1.R2 




ASR 

R2 




A SR 

R2 




ASR 

R2 

034442 



ADD 

#DRIVE. STATUS, R2 



MOV 

R2.-(SP> 

177770 



MOV 

BIC 

RI.-(SP) 

#1?7770.(SP> 

000001 



MOV 

#1.-(S°) 



CLR 

-(SP> 

101756 



JSR 

PC-8LSGT2 

#10,SP 

000010 



ADD 



DEC 

RO 




BNE 

2* 




MOV 

R1.R2 




ASL 

R2 

034422 



MOV 

PTABLE.ADDR(R2).R2 

000006 



MOV 

6(R2).R0 

177770 



BIC 

#1 777ft), RO 

000007 

131720 


BICB 

#7.8ML.REG*10 

R0,iML.REG*10 

131714 



BISS 

000001 

131724 


BIT 

#1.8ML,REG*26 




BEO 

24 

000001 



MOV 

#1 ,R3 




BR 

4$ 



2$: 

INC 

Rl 



3$: 

CMP 

R1.R4 


; SP,* 

•.REPEAT 
*, REPEAT 

LUN 

; LUN.* 


; LUN.* 


8207 

8227 


8229 

8232 

8235 


; LUN.* 


8238 


*, REPEAT 

LUN 

LUN.* 


8240 

8243 

8245 

8232 



C2MLB80 PERFORMANCE EXERCISER 
OPT5 DEFINITION OF OPTION 5 


15933 

15934 
. 15935 




15936 

102464 

002726 


15937 

102466 

010316 

166044 

15938 

102470 

004767 

15939 

102474 

010316 

170422 

15940 

102476 

004767 

15941 

102502 

010316 

172734 

15942 

102504 

004767 

15943 

102510 

010300 


15944 

102512 

006300 


15945 

102514 

006300 


15946 

102516 

006300 


15947 

102520 

006300 


15948 

102522 

010016 


15949 

102524 

004767 

175256 

15950 

102530 

062706 

000010 

1595? 

15952 

15953 

15954 

15959 

15960 

102534 

000207 



g n 
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;MLX4 

0 

DEFINITION OF OPTION 5 

BIT 

IS 

45: MOV 

R3.(SP) 

JSR 

PC. RAND1 

MOV 

R3, (SP) 

JSR 

PC.RAND2 

MOV 

R3,(SP> 

JSR 

PC.RAND3 

MOV 

R3.R0 

ASL 

RO 

ASL 

RO 

ASL 

RO 

ASL 

RO 

MOV 

RO, (SP) 

JSR 

PC, RAND4 

ADD 

*10. SP 

RTS 

PC 


; Routine Size: 82 words . 

; Maximum stack depth per invocation: 13 words 


REPEAT,* 

REPEAT.* 

REPEAT.* 

REPEAT,* 


SEQ 0342 

27-Mar-1982 19:24:42 TOPS 
27-Mar-1982 19:23:44 PA:< 

8257 

8258 

8259 

8260 


8207 
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SEQ 0343 


15962 

15963 

15964 

15965 

15966 

15967 

15968 

15969 

15970 

15971 

15972 

15973 

15974 

15975 

15976 

15977 

15978 

15979 

15980 

15981 

1 5982 

15983 

15984 

15985 

15986 

15987 

15988 

15989 

15990 

15991 

15992 

15993 

15994 

15995 

15996 

15997 

15998 

15999 

16000 
16001 
16002 

16003 

16004 

16005 

16006 

16007 

16008 

16009 

16010 
16011 
16012 

16013 

16014 

16015 

16016 


MLX4 


8263 

8264 

8265 

8266 

8267 

8268 

8269 

8270 

8271 

8272 

8273 

8274 

8275 

8276 

8277 

8278 

8279 

8280 
8281 
8282 

8283 

8284 

8285 

8286 

8287 

8288 

8289 

8290 

8291 

8292 

8293 

8294 

8295 

8296 

8297 

8298 

8299 

8300 

8301 

8302 

8303 

8304 

8305 

8306 

8307 

8308 

8309 

8310 

8311 

8312 

8313 

8314 


THE OPTION SCHEDULER 

Xsbttl 'THE OPTION SCHEDULER* 
8GNTST; 


27-Mar-1982 19:24:42 
27-Mar-1982 19:23:44 


TOPS-20 81 iss-16 V2(212> 
PA:<NEALE>MLX4.8L1.5 (49) 




ROUTINE: T1 

PURPOSE: THIS IS THE ONE MAIN TEST OF THE EXERCISER. IT LOOKS 

AT THE AVAILABILITY OF TEST OPTIONS AND MAKES CALLS TO 
THE OPTIONS WHEN APPROPRIATE. 

THE QUICK VERIFY PASS INCLUDES THE FOLLOWING ROUTINES: 

Cl) INTEGRITY 

(2) 0PT1 

(3) 0PT2 

(4) 0PT3 

SUBSEQUENT PASSES INCLUDE: 

(1) 0PT1 
v'2) OPT 2 

(3) 0°T3 

(4) 0PT4 

(5) 0PT5 


if .QUICK neq 0 
then 

begin 

PRINTS (CRLF); 

PRINTS (SAY3. WRD2, PHR2, WRD4); 
! 'BEGIN QUICK VERIFY PASS* 
INTEGRITY <); 
end; 

if .DR0P1 eql 0 
then 

0PT1 (); 

if .DR0P2 eql 0 
then 

0PT2 (); 

if . DR0P3 eql 0 
then 

0PT3 (); 

if .QUICK eql 0 
then 

begin 

if .DR0P4 eql 0 


! THIS IS THE QUICK VERIFY PASS 


! OPTION 1 IS AVAILABLE 


! OPTION 2 IS AVAILABLE 


! OPT I ON 3 IS AVAILABLE 



i n 
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16018 

16019 

T6020 

16021 

16022 

16023 

16024 

16025 

16026 

16027 

16028 

16029 

16030 


MLX4 


THE OPTION SCHEDUIER 

8315 then 

8316 0PT4 (); 

8317 

8318 if .DR0P5 eql 0 

8319 then 

8320 0PT5 (); 

8321 

8322 end; 

8323 

8324 ENDTST; 


16034 

16035 

16039 102536 005767 130132 

16040 102542 001426 

16041 102544 012746 007066 

16042 102550 012746 000001 

16043 102554 010600 

16044 102556 104414 

16045 102560 012716 007212 

16046 102564 012746 007730 

16047 102570 012746 007200 

16048 102574 012746 007112 

16049 102600 012746 000004 

16050 102604 010600 

16051 102606 104414 

16052 102610 004767 144416 

16053 102614 062706 000014 

16054 102620 005767 07741? 

16055 102624 001002 

16056 107626 004767 146626 

16057 102632 005767 077402 

16058 102636 001002 

16059 102640 004767 151210 

16060 102644 005767 077372 

16061 102650 001002 

16062 102652 004767 155174 

16063 102656 005767 130012 

16064 102662 001012 

16065 102664 005767 077354 

16066 102670 001002 

16067 102672 004767 157546 

16068 102676 005767 077346 

16069 102702 001002 

16070 102704 004767 177362 

16071 102710 000207 
'6072 



.S8TTL 

ST 1 THE OPTION 

ST1 : 

TST 

QUICK 


BEO 

IS 


MOV 

#CRLF.-(SP> 


MOV 

#1,-(SP> 


MOV 

SP.RO 


TRAP 

14 


MOV 

#WRD4,(SP> 


MOV 

#PHR2,-(SP> 


MOV 

#URD2,-(SP> 


MOV 

#SAY3,-(SP) 


MOV 

#4.-(SP) 


MOV 

SP.RO 


TRAP 

14 


JSR 

PC. INTEGRITY 


ADD 

#14. SP 

IS: 

TST 

DR0P1 


BNE 

2S 


JSR 

PC.0PT1 

2$: 

TST 

DR0P2 


BNE 

3S 


JSR 

PC. OPT 2 

3S: 

TST 

DR0P3 


BNE 

4$ 


JSR 

PC.0PT3 

4S: 

TST 

QUICK 


BNE 

6S 


TST 

DR0P4 


BNE 

5S 


JSR 

PC.0PT4 

5$: 

TST 

DR0P5 


BNE 

6$ 


JSR 

PC.0PT5 

6S: 

RTS 

PC 


>E0 0344 

27-Mar-1982 19:24:42 TOPS-20 Bliss-16 V2(2l2> 

27-Mar-1982 19:23:44 PA : <NEALc >MLX4 .BLi . 5 (49) 

'OPTION 4 IS AVAILABLE 

! OPT I ON 5 IS AVAILABLE 



8289 

8292 

8293 


S P.* 

8295 

8291 

8298 

8300 

8302 

8304 

8306 

8308 

8310 

8314 

8316 

8318 


8320 

8262 
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SEQ 0345 


16074 

16075 

16076 

16077 

16078 

16083 

16084 
16088 
16089 

16093 102712 

16094 102712 004767 

16095 102716 104466 

16096 102720 006000 

16097 102722 103773 

16098 102724 000207 

16099 

16100 
16101 
16106 
16107 


1 77620 


;MLX4 


THE OPTION SCHEDULER 


; Routine Size: 54 words 

; Maxima stack depth per invocation: 6 words 


.S8TTL T1 THE OPTION SCHEDULER 

T1 : : 

1$: JSR PC.ST1 

TRAP 66 

ROR RO 

0LO IS 

RTS PC 

; Routine Size: 6 words 

; Maximum stack depth per invocation: 0 words 


27-Mar-1982 19:24:42 TOPS 
27-Mar-1982 19:23:44 PA:< 


8322 
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SEO 034,6 


16109 

16110 
16111 
16112 

16113 

16114 

16115 

16116 

16117 

16118 

16119 

16120 
16121 
16122 

16123 

16124 

16125 

16126 

16127 

16128 

16129 

16130 

16131 

16132 

16133 

16134 

16135 

16136 

16137 

16138 

16139 

16140 

16141 

16142 

16143 

16144 

16145 

16146 

16147 

16148 

16149 

16150 

16151 

16152 

16153 

16154 

16155 

16156 

16157 

16158 

16159 

16160 
16161 
16162 
16163 


;MLX4 


8325 

8326 

8327 

8328 

8329 
6330 

8331 

8332 

8333 

8334 

8335 

8336 

8337 

8338 

8339 

8340 

8341 

8342 

8343 

8344 

8345 

8346 

8347 

8348 

8349 

8350 

8351 

8352 

8353 

8354 

8355 

8356 

8357 

8358 

8359 

8360 

8361 

8362 

8363 

8364 

8365 

8366 

8367 

8368 

8369 

8370 

8371 

8372 

8373 

8374 

8375 

8376 


END OF PASS SUMMARY 

Xsbttl ‘END OF PASS SUMMARY* 
routine EOP : novatue = 
begin 


27-Mar-l982 19:24:42 
27-Mar-1982 19:23:44 


! * 1 


TOPS-20 Bliss-16 V2<212> 
PA:<NEALE>MLX4.BLI.5 (50) 




ROUTINE: EOP 

PURPOSE: TO PRINT A STATUS REPORT FOR EACH DRIVE. IF AN 

ARRAY HAS ANY HARD OR SOFT ERRORS, THEN ITS ERROR 
COUNT WILL APPEAR. AND IF THE COUNT IS TOO HIGH, 
THEN A DIAGNOSIS TO RUN THE ML11 PROM MAINTENANCE 
PROGRAM WILL ALSO APPEAR. 

THE FOLLOWING IS A SAMPLE REPORT FOR 2 DRIVES: 


PERFORMANCE SUMMARY 

NUMBER OF MBYTES TRANSFERRED: 

1028 MBYTES WRITTEN 
250 MBYTES READ 
1145 MBYTES WRITE CHECKED 

LOGICAL UNIT: 0 DRIVE: 1 SERIAL #: 1234 


SOFT ERROR COUNT: 

ARRAY 3: 9 

HARD ERROR COUNT: 
ARRAY 0: 6 

ARRAY 10: 2 

ARRAY 15: 3 

TRANSFER RETRIES: 


11 


1 


LOGICAL UNIT: 

DRIVE DROPPED 

SOFT ERROR COUNT: 
ARRAY 1 : 9 

ARRAY 13: 10 

ARRAY 14: 1 

ARRAY 15: ?P 

HARD ERROR COUNT: 
ARRAY 14: 1 

ARRAY 15: 1 

TRANSFER RETRIES: 


local 

SFT TOT. 
HRD TOT. 
TRY'TOT; 


DRIVE: 1 SERIAL »: 9876 
(CONTROLLER FATAL ERROR) 


100 

— > RUN ML 1 1 PROM MAINTENANCE PROGRAM 


— > RUN ML 11 

2 


PROM MAINTENANCE PROGRAM 


if .EOPSUM 
then 


THE OPERATOR HAS ALLOWED THE SUMMARY TO PRINT 
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L 11 
PAGE 328 


16165 

16166 

16167 

16168 

16169 

16170 

16171 

16172 

16173 

16174 

16175 

16176 

16177 

16178 

16179 

16180 
16181 
16182 

16183 

16184 

16185 

16186 

16187 

16188 

16189 

16190 

16191 

16192 

16193 

16194 

16195 

16196 

16197 

16198 

16199 

16200 
16201 
16202 

16203 

16204 

16205 
162 5 
16^07 
16208 

16209 

16210 
16211 
16212 

16213 

16214 

16215 

16216 

16217 

16218 
16219 


MLX4 


8377 

8378 

8379 

8380 

8381 

8382 

8383 

8384 

8385 

8386 

8387 

8388 

8389 

8390 

8391 

8392 

8393 

8394 

8395 

8396 

8397 

8398 

8399 

8400 

8401 

8402 

8403 

8404 

8405 

8406 

8407 

8408 

8409 

8410 

8411 

8412 

8413 

8414 

8415 

8416 

8417 

8418 

8419 

8420 

8421 

8422 

8423 

8424 

8425 

8426 

8427 

84 28 


END OF PASS SUMMARY 

begin 
PRINTS (CRLF); 


27-N»r-1982 19:24:42 
27-M*r-1982 19:23:44 

2 • 


PRINTS (SAYl , PHR17); 

."PERFORMANCE SUMMARY* 

PRINTS (CRLF); 

PRINTS (SAY1 , PHR12); 

’.NUMBER OF MBYTES TRANSFERED: 

PRINTS (FMT14, .WR MILLIONS, PHR19) 
!*XXXXX MBYTES WRITTEN* 

PRINTS (FMT14, .F~ MILLIONS, PHR20) 
."XXXXX MBYTES READ* 

PRINTS (FMT14, .UC MILLIONS, PHR13) 
! ‘XXXXX MBYTES WRITE CHECKED* 

incr LUN from 0 to (.LSUNIT - 1 ) do 
begin 

UNIT = .DRIVE; 


! * 3 • 


if .DPR eql 0 
then 

PRINTS (FMT4A, PHR 7, .LUN, WRD11. .DRIVE) 
."LOGICAL UNIT: X DRIVE: Y* 

else 

SAYWHO (.LUN); 


i • 


LOGICAL UNIT: X DRIVE: Y SERIAL #: ZZZZ' 


if .DROPT.DRIVES C.LUNJ eql ACTIVE 
then 

begin !* 4 * 

PRINTS (SAY 2, WRD11, WRD2D; 

! 'DRIVE DROPPED* 

selectone .WHY.DROPT [.LUN] of 
set 

[CODE 13 : 

PRINTS (FMT2, CAUSED; 

." (NOT POWERED UP)' 

[CODE 23 : 

pRlNTB (FMT2, CAUSE2); 

(NOT AN ML 11 UNIT)* 

[CODE 33 : 

PRINTS (F MT2, CAUSE3); 

." (OPERATOR SELECTED TEST LIMITS INCORRECTLY)* 
[CODE 43 : 

PRINTS (FMT2, CAUSE4); 

!' (ALL RETRIES FAILED FOR A NON-FATAL ERROR)* 


SEO 0347 

TOPS-20 Bliss-16 V2(21 ?) 
PA:<NEALE>MLX4.SLI.5 (50) 
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SEQ 0348 


16221 ;MLX4 

16222 ; 

16223 

16224 

16225 

16226 

16227 

16228 

16229 

16230 

16231 

16232 

16233 

16234 

16235 

16236 

16237 

16238 

16239 

16240 

16241 

16242 

16243 

16244 

16245 

16246 

16247 

16248 

16249 

16250 

16251 

16252 

16253 

16254 

16255 

16256 

16257 

16258 

16259 

16260 
16261 
16262 

16263 

16264 

16265 

16266 

16267 

16268 

16269 

16270 

16271 

16272 

16273 

16274 

16275 


END OF PASS SUMMARY 


27-Mar-1982 19:24:42 
27-Mar-1982 19:23:44 


TOPS-20 Bliss-16 V2<212> 
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8429 

8430 

8431 

8432 

8433 

8434 

8435 

8436 

8437 

8438 

8439 
844C 

8441 

8442 

8443 

8444 

8445 

8446 

8447 

8448 

8449 

8450 

8451 

8452 

8453 

8454 

8455 

8456 

8457 

8458 

8459 

8460 

8461 

8462 

8463 

8464 

8465 

8466 

8467 

8468 

8469 

8470 

8471 

8472 

8473 

8474 

8475 

8476 

8477 

8478 

8479 

8480 


[CODE .53 : 

PRINTB (FMT2. CAUSE5); 

!’ (CONTROLLER FATAL ERROR)* 

CCODE 63 : 

PRINTS (FMT2, CAUSE6); 
r (DRIVE FATAL ERROR)* 

CCODE 73 : 

PRINT8 (FMT2. CAUSE 7); 

! * (ECC HARD ERROR)' 

CCODE 83 : 

PRINTS (FMT2. CAUSE8); 

!* (ECC LOGIC FAILURE)* 
tes; 


end; 


;* 4 * 


SFT TOT = 0; 

HRD TOT = 0; 

TRY_TOT = 0; 

incr ARRAY from 0 to 15 do 

SfJ’toT = .SFT TOT ♦ .SOFTS C.LUN, .ARRAY, 0, 16, 03 

HRD’TOT = .HRD TOT ♦ .HARDS C.LUN, .ARRAY. 0. 16. 03 

TRYlTOT = .TRYlTOT ♦ .TRIES C.LUN. .ARRAY, 0, 16, 03 

end; 

PRINTS (FMT7. PHR5, .SFT TOT); 

SOFT ERROR COUNT: DDl^ 

if ,SFT_TOT neq 0 
then 

incr ARRAY from 0 to 15 do 

if .SOFTS C.LUN, .ARRAY, 0. 16, 03 neq 0 
then 

PR?NT8 (FNT9, .ARRAY, .SOFTS C.LUN, .ARRAY. 0. 16. 03); 
! ' ARRAY XX: YYYYY* 

VER CZMLB8 THE FOLLOWING CODE HAS BEEN COMMENTED OUT BECAUSE SOFT ERRORS 
SHOULD NOT BE COUNTED TOWARD THE CALLING OUT OF THE PROM MAINENANCE PROGRAM 

!♦ 

NOW SEE IF THRESHOLDS FOR SOFT ERRORS 
HAVE SEEN REACHED FOR THIS ARRAY BOARD: 


if ((.ARR.TYP eql 0) and (.SOFTS C.LUN, .ARRAY, 0, 16, 03 ge”5 S16X.LIMID) 



N 11 
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16277 

16278 

16279 

16280 
16281 
16282 

16283 

16284 

16285 

16286 

16287 

16288 

16289 

16290 

16291 

16292 

16293 

16294 

16295 

16296 

16297 

16298 

16299 

16300 

16301 

16302 

16303 

16304 

16305 

16306 

16307 

16308 

16309 

16310 

16311 

16312 

16313 

16314 

16315 

16316 

16317 

16318 

16319 

16320 

16321 

16322 

16323 

16324 

16325 

16326 

16327 

16328 

16329 

16330 

16331 


MLX4 


END OF PASS SUMMARY 


27-Mar-1982 19:24:42 T0PS-20 Bliss-16 V2<212> 

27-Mar-1982 19:23:44 PA:<NEALE>MLX4.BU.5 (50) 


8481 

8432 

8483 

8484 

8485 

8486 

8487 

8488 

8489 

8490 

8491 

8492 

8493 

8494 

8495 

8496 

8497 

8498 

8499 

8500 

8501 

8502 

8503 

8504 

8505 

8506 

8507 

8508 

8509 

8510 

8511 

8512 

8513 

8514 

8515 

8516 

8517 

8518 

8519 

8520 

8521 

8522 

8523 

8524 

8525 

8526 

8527 

8528 

8529 

8530 

8531 

8532 


then 

PRINTS (FMT2. MSG2); 

•• — > RUN ML 11 PRCM MAINTENANCE PROGRAM* 

if ((.ARR.TYP eql 1) and (.SOFTS C.LUN, .ARRAY, 0, 16. 03 geq S64K.LIMIT)) 
then 

PRINTB (FMT 2. MS62); 

»' — > RUN ML1 1 PROM MAINTENANCE PROGRAM' 

end; 

PRINTB (FMT7, PHR18, .HRD TOT); 

I' HARD ERROR COUNT: DDDBD' 

if .HRD_T0T neq 0 
then 

incr ARRAY from 0 to 15 do 

if .HARDS C.LUN. .ARRAY, 0. 16, 03 neq 0 
then 

begin 

PRINTB (FMT9, .ARRAY, .HARDS C.LUN, .ARRAY. 0, 16. 03); 

! * ARRAY XX: YYYYY* 

'♦ 

• NOW SEE IF THRESHOLDS FOR HARD ERRORS 
! HAVE BEEN REACHED FOR THIS ARRAY BOARD: 


VER CZMLB8 CHANGED TESTING HARDS CTABLE3 TO TESTING PM.SBE.CNT CTA8LE3 


if ((.ARR TYP eql 0) and (.PM.SBE.CNT C.LUN, .ARRAY, PM.SBES.SUM3 geq H16K.LIMIT)) 
then 

PRINTB (FMT2, MSG2); 

*• — > RUN ML11 PROM MAINTENANCE PROGRAM' 

VER CZMLBB CHANGED TESTING HARDS CTABLE3 TO TESTING PM.SBE.CNT CTA8LE3 


if ((.ARR.TYP eql 1) and (.PM.SBE.CNT C.LUN. .ARRAY, PM.SBES.SUM3 geq H64K.LIMIT)) 
then 

PRINTB (FMT2, MSG2); 

!* — > RUN ML 1 1 PROM MAINTENANCE PROGRAM' 
end; 

PRINTB (FMT7, PHR6. .TRY.TOT); 
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SEQ 0350 


16333 

16334 

16335 

16336 

16337 

16338 

16339 

16340 

16341 

16342 

16343 

16344 

16345 

16346 

16347 

16348 

16349 

16350 

16351 

16352 

16353 

16354 

16355 

16356 

16357 

16358 

16359 

16360 

16361 

16362 

16363 

16364 

16365 

16366 

16367 

16368 

16369 

16370 

16371 

16372 

16373 

16374 

16375 

16376 

16377 

16378 

16379 

16380 

16381 

16382 

16383 

16384 

16385 

16386 

16387 


END OF PASS SUMMARY 

•' TRANSFER RETRIES: DDDDD* 

if .TRY_TOT neq 0 
then 


27-Mar-1982 19:24:42 
27-Mar-1982 19:23:44 


T0PS-20 Bliss-16 V2( 212) 
PA:<NEALE>MLX4.BLI.5 (50) 


incr ARRAY from 0 to 15 do 

if .TRIES C.LUN, .ARRAY. 0. 16, 03 neq 0 
then 

PRINTB (FMT9, .ARRAY. 

.TRIES C.LUN, 

.ARRAY, 0. 16, 03); 


ARRAY XX: YYYYY' 


Examine the number of single 
bit errors detected during 
execution of the exerciser 
thus far. If any were detected 
then print them out to the 
operator. 


if .SBEJ.COUNT gtr ZERO 
then 

begin ' 

• PRINTB (CRLF); 

; PRINTB (SAY1. PHR21); 
PRINTB (CRLF); 

* PRINTB (SAY1, SBESHEADER); 


!* 3 * 


{Print single bit log summary report 

r 

{Print the column headings 


Print to the console terminal for the 
operator review all the detected single 
bit errors during the execution of this 


exerciser thus far. 


ncr index from 0 to ,S8E$„C0UNT - 1 do 
begin 

PRINTB (FMT16,' !Th 


{Print all errors logged in this table 
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16389 

;MLX4 






27-Mar-1982 

19:24:42 

16390 



END OF 

PASS SUMMARY 


27-Mar-1982 

19:23:44 

16391 









16392 

; 

8585 


PRINTS 

(CRLF); 




16393 

; 

8586 


end; 



.'* 2 * 


16394 

t 

8587 







16395 


8588 

return; 





16396 

9 

8589 

end 

• 



;* i * 


1 6hUU 
16401 






.S8TTL 

EOP END OF PASS SUMMARY 


16405 

102726 

004167 

102402 


EOP: 

JSR 

PI ,$SAVE5 

0 

16406 

102732 

162706 

000010 



SUB 

#10, SP 


16407 

102736 

032767 

000001 

077312 


BIT 

#1 ,EOPSUM 

9 

16408 

102744 

001002 




6NE 

IS 


16409 

102746 

000167 

001744 



JMP 

32$ 


16410 

102752 

012746 

007066 


1$: 

MOV 

#CRLF,-(SP) 

9 

16411 

102756 

012746 

000001 



MOV 

#1,-(SP> 


16412 

102762 

010600 




MOV 

SP,R0 

; SP,* 

16413 

102764 

104414 




TRAP 

1 4 


16414 

102766 

012716 

010342 



MOV 

MPHR17, (SP) 

• 

16415 

102772 

012746 

00707? 



MOV 

#SAY1,-(SP) 


16416 

102776 

012746 

000002 



MOV 

#2,-(SP) 


16417 

103002 

010600 




MOV 

SP.RO 

; SP,* 

16418 

103004 

104414 




TRAP 

14 


16419 

103006 

012716 

007066 



MOV 

#CRLF , (SP) 

0 

16420 

103012 

012746 

000001 



MOV 

#1,-(SP) 


16421 

103016 

010600 




MOV 

SP.RO 

; SP,* 

16422 

103020 

104414 




TRAP 

1 4 


16423 

103022 

012716 

010202 



MOV 

#PHR12.(SP) 

0 

16424 

103026 

012746 

007072 



MOV 

MS Vfl .-(SP) 


16425 

103032 

012746 

000002 



MOV 

#2,-(SP) 


16426 

103036 

010600 




MOV 

SP.RO 

; SP,* 

16427 

103040 

104414 




TRAP 

1 4 


16428 

103042 

012716 

010410 



MOV 

#PHR19, \'SP) 

0 

16429 

103046 

016746 

"31246 



MOV 

WR. MILLIONS, -(SP) 


16430 

103052 

012746 

007046 



MOV 

#FMT14,-(SP) 


16431 

103056 

012746 

000003 



MOV 

#3,-(SP) 


16432 

103062 

010600 




MOV 

SP.RO 

; SP.* 

16433 

1 03064 

104414 




TRAP 

14 


16434 

103066 

012716 

010430 



MOV 

#PHR20, (SP) 

0 

16435 

103072 

016746 

131230 



MOV 

RD. MILL IONS. -(SP) 


16436 

103076 

012746 

007046 



MOV 

#FMT14.-(SP) 


16437 

103102 

012746 

000003 



MOV 

#3,-(SP) 


16438 

103106 

010600 




MOV 

SP.RO 

; SP,* 

16439 

103110 

104414 




TRAP 

14 


16440 

103112 

012716 

010240 



MOV 

#PHR13.(SP) 

0 

16441 

103116 

016746 

131212 



MOV 

UC. MILL IONS, -(SP) 


16442 

103122 

012746 

007046 



MOV 

#FNT14,-(SP) 


16443 

103126 

012746 

000003 



MOV 

#3,-(SP) 



TOPS-20 Bliss-16 V2C212) 
PA : <NEAIE >MLX4 . BL 1 . 5 (50) 


SEO 0351 


8326 

8375 

8378 

8379 

8381 

8382 

8384 

8386 

8388 










D 12 





I CZMLB80 

PERFORMANCE EXERCISER 

MACRO Ml 1 13 

29-MAR-82 

13:41 &AGL 333 
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SUMMARY 








SEO 0352 

16445 





;MLX4 




27 - Mar-1982 

19:24:42 

TOPS 

16446 





* 


END O: PASS SUMMARY 


27-Mar-1982 

19:23:44 

PA:< 

1 16447 

16448 

103132 

010600 




MOV 

SP.RO 

; SP.* 




16449 

103134 

104414 




TRAP 

1 4 




8391 


16450 

103136 

016766 

076650 

000046 


MOV 

LSUNIT.46CSP) 

• 




16451 

103144 

005005 




CLR 

R5 

; LUN 




16452 

103146 

000167 

001246 



JMP 

27$ 




8393 


16453 103152 

010500 



2S: 

MOV 

R5.R0 

; LUN,* 




16454 

103154 

006300 




ASL 

RO 





16455 

103156 

016003 

034422 



MOV 

PTABLE.ADDR(RO) ,R3 





16456 

103162 

016304 

000006 



MOV 

6(R3),R4 
#1 77770, R4 





16457 

103166 

042704 

177770 



QIC 





16458 

103172 

142777 

000007 

131156 


BJCB 

#7,aML.REG*10 





16459 

103200 

150477 

131152 



BISB 

R4.BML.REG+10 

#400.iML.R£G*12 




8395 


16460 

103204 

032777 

000400 

131146 


BIT 

• 




16461 

103212 

001022 




BNE 

3$ 




8397 


16462 

103214 

01 6003 

034422 



MOV 

PTA8LE.ADDR(R0),R3 

0 




16463 

103220 

016346 

000006 



MOV 

6(R3).-(SP) 

#WRD1 1 ,-(SP) 






16464 

103224 

012746 

007240 



MOV 






1o465 

103230 

010546 




MOV 

R5,-(SP) 

; LUN,* 





16466 

103232 

012746 

010050 



MOV 

#PHR7,-(SP) 






16467 

103236 

012746 

006216 



MOV 

#FMT4A,-(SP) 






16468 

103242 

012746 

000005 



MOV 

#5.-(SP) 






16469 

103246 

010600 




MOV 

SP, RO 

; SP.* 





16470 

103250 

104414 




TRAP 

14 






16471 

103252 

062706 

000012 



ADD 

#12, SP 




8395 


16472 

103256 

000403 




BR 

4$ 

m 




16473 

103260 

010546 



3S: 

MOV 

R5.-(SP) 

; LUN.* 



8400 


16474 

103262 

004767 

132236 



JSR 

PC, SAY WHO 




8404 


16475 

103266 

010500 



4$: 

MOV 

R5,R0 

; LUN,* 




16476 

103270 

006200 




ASR 

RO 






16477 

103272 

006200 




A SR 

RO 






16478 

103274 

006200 




ASR 

RO 






16479 

103276 

062700 

034444 



ADD 

#DROPT.DRIVES,R0 





16480 

103302 

010046 




MOV 

R0,-(SP) 





16481 

103304 

010546 




MOV 

R5.-(SP) 

#177770,(SP) 

; LUN,* 




16482 

103306 

042716 

177770 



BIC 






16483 

103312 

012746 

000001 



MOV 

#1,-(SP) 






16484 

103316 

005046 




CLR 

-(SP) 





16485 

103320 

004767 

101032 



JSR 

PC,BL$GT2 
#10, SP 





16486 

103324 

062706 

000010 



ADD 





16487 

103330 

005300 




DEC 

RO 




1 

16488 

103332 

001160 




BNE 

14$ 




8407 


1648V 

103334 

012746 

007322 



MOV 

#URD21.-(SP) 

• 

0 




16490 

103340 

012746 

007240 



MOV 

#URD11. -(SP) 





16491 

103344 

012746 

007100 



MOV 

#SAY2,-(SP) 





16492 

103350 

012746 

000003 



MOV 

#3,-(SP) 

; SP.* 




16493 

103354 

010600 




MOV 

SP, RO 




16494 

103356 

104414 




TRAP 

14 




8410 


16495 

103360 

005003 




CLR 

R3 

0 




16496 

103362 

156503 

034446 



BISB 

WHY.DROPT (R5) ,R3 

; *(LUN) ,* 


• 



16497 

103366 

020327 

000001 



CMP 

R3.#1 






16498 

103372 

001011 




BNE 

5$ 




8414 

1 


16499 103374 

012746 

010460 



MOV 

#CAUSE1.-(SP) 

• 

0 
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SUMMARY 





16501 




;MLX4 



16502 




• 


END OF PASS SUMMARY 

16503 







16504 

103400 

012746 

006160 


MOV 

#FMT2.-(SP) 

16505 

103404 

012746 

000002 


MOV 

02, -(SP) 

16506 

103410 

010600 



MOV 

SP.RO 

16507 

103412 

104414 



TRAP 

14 

16508 

103414 

000523 



BR 

12$ 

16509 

103416 

020327 

000002 

5$: 

CMP 

Rl.02 

16510 

1 r 34?2 

001011 



BNE 

6$ 

16511 

1 ,3424 

012746 

010502 


MOV 

#CAUSE2,-(SP> 

16512 

103430 

012746 

006160 


MOV 

0FMT2,-(SP) 

16513 

103434 

012746 

000002 


MOV 

02, -(SP) 

16514 

103440 

010600 



MOV 

SP.RO 

16515 

103442 

104414 



TRAP 

14 

16516 

103444 

000507 



BR 

12$ 

16517 

103446 

020327 

000003 

6$: 

CMP 

R3.#3 

16518 

103452 

001011 



BNE 

7$ 

16519 

103454 

012746 

010526 


MOV 

*CAUSE3,-(SP> 

16520 

103460 

012746 

006160 


MOV 

#FMT2,-(SP> 

16521 

103464 

012746 

000002 


MOV 

*2.-<SP> 

16522 

103470 

010600 



MOV 

SP.RO 

16523 

103472 

104414 



TRAP 

14 

16524 

103474 

000473 



BR 

12$ 

16525 

103476 

020327 

000004 

7$: 

CMP 

R3,#4 

16526 

103"02 

001011 



BNE 

8$ 

16527 

1 07 5v 4 

012746 

010602 


MOV 

#CAUSE4,-(SP> 

16528 

10-.510 

012746 

006160 


MOV 

*FMT2,-(SP> 

16529 

103514 

012746 

000002 


MOV 

02, -(SP) 

16530 

103520 

010600 



MOV 

SP.RO 

16531 

103522 

104414 



TRAP 

14 

16532 

103524 

000457 



BR 

12$ 

16533 

103526 

020327 

000005 

8$: 

CMP 

R3.A5 

16534 

103532 

001011 



BNE 

9$ 

16535 

103534 

012746 

010656 


MOV 

*CAUSE5,-(SP> 

16536 

103540 

012746 

006160 


MOV 

#FMT2.-(SP> 

16537 

103544 

012746 

000002 


MOV 

*2.-<SP) 

16538 

103550 

010600 



MOV 

SP.RO 

16539 

103552 

104414 



TRAP 

14 

16540 

103554 

000443 



BR 

12$ 

16541 

103556 

020327 

000006 

9$: 

CMP 

R3.#6 

16542 

103562 

001011 



BNE 

10$ 

16543 

103564 

012746 

010710 


MOV 

#CAUSE6,-(SP> 

16544 

103570 

012746 

006160 


MOV 

0FMT2 ,-(SP) 

16545 

103574 

012746 

000002 


MOV 

02, -(SP) 

16546 

103600 

010600 



MOV 

SP.RO 

16547 

103602 

104414 



TRAP 

14 

16548 

103604 

000427 



BR 

12$ 

16549 

103606 

020327 

000007 

10$: 

CMP 

R3 ,07 

16550 

103612 

001011 



BNE 

11$ 

16551 

103614 

012746 

010734 


MOV 

#CAUSE7,-(SP) 

16552 

103620 

012746 

006160 


MOV 

#FMT2,-(SP> 

16553 

103624 

012746 

000002 


MOV 

02, -(SP) 

16554 

103630 

010600 



MOV 

SP.RO 

16555 

103632 

104414 



TRAP 

14 


SEO 0553 

27-Mar-1982 19:24:4 2 TOPS 
27-Mar-1982 19:23:44 PA:< 


SP,< 


8410 

8418 


SP.* 


8410 

8422 


SP,* 


8410 

8426 


SP.* 


8410 

8430 


SP.* 


8410 

8434 


SP,* 


8410 

8438 


SP,* 


L „ 
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SUMMARY 








16557 





;MLX4 





16558 





9 


END OF PASS SUMMARY 



16559 










16560 

103634 

000413 




6R 

12$ 



16561 

103636 

020327 

000010 


11$: 

CMP 

R3.#10 

9 


16562 

103642 

00' 012 




BNE 

13$ 



16563 

103644 

012746 

010756 



MOV 

#CAUSE8.-(SP) 

9 


16564 

103650 

012746 

006160 



MOV 

#FMT2,-(SP) 



16565 

103654 

012746 

000002 



MOV 

#2.-(SP) 



16566 

103660 

010600 




MOV 

SP.RO 

9 

SP.* 

16567 

103662 

104414 




TRAP 

14 



16568 

103664 

062706 

000006 


12$: 

ADD 




16569 

103670 

062706 

000010 


13$: 

ADD 

#10. SP 

9 


16570 

103674 

005066 

000046 


14$: 

CLR 

46(SP> 

9 

SFT.TOT 

16571 

103700 

005066 

000044 



CLR 

44<SP> 

• 

HRD.TOT 

16572 

103704 

005066 

000042 



CLR 

42 (SP) 

9 

TRY. TOT 

16573 

103710 

010500 




MOV 

R5.R0 

9 

LUN.* 

16574 

103712 

006300 




ASL 

RO 



16575 

103714 

006300 




ASL 

RO 



16576 

103716 

006300 




ASL 

RO 



16577 

103720 

006300 




ASL 

RO 



16578 

103722 

010004 




MOV 

R0.R4 



16579 

103724 

005002 




CLR 

R2 

9 

ARRAY 

16580 

103726 

010403 



15$: 

MOV 

R4.R3 

9 


16581 

103730 

060203 




ADD 

R2.R3 

9 

ARRAY.* 

16582 

103732 

006303 




ASL 

R3 



16583 

103734 

066366 

032714 

000046 


ADD 

S0FTS(R3).46(SP) 

9 

•.SFT.TOT 

16584 

103742 

066366 

033314 

000044 


ADD 

HARDSCR3) ,44(SP) 

9 

•.HRD.TOT 

16585 

103750 

066366 

033714 

000042 


ADD 

TRIES(R3).42(SP) 

9 

*, TRY. TOT 

16586 

103756 

005202 




INC 

R2 

9 

ARRAY 

16587 

103760 

020227 

000017 



CMP 

R2,#17 

9 

ARRAY,* 

16588 

103764 

003760 




BLE 

15$ 



16589 

103766 

016616 

000046 



MOV 

46(SP) , (SP) 

9 

SFT.TOT,* 

16590 

103772 

012746 

010004 



MOV 

#PHR5,-(SP) 



16591 

103776 

012746 

006446 



MOV 

#FMT7,-(SP) 



16592 

104002 

012746 

000003 



MOV 

#3.-(SP> 



16593 

104006 

010600 




MOV 

SP.RO 

9 

SP.* 

16594 

104010 

104414 




TRAP 

14 



16595 

104012 

005766 

000054 



TST 

54(SP) 

9 

SFT.TOT 

16596 

104016 

001425 




BEQ 

18$ 



16597 

104020 

005002 




CLR 

R2 

9 

ARRAY 

16598 

104022 

010403 



16$. 

MOV 

R4.R3 

9 


16599 

104024 

060203 




ADD 

R2.R3 

9 

ARRAY,* 

16600 

104026 

006303 




ASL 

R3 



16601 

104030 

016303 

032714 



MOV 

S0FTS(R3).R3 



16602 

104034 

001412 




BEQ 

17$ 



16603 

104036 

010346 




MOV 

R3.-(SP) 

9 


16604 

104040 

010246 




MOV 

R2.-(SP) 

9 

ARRAY,* 

16605 

104042 

012746 

006534 



MOV 

#FMT9.-(SP> 



16606 

104046 

012746 

0C0003 



MOV 

#3.-(SP> 



16607 

104052 

010600 




MOV 

SP.RO 

9 

SP,* 

16608 

104054 

104414 




TRAP 

14 



16609 

104056 

062706 

000010 



ADD 

#10. SP 

• 

9 


16610 

104062 

005202 



17$: 

INC 

R 2 

9 

ARRAY 

16611 

104064 

020227 

000017 



CMP 

R2.#17 

9 

ARRAY,* 


SEO 0354 

27-Mar-1982 19:24:42 TOPS 
27-Mar-1982 19:23:44 PA:< 

8410 

8442 


8406 

8448 

8449 

8450 
8454 


8452 

8454 


8455 

8456 
8452 


8459 


/ 


8462 

8465 

8467 


8470 


8469 

8465 
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EOP END 

OF PASS 

SUMMARY 







16613 





;MIX4 




16614 





0 


END OF PASS SUMMARY 


16615 









16616 

104070 

003754 




BIE 

1 6$ 


16617 

104072 

016616 

000052 


18$: 

MOV 

52 ( SP) , (SP) 

; HRD.TOT.* 

16618 

104076 

012746 

010366 



MOV 

#PHR18.-(SP) 


16619 

104102 

012746 

006446 



MOV 

#FMT7.-(SP) 


16620 

104106 

012746 

000003 



MOV 

#3.-<SP) 


16621 

104112 

010600 




MOV 

SP.RO 

; SP.* 

1&622 

104114 

104414 




TRAP 

1 4 


16623 

104116 

005766 

000060 



TST 

60(SP) 

; HRD.TOT 

16624 

104122 

001471 




BEQ 

23$ 


16625 

104124 

005001 




CLR 

R1 

; ARRAY 

16626 

104126 

010403 



19$: 

MOV 

R4.R3 

9 

16627 

104130 

060103 




ADD 

R1.R3 

; ARRAY,* 

16628 

104132 

006303 




ASL 

R3 


16629 

104134 

016302 

0333H 



MOV 

HARDS(R3),R2 


16630 

104140 

001456 




BEQ 

22$ 


16631 

104142 

010246 




MOV 

R2.-CSP) 

9 

16632 

104144 

010146 




MOV 

RI.-(SP) 

; ARRAY.* 

16633 

104146 

012746 

006534 



MOV 

#FMT9.-(SP) 


16634 

104152 

012746 

000003 



MOV 

#3,-rp> 


16635 

104156 

010600 




MOV 

SP.RO 

; SP,* 

16636 

104160 

104414 




TRAP 

14 


16637 

104162 

032777 

002000 

130202 


BIT 

#2000.3ML.REG*24 

9 

16638 

104170 

001016 




BNE 

20$ 


16639 

104172 

026327 

012264 

000012 


CMP 

PM.SBE . CNT (R3) ,#12 


16640 

104200 

002412 




BIT 

20$ 


16641 

104202 

012746 

011120 



MOV 

#MSG2.-(SP) 

9 

16642 

104206 

012746 

006160 



MOV 

#FMT2.-(SP) 


16643 

104212 

012746 

000002 



MOV 

#2.-(SP) 


16644 

104216 

010600 




MOV 

SP.RO 

; SP,* 

16645 

104220 

104414 




TRAP 

14 


16646 

104222 

062706 

000006 



ADD 

#6.SP 


16647 

104226 

032777 

002000 

130136 

20$: 

BIT 

#2000,3Ml.REG*24 

9 

16648 

104234 

001416 




BEQ 

21$ 


16649 

104236 

026327 

01J264 

000012 


CMP 

PM.SBE. CNT CR3).f 12 


16650 

104244 

002412 




8LT 

21$ 


16651 

104246 

012746 

011120 



MOV 

#MSG2.-(SP> 

9 

16652 

104252 

012746 

006160 



MOV 

#FMT2,-(SP) 


16653 

104256 

012746 

000002 



MOV 

#2,-CSP> 


16654 

104262 

010600 




MOV 

SP.RO 

: SP.* 

16655 

104264 

104414 




TRAP 

14 


16656 

104266 

062706 

000006 



ADD 

#6 .SP 


16657 

104272 

062706 

000010 


21$: 

ADD 

#10. SP 

9 

16658 

104276 

005201 



22$: 

INC 

R1 

; ARRAY 

16659 

104300 

020127 

000017 



CMP 

R1.#17 

; ARRAY,* 

16660 

104304 

003710 




BLE 

19$ 


16661 

104306 

016616 

000056 


23$: 

MOV 

56CSP) , (SP) 

; TRY. TOT.* 

16662 

104312 

012746 

010026 



MOV 

#PHR6,-(SP> 


16665 

104316 

012746 

006446 



MOV 

#FMT7,-(SP> 


16664 

104322 

012746 

000003 



MOV 

#3.-<SP> 


16665 

104326 

010600 




MOV 

SP.RO 

; SP.* 

16666 

104330 

104414 




TRAP 

14 


16667 

104352 

005766 

000064 



TST 

64 (SP) 

; TRY. TOT 


SEQ 0355 

27-Mar-1982 19:24:42 TOPS 
27-Mar- 1982 19:23:44 PA:< 

8493 

8496 

8499 

8501 

8504 

8516 

8518 

8525 

8527 

850? 

8499 

8532 

8535 
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SUMHARV 





16669 




;MLX4 



16670 




# 


END OF PASS SUMMARY 

16671 







16672 

104336 

001425 



8EQ 

26$ 

16673 

104340 

005002 



CLR 

R 2 

16674 

104342 

010403 


24$: 

MOV 

R4 ,R3 

16675 

104344 

060203 



ADD 

R2.R3 

16676 

104346 

006303 



ASl 

R3 

16677 

104350 

016303 

033714 


MOV 

TRIESCR3) ,R3 

16678 

104354 

001412 



6EQ 

25$ 

16679 

104356 

010346 



MOV 

R3.-CSP) 

16680 

104360 

010246 



MOV 

R2.-CSP) 

16681 

104362 

012746 

006534 


MOV 

#FMT9,-<SP) 

16682 

104366 

012746 

000003 


MOV 

#3.-(SP> 

16683 

104372 

010600 



MOV 

SP.RO 

16684 

104374 

104414 



TRAP 

1 4 

16685 

104376 

062706 

000010 


ADD 

#10. SP 

16686 

104402 

005202 


25$: 

INC 

R2 

16687 

104404 

020227 

00001 7 


CMP 

R2.#17 

16688 

104410 

003754 



BLE 

24$ 

16689 

104412 

062706 

000024 

26$: 

ADD 

#24. SP 

16690 

104416 

005205 



INC 

R5 

16691 

1C4420 

020566 

000046 

27$: 

CMP 

R5.46CSP) 

16692 

104424 

002002 



BGE 

28$ 

16693 

104426 

000167 

176520 


JMP 

2$ 

16694 

104432 

005767 

106226 

28$: 

TST 

S8E$. COUNT 

16695 

104436 

003517 



BLE 

31$ 

16696 

104440 

012746 

007066 


MOV 

#CRLF,-(SP> 

16697 

104444 

012746 

000001 


MOV 

#1,-(SP) 

16698 

104450 

010600 



MOV 

SP.RO 

16699 

104452 

104414 



TRAP 

1 4 

16700 

104454 

012716 

005662 


MOV 

#PHR21.(SP) 

16701 

104460 

012746 

007072 


MOV 

#SAY1,-<S P) 

16702 

104464 

012746 

000002 


MOV 

#2,-<SP> 

16703 

104470 

010600 



MOV 

SP.RO 

16704 

104472 

104414 



TRAP 

1 4 

16705 

104474 

012716 

007066 


MOV 

#CRLF.(SP> 

16706 

104500 

012746 

000001 


MOV 

#1,-(SP) 

16707 

104504 

010600 



MOV 

SP.RO 

16708 

104506 

104414 



TRAP 

1 4 

16709 

104510 

012716 

006042 


MOV 

#S8E$HEADER.(SP) 

16710 

104514 

012746 

007072 


MOV 

#SAY1.-(SP) 

16711 

104520 

012746 

000002 


MOV 

#2.-(SP) 

16712 

104524 

010600 



MOV 

SP.RO 

16713 

104526 

104414 



TRAP 

14 

16714 

104530 

016705 

106130 


MOV 

S8E$. COUNT, R5 

16715 

104534 

005002 



CLR 

R 2 

16716 

104536 

000453 



BR 

30$ 

16717 

104540 

010203 


29$: 

MOV 

R2.R3 

16718 

104542 

006303 



ASL 

H3 

16719 

104544 

006303 



ASL 

R3 

16720 

104546 

016346 

011266 


MOV 

S8E.L0G*2(R3) ,-(SP) 

16721 

104552 

062703 

011264 


ADD 

#S8E .L0G.R3 

16722 

104556 

011304 



MOV 

(R3).R4 

16723 

104560 

006204 



AS R 

R4 


SEQ 0356 

27-Mar-1982 19:24:42 TOPS 
27-Mar-1982 19:23:44 PA:< 


; ARRAY 

8538 


8540 

• ARRAY.* 


0 

8544 

; ARRAY,* 


; SP.* 


; ARRAY 
; ARRAY,* 

8538 

• 

8392 

; LUN 

8391 

; LUN.* 

• 

8558 

• 

8561 

; SP.* 

• 

8562 

; SP,* 

B 

8563 

; SP.* 

• 

B 

8564 

; SP.* 


• 

8573 

; INDEX 


; INDEX,* 

8580 
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SUMMARY 





16725 




;MLX4 



16726 




• 


END OF PASS SUMMARY 

16727 







16728 

104562 

006204 



ASP 

R4 

16729 

104564 

006204 



ASP 

R4 

16730 

104566 

006204 



ASR 

R4 

16731 

104570 

006204 



ASR 

R4 

16732 

104572 

006204 



ASR 

R4 

16733 

104574 

042704 

177600 


BIC 

#1 77600, R4 

16734 

104600 

010446 



MOV 

R4.-CSP) 

16735 

1 04602 

111346 



wove 

(R3) ,-(SP? 

16736 

104604 

042716 

177774 


BIC 

#177774.(SP) 

16737 

104610 

111304 



MOVB 

(R3),R4 

16738 

104612 

006204 



ASR 

R4 

16739 

104614 

006204 



ASR 

R4 

16740 

104616 

042704 

177760 


BIC 

#1 77760. R4 

16741 

104622 

010446 



MOV 

R4,-(SP) 

16742 

104624 

0 1 1 304 



MOV 

(R3J.R4 

16743 

104626 

006104 



ROl 

R4 

16744 

104630 

006104 



ROL 

R4 

16746 

104632 

006104 



ROL 

R4 

16746 

104634 

006104 



ROL 

R4 

16747 

104636 

042704 

177770 


BIC 

#1 77770, R4 

16748 

104642 

010446 



MOV 

R4.-CSP) 

16749 

104644 

012746 

005736 


MOV 

#FMT16,-(SP> 

16750 

104650 

012746 

000006 


MOV 

#6.-(SP> 

16751 

104654 

010600 



MOV 

SP.RO 

16752 

104656 

104414 



TRAP 

1 4 

16753 

104660 

062706 

000016 


ADD 

#16, SP 

16754 

104664 

005202 



INC 

R2 

16755 

104666 

020205 


30S: 

CMP 

R2.R5 

16756 

104670 

002723 



BLT 

29$ 

16757 

104672 

062706 

000016 


ADD 

#16, SP 

16758 

104676 

012716 

007066 

31*: 

MOV 

#CRLF,(SP) 

16759 

104702 

012746 

000001 


MOV 

#1,-(SP> 

16760 

104706 

010600 



MOV 

SP.RO 

16761 

104710 

104414 



TRAP 

14 

16762 

104712 

062706 

000042 


ADD 

#42. SP 

16763 

104716 

062706 

000010 

32$: 

ADD 

#10, SP 

16764 

104722 

000207 



RTS 

PC 

16765 







16766 




; Routine Size: 

511 words 

16767 




; Maximum stack depth per invocatic 

16772 







16773 








40 words 


SP,* 

INDEX 

INDEX,* 


SP.* 


SEQ 0357 

27-War- 1982 19:24:42 TOPS 
27-Nar-1982 19:23:44 PA:< 


8574 

8573 


8560 

8585 


8377 

8326 
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16775 

16776 

16777 

16778 

16779 

16780 

16781 

16782 

16783 

16784 

16785 

16786 

16787 

16788 

16789 

16790 

16791 

16792 

16793 

16794 

16795 

16796 
16800 
16801 

16805 

16806 

16807 

16808 

16809 

16810 
16811 
16812 

16813 

16814 

16815 

16816 

16817 

16818 

16819 

16820 
16821 
16822 

16823 

16824 

16825 

16826 

16827 

16828 


MLX4 


8590 

8591 

8592 

8593 

8594 

8595 

8596 

8597 

8598 

8599 

8600 
8601 
8602 

8603 

8604 

8605 


CLEANUP CODING SECTION 

Xsbttl 'CLEANUP CODING SECTION' 

BGNCLN; 

*THE CLEANUP CODING SECTION IS EXECUTED AFTER 
EACH PASS THROUGH THE EXERCISER. 

- » 

EOP.COUNT = .EOP.COUNT ♦ 1; 

If .EOP.COUNT eql 1 

^PRINTB (SAY3, URD3, PHR2, WRD4) 

! 'END QUICK VERIFY PASS' 

elS %RlNT0 (FMT3, URD3. WRD4, .EOP.COUNT); 


2?-'idr-1982 19:24:42 
2 7-Mar- 1982 19:23:44 


i • 


** END PASS XX **' 



8606 

EOP <); 






8607 

return; 






8608 

ENDCLN; 









.SBTTL 

LCLEAN CLEANUP CODING SECTION 


104724 

005267 

125754 

LCLEAN: 

INC 

EOP.COUNT 

a 

104730 

026727 

125750 000001 


CMP 

EOP. COUNT. #1 

■ 

9 

104736 

001015 



BNE 

IS 


104740 

012746 

007212 


MOV 

#WRD4,-(SP> 

9 

104744 

012746 

007730 


MOV 

#PHR2,-(SP) 


104750 

012746 

007206 


MOV 

#WRD3,-(SP) 


104754 

012746 

007112 


MOV 

#SAY3.-(SP) 


104760 

012746 

000004 


MOV 

#4.-<SP) 


104764 

010600 



MOV 

SP.RO 

9 

104766 

104414 



TRAP 

14 


104770 

000414 



BR 

2S 

0 

104772 

016746 

125706 

1 J: 

MOV 

EOP. COUNT, -(SP) 

0 

104776 

012746 

007212 


MOV 

#WRD4,-(SP) 


105002 

012746 

007206 


MOV 

#yRD3,-(SP> 


105006 

012746 

006166 


MOV 

#FMT3.-(SP) 


105012 

012746 

000004 


MOV 

#4,-(SP) 


105016 

010600 



MOV 

SP. RO 

9 

105020 

104414 



TRAP 

1 4 


105022 

004767 

175700 

2$: 

JSR 

PC. EOP 

9 

105026 

062706 

000012 


ADD 

#12, SP 

9 

105032 

000207 



RTS 

PC 



; SP.* 


; SP,* 


Routine Size: 36 words 

Maximum stack depth per invocation: 5 words 


T0PS-20 Btiss-16 V2(212) 
PA:<NEALE>MLX4.BLI.5 (51) 


SEQ 0358 


8596 

8598 

8600 


8598 

8603 


8606 

8589 



004767 177664 

104412 

000207 


CZML8B0 PERFORMANCE EXERCISER 
LCIEAN CLEANUP CODING SECTION 

16837 

16838 

16842 

16843 

16847 105034 

16848 105034 

16849 105040 

16850 105042 

16851 

16852 

16853 

16858 

16859 

16860 
16861 
16862 
16866 

16867 

16868 

16869 

16870 

16871 

16872 

16873 

16874 

16875 

16876 

16877 

16881 105052 

16882 105052 000207 

16883 

16884 


MACRO Mil 13 29-MAR-82 1 


tSCLEAN: 


. S8TTL 

j SR 

TRAP 

RTS 


; Routine Size: 
; Maximum stack 



8609 

LASTAD; 


8610 

BGNSETUP (0); 


8611 

ENDSETUP; 

105044 

105050 

BLSLAS: : .WORD 

105046 

000000 

.WORD 

105050 

000000 

TSFREE: :.W0RD 


105050 

LSLAST== 


000000 

TSPTHV== 


.SBTTL 
SEND. LINK:: 

RTS 

; Routine Size: 


K 12 

3:41 PAGE 340 


LSCLEAN CLEANUP CODING SECTION 

PC .LCIEAN 
12 
PC 

4 words 

depth per invocation: 0 words 


TSFREE 

«T$FREE“<BLSLAS+4»/2> 

0 


BLSLAS+4 

0 


SEND. LINK CLEANUP COOING SECTION 
PC 

1 word 


SEQ 0359 


8607 


8608 
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SEND . L INK CLEANUP CODING SECTION 


16886 

16887 

16888 
16889 

16894 

16895 

16896 

16897 

16898 

16902 

16903 

16904 

16905 

16906 

16907 

16908 

16909 

16910 

16911 

16912 

16913 

16914 

16915 

16916 

16917 

16918 

16919 


8612 end 

8613 

8614 eludom 


000001 


;HIK4 


CLEANUP CODING SECTION 


; Maximum stack depth per invocation: 0 words 


; OTS external 
.GLOBL 
.GLOBL 
. GLOBL 


references 
BLSGT2, $ SAVES, 
SSAVE2. BLSPU2, 
BLSMOD. BLtMUL 


SSAVE4, SSAVE3 
BLSSHF, BLSDIV 


; size: 10337 code ♦ 5852 data words 

; Run Time: 01:43.8 

; Elapsed Time: 02:08.4 
; Memory Used: 161 pages 
; Compilation Complete 

.END 


SEO 0360 

27-Mar-1982 19:24:42 TOPS 

27-Mar-1982 19:23:44 PA:< 


L 


CZML880 PERFORMANCE EXERCISER MACRO Mill 3 
$v«eOL TABLE 


ADR = 000020 G 
ASL>EMB= 000010 
BANK. 034344 
BASE. A 032706 
BIT.NU 012666 
BITO = 000001 G 
BITOO = 000001 G 
BIT01 = 000002 G 
BIT02 = 000004 G 
BIT03 = 000010 G 
BIT04 = 000020 G 
BIT05 = 000040 G 
BIT06 = 000100 G 
8IT07 = 000200 G 
BIT 08 = 000400 G 
BIT09 = 001000 G 
BIT1 = 000002 G 
8IT10 = 002000 G 
B1T11 = 004000 G 
BIT12 = 010000 G 
BIT13 = 020000 G 
BIT14 = 040000 G 
BIT15 = 100000 G 
BIT 2 = 000004 G 

BIT3 = 000010 G 
BIT4 = 000020 G 
BITS = 000040 G 
BIT6 = 0C0100 G 
BIT7 = 000200 G 
BIT8 = 000400 G 
BIT9 = 001000 G 
BLSDIV 005170 G 
BLSGT1 004234 G 
BLSGT2 004356 G 
3LSLAS 105044 G 
81 MOD 005202 G 
BLSMUL 004744 G 
BLSPU1 004520 G 
BIJPU2 004614 G 
BlSSHF 005214 G 
BOARD 034342 
BOE - 000400 G 
BR.LEV 032712 
CAUSE 1= 010460 
CAUS62= 010502 
CAUSE 3= 010526 
CAUSE4= 010602 
CAUSE5= 010656 
CAUSE6= 010710 
CAUSE7= 010734 
CAUSE8= 010756 
CHECK 046000 
CHOOSE 046166 
CLRTBL 034554 
COMP.C 032702 
CONFIG 036002 
CRLF = 007066 


CSAU = 000052 
CSAUT0= 000061 
CS8RK = 000022 
CS8SEG= 000004 
CS8SUB= 000002 
CSCEFG- 000045 
CSCLCK= 000062 
CSCLEA= 000012 
CSCL0S= 0C0035 
CSCLP1= 000006 
CICVEC= 000036 
CSDCLN= 000044 
CSDODU= 000051 
CSDRPT= 000024 
CIDU = 000053 
CSEDIT= 000003 
CSERDF= 000055 
CSERHR= 000056 
C$ERR0= 000060 
CSERSF= 000054 
CSERS0= 000057 
C$ESCA= 000010 
C$ESEG= 000005 
CtESUB= 000003 
CSETST= 000001 
C$EXIT= 000032 
C$GETB= 000026 
CSGETU- 000027 
CSGMAN= 000043 
C$GPHR= 000042 
CSGPL0= 000030 
CSGPRI= 000040 
CSINIT= 000011 
CSINLP= 000020 
C$MANI= 000050 
C$MEM = 000031 
CSMSG = 000023 
C$0PEN= 000034 
CSPNTB= 000014 
C$PNTF= 000017 
C$PNTS= 000016 
CSPNTX= 000015 
CSQIO = 000377 
CSRDBU= 000007 
C$REFG= 000047 
CSRESE= 000033 
CSREVI= 000003 
CSRFLA= 000021 
CSRPT = 000025 
C$SEFG= 000046 
CSSPRI= 000041 
C$SVEC= 000037 
C$TPRI= 000013 
DATA. C 032700 
DECODE 037176 
DFPTBL 002210 G 
DIA6MC= 000000 
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341-1 




DIVMOD 005006 


FSEND = 000041 

ISHRD = 

000041 


DOUBLE 044326 


FSHARD= 000004 

ISINI T= 

000041 


DRIVE. 034442 

G 

FSHU = 000013 

ISMOD = 

000041 


DROPNE 002234 

G 

FSINIT= 000006 

ISMSG = 

000041 


DROPT. 034444 

G 

FSJHP = 000050 

ISPROT= 

000040 


DR0P1 002236 

G 

FSMOD = 000000 

ISPTAB= 

00004 ' 


DR0P2 002240 

G 

FSMSG = 000011 

I SPUR = 

000041 


DR0P3 002242 

G 

FSPROTr 000021 

ISRPT = 

000041 


DR0P4 002244 

G 

F SPUR = 000017 

ISSEG = 

000041 


DR0P5 002250 

G 

FSRPT = 000012 

ISSETU= 

000041 


ECCDIS 002254 

G 

FSSEG = 000003 

ISSFT = 

000041 


EFNS21 002262 

G 

FSSOF T= 000005 

ISSRV = 

000041 


EF . CON= 000036 

G 

FSSRV = 000010 

issue = 

000041 


EF.NEU= 000035 

G 

FSSU8 = 000002 

1STST = 

000041 


EF.PWR= 000034 

G 

FSSW = 000014 

I.AM.D 

034336 


EF.RES= 000037 

G 

FS7EST= 000001 

JSJMP = 

000167 


EF.STA= 000040 

G 

GEN1 040732 

LAU 

005650 


END.R8= 032670 


GEN2 041432 

LAUTO 

005504 


END.U8= 022670 


GEN3 041466 

LCLEAN 

104724 


EOP 102726 

G 

GEN4 041564 

LDU 

005516 


EOPSUM 002256 

G 

GEN5 041620 

LIMIT 

002222 

G 

EOP. CO 032704 


GETCNT 041106 

UNIT 

040474 


ERRBLK 002200 G 

GET. UR 047176 

LOE = 

040000 

G 

ERRMSG 002176 

G 

GSCNT0= 000200 

LOT = 

000010 

G 

ERRN8R 002174 

G 

GSDELM= 000372 

LOU.SE 

034460 

G 

ERROUT 002260 G 

GSDISP= 000003 

lrpt 

005466 


ERRTYP 002172 

G 

GSEXCP= 000400 

LSECT 

002226 

G 

EVL = 000004 

G 

GSHILJ= 000002 

LSACP 

002110 

G 

ESEND = 002100 


GSL0LI= 000001 

LSAPT 

002036 

G 

ESL0AD= 000035 


GSNO = 000000 

LSAU 

005652 

G 

FILLER 041266 


GS0FFS= 000400 

LSAUT 

002070 

G 

FMT1A = 006126 


GSOFSI= 000376 

LSAUTO 

005506 

G 

FMT1B = 006142 


GSPRMA= 000001 

LSCCP 

002106 

G 

FMT10A= 006564 


GSPRMD= 000002 

LSCLEA 

105034 

G 

FMT10B= 006640 


GSPRML= 000000 

LSCO 

002032 

G 

FMT11 = 006654 


GSRADA= 000140 

LSDEPO 

002011 

G 

FMT12A= 006710 


GSRADB= 000000 

LSDESC 

002130 

G 

FMT12B= 006756 


GSRADD* 000040 

LSDESP 

002076 

G 

FMT13 = 007024 


GSRADL= 000120 

LSDEVP 

002060 

G 

FMT14 = 007046 


GSRADO= 000020 

LSDISP 

002204 

G 

FMT15 = 007060 


GSXFER= 000004 

LSDLY 

002116 

G 

FMT16 = 005736 


GSYES = 000010 

LSDTP 

002040 

G 

FMT2 = 006160 


HARDS 033314 

LSDTYP 

002034 

G 

FMT3 - 006166 


HELP = 000000 

LSDU 

005640 

G 

FMT4A = 006216 


HOE = 100000 G 

LSDUT 

002072 

G 

FMT4B = 006252 


IBE = 010000 G 

LSDVTY 

002122 

G 

FMT4C = 006270 


I DU = 000040 G 

LSEF 

002052 

G 

FMT5 = 006320 


IER = 020000 G 

LSENVI 

002044 

G 

FMT6 = 006376 


INIT.A 035206 

LSERRT 

002172 

G 

FMT7 = 006446 


INTEGR 047232 

LSETP 

002102 

G 

FMT8 = 006466 


ISOLAT 037332 

LSEXP1 

002046 

G 

FMT9 = 006534 


I SR = 000100 G 

LSEXP4 

002064 

G 

F$AU = 000015 


IXE = 004000 G 

LSEXP5 

002066 

G 

F$AUT0= 000020 


ISAU = 000041 

LSHARD 

002266 

G 

FSB GN = 000040 


ISAUT0= 000041 

LSHIME 

002120 

G 

F$CLEA= 000007 


ISCLN = 000041 

LSHPCP 

002016 

G 

FSDU = 000016 


ISDU = 000041 

LSHPTP 

002022 

G 
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LSHU 002210 G 

MSG4 = 011202 

P.AAD 

006126 

P.ACI 

007500 

P.AEN 

011070 

LSICP 3021 04 G 

MSG5 = 011216 

P.AAE 

006142 

P.ACJ 

007504 

P.AEO 

011120 

LSINIT 040722 G 

NUM.DR 034456 G 

P.AAF 

006160 

P.ACX 

007510 

P.AEP 

011166 

LSLADF 002026 G 

QNEFIL= 000001 

P.AAG 

006166 

P.ACL 

007514 

P.AEO 

011202 

LtLAST= 105050 G 

ONLY 002232 G 

P.AAH 

006216 

P. ACM 

007520 

P.AER 

011216 

LSLOAD 002100 G 

OPT1 051460 

P.AAI 

006252 

P.ACN 

007524 

QHl 

002332 

LSLUN 002074 G 

0PT2 054054 

P.AAJ 

006270 

P.ACO 

007530 

QH2 

002351 

L*MREV 002050 G 

0PT3 060052 

P.AAK 

006320 

P.ACP 

007534 

QH3 

002374 

LSNAME 002000 G 

OPT4 062444 

P.AAL 

006376 

P.ACO 

007542 

QH4 

002425 

LSPR10 002042 G 

OPT 5 102272 

P.AAM 

006446 

P.ACR 

007550 

QS1 

002664 

LtPROT 004126 G 

0$APTS= 000001 

P.AAN 

006466 

P.ACS 

007554 

QS10 

003534 

LtPRT 002112 G 

0$AU = 000001 

P.AAO 

006534 

P.ACT 

007560 

0 S 1 1 

003554 

LtREPP 002062 G 

0S8GNR= 000001 

P.AAP 

006564 

P.ACL) 

007564 

QS12 

003637 

LlREV 002010 G 

0S8GNS= 000001 

P.AAQ 

006640 

P.ACV 

007570 

QS13 

003657 

LtRPT 005474 G 

OJDU = 000001 

P. AAR 

006654 

P.ACW 

007574 

QS14 

003724 

LtSOFT 002450 G 

0$ERRT= 000001 

P.AAS 

0067,0 

P.ACX 

007626 

QS15 

003763 

LtSPC 002056 G 

0SGNSU= 000001 

P.AAT 

006756 

P.ACY 

007634 

QS16 

004030 

LSSPCP 002020 G 

0$P0IN= 000001 

P.AAU 

007024 

P.ACZ 

007642 

QS17 

004066 

LSSPTP 002024 G 

OSSE TU= 000001 

P. AAV 

007046 

P.ADA 

007650 

QS2 

002732 

LSSTA 002030 G 

PATTBL 034520 G 

P.AAW 

007060 

P.ADB 

007656 

QS3 

0^3007 

L$SW 002222 G 

PATTER 032676 

P.AAX 

007066 

P.ADC 

007664 

QS4 

003047 

LtTEST 002114 G 

PHR1 = 007714 

P.AAY 

007072 

P.AOD 

007672 

QS5 

003107 

LST1ML 002014 G 

PHR10 = 010120 

P.AAZ 

007100 

P.ADE 

007700 

QS6 

003147 

LtUNIT 002012 G 

PHR11 = 010140 

P.ABA 

007112 

P.ADF 

007706 

OS 7 

003454 

Li 0000 002220 

PHR12 = 010202 

P.AB8 

007130 

P.ADG 

007714 

0S8 

003474 

LI 0001 002264 

PHR13 = 010240 

P.ABC 

007152 

P.ADH 

007730 

QS9 

003514 

Li 0002 002332 

PHR14 = 010266 

P.ABD 

007200 

P.ADI 

007746 

QUICK 

032674 

LI 0003 002664 

PHR15 = 010304 

P.ABE 

007206 

P.ADJ 

007770 

RANDOM 

005464 G 

MARPAT 002246 G 

PHR16 = 010322 

P.ABF 

007212 

P.ADK 

010004 

RAND1 

070540 

MLB10 = 007472 

PHR17 = 010342 

P.ABG 

007220 

P.ADL 

010026 

RAND2 

073124 

MLB11 = 007500 

PHR18 = 010366 

P.ABH 

007230 

P.ADM 

010050 

RAND3 

075444 

ML812 = 007504 

PHR19 = 010410 

P.ABI 

007240 

P.ADN 

010066 

RAND4 

100006 

MLB 13 = 007510 

PHR 2 = 007730 

P.ABJ 

007246 

P.ADO 

010100 

RANGE 

002224 G 

ML814 = 007514 

PHR20 = 010430 

P.ABK 

007256 

P.ADP 

010120 

RBUFF 

022670 

MLB15 = 007520 

PHR21 = 005662 

P.ABL 

007264 

P.ADO 

010140 

RCBUFFs 

023670 

ML816 = 007524 

PHR3 = 007746 

P.A8M 

007272 

P.ADR 

010202 

RDBUFF= 

022670 

MLB17 = 007530 

PHR4 = 007770 

P.ABH 

007300 

P.ADS 

010240 

RD.COU 

034322 

MLB18 = 007534 

PHR 5 = 010004 

P.A80 

007312 

P.ADT 

010266 

RD.MIL 

034326 

MLB19 = 007542 

PHR6 = 010026 

P.ABP 

007322 

P.ADU 

010304 

RD.THO 

034324 

MLB2 = 007430 

PHR 7 = 010050 

P.A8Q 

007332 

P.ADV 

010322 

READ 

045612 

ML820 = 007550 

PHR 8 = 010066 

P.ABR 

007336 

P.ADU 

010342 

REFRES 

002252 G 

MLB21 = 007554 

PHR9 = 010100 

P.ABS 

007344 

P.ADX 

010366 

RETRY 

046224 

MLB22 = 007560 

PM.SBE 012264 

P.ABT 

007354 

P.ADY 

010410 

RETRYI 

034340 

MLB23 = 007564 

PNT = 001000 G 

P.ABU 

007370 

P.ADZ 

010430 

RE2 

005362 

MLB24 = 007570 

PRI = 002000 G 

P.ABV 

007400 

P.AEA 

010444 

RE3 

005360 

MLB3 = 007434 

PRIOO = 000000 G 

P.ABW 

007412 

P.AE3 

010446 

RE4 

005356 

MLB4 = 007440 

PRI01 = 000040 G 

P.ABX 

007416 

P.AEC 

010450 

RN 

005370 G 

MLB 5 = 007444 

PRI 02 = 000100 G 

P.ABY 

007424 

P.AED 

010454' 

RNDSEC 

070240 

MLB6 = 007450 

PRI03 = 000140 G 

P.A8Z 

007430 

P.AEE 

010460 

RNDU 

070336 

MLB7 = 007454 

PRI 04 = 000200 G 

P.ACA 

007434 

P.AEF 

010502 

RNDUC 

070204 

MLBB - 007460 

PRI05 = 000240 G 

P.ACB 

007440 

P.AEG 

010526 

RPTR 

032672 

HL89 = 007464 

PR I 06 = 000300 G 

P.ACC 

007444 

P.AEH 

010602 

RTNO = 

007574 

ML. REG 034346 G 

PRI 07 = 000340 G 

P.ACD 

007450 

P.AEI 

010656 

RTNl = 

007626 

MSGO = 011002 

PTABLE 034422 G 

P.ACE 

007454 

P.AEJ 

010710 

RTN2 = 

007634 

MSG1 = 011070 

P.AAA 005662 

P.ACF 

007460 

P.AEK 

010734 

RTN3 = 

007642 

MSG2 = 011120 

P.AA8 005736 

P.ACG 

007464 

P.AEL 

010756 

RTN4 = 

007650 

MSG3 = 011166 

P.AAC 006042 

P.ACH 

007472 

P.AEM 

011002 

RTN5 = 

007656 
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RTN5A = 

RTS5B = 

RTN5C = 

RTN5D = 

SAYUHO 

SAYl = 

SAY? = 

SAY3 = 

SAY4 = 

SAY5 = 

SBESHE= 

SBE$.C 

SBE.LO 

SEED1 

SEED2 

SEED3 

SELPAT 

SERVIC 

SET.PT 

SFPTBL 

SOFTS 

START. 

SVCGBL= 

SVC INS= 


007664 

007672 

007700 

007706 

035524 

007072 

007100 

007112 

007130 

007152 

006042 

012664 

011264 

005456 G 

005460 G 

005462 G 

041066 

034544 G 

047132 

002222 G 

032714 

044424 

000001 

000001 


SVCSUB- 

SVCTAG= 

SVCT5T= 

SVSERR 

S$LSYM= 

TOP.SE 

TRIES 

TRTOO = 

TRT01 = 

TRT10 = 

TRT11 = 

TSECT 

T$ARGC= 

T$CODE= 

T$ERRN= 

T$EXCP= 

TSFREE 

T$GMAN= 

T$HILI= 

TSLAST= 

T$LOLI= 

T$LSYM- 

T$NEST= 

TSNSO = 


000001 
000001 
000001 
041710 
010000 
034500 G 
033714 
010444 
010446 
010450 
010454 
002230 G 
000002 
020130 
000000 
000000 
105050 G 
000000 
000012 
000000 
000001 
010000 
177777 
000000 


TJNS1 = 
T$PTHV= 
TSPTNU= 
T$SAVL= 
T$SEGL= 
T$SU8N= 
T$TAGL= 
TSTAGN= 
T$TEMP= 
T$TEST= 
T$TSTM= 
T$TSTS= 
T$$HAR= 
T$SHy = 
T$$PRO= 
T$$SOF= 
TSSSU = 
T1 

UAM = 

UP.HAR 

UP.RD. 

UP.SOF 

UP.UC. 

UP. UR. 


000021 
000000 G 
000000 
177777 
177777 
000000 
177777 
010005 
000000 
000000 
177777 
000000 
010002 
010000 
010004 
010003 
010001 
102712 G 
000200 G 
037422 
045240 
040104 
045332 
045146 


VEC 

WAITER 
W8UFF 
UC8UFF= 
UC.COU 
UC.MIL 
UC.THO 
WDBUFF= 
WHY. DR 
UPTR 
URDU = 
URD15 = 
URD16 = 
URD17 = 
URD18 = 
URD19 = 
URD2 = 
URD20 = 
URD21 = 
URD24 = 
URD25 = 
URD3 = 
URD34 = 
URD35 = 


032710 

044420 

012670 

013670 

034330 

034334 

034332 

012670 

034446 G 

032670 

007240 

007246 

007256 

007264 

007272 

007300 

007200 

007312 

007322 

007332 

007336 

007206 

007344 

007354 


. ABS. 105054 000 

000000 001 

ERRORS DETECTED: 0 

VIRTUAL MEMORY USED: 31919 UORDS^ ( 125 PAGES) 

DYNAMIC MEMORY: 21558 WORDS ( 82 PAGES) 

CZMLB8?8IN?CZMLB8/CR/-SP=SVC/ML.CZMLBB.D0C.MLX2.0TS.RAND0M.MLX3.MLX4 


WRD36 = 007370 
WRD37 = 007400 
URD38 = 007412 
URD4 = 007212 
WRD40 = 007416 
URD41 = 007424 
URD6 = 007220 
URD7 = 007230 
WRITE 045424 
UR.COU 034314 
WR.MIL 034320 
WR.THO 034316 
XSALWA= 000000 
X$FALS= 000040 
X$OFFS= 000400 
XSTRUE' 000020 
SEND.L 105052 G 
SPATCH 004134 G 
SSAVE2 005262 G 
SSAVE3 005276 G 
$SAVE4 005314 G 
SSAVE5 005334 G 
$T1 102536 
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SYMBOL 

SYMBOL 

ADR 

ASSEMB 

BANK 

BASE. A 

BIT.NU 

BITO 

BITOO 

BITOI 

8 1 T 02 

BIT03 

BIT04 

BIT05 

BIT06 

BIT07 

RIT08 

BIT09 

BIT1 

BIT10 

BIT11 

BIT12 

Bi T13 

BIT14 

BIT15 

8IT2 

B1T3 

BI T4 

BIT5 

BIT6 

BIT7 

BIT8 

BI T9 

BLSDIV 

BLJGT1 

BL*GT2 

8LSLAS 

8LSM0D 

BLSMUL 

BLSPU1 

BL*PU2 

BLSSHF 


BOARD 
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PAGE 1 
CREF 


C «3 


000020 

G 

#83-1773 




000010 


6-13 

6-13 



034344 


#82-1685 

*98-2978 

*99-2991 

100-3052 



*155-6383 




032706 


#81-1650 

•88-2289 

89-2338 

97-2909 

012666 


#81-1637 

*99-3005 

103-3226 

104-3290 

000001 

G 

#83-1754 




000001 

G 

#83-1744 




000002 

G 

#83-1743 




000004 

G 

#83-1742 




000010 

G 

#83-1741 




000020 

G 

#83-1740 




000040 

G 

#83-1739 




000100 

G 

#83-1738 




000200 

G 

#83-1737 




000400 

G 

#83-1736 




001000 

G 

#83-1735 




000002 

G 

#83-1753 




002000 

G 

#83-1734 




004000 

G 

#83-1733 




010000 

G 

#83-1732 




020000 

G 

#83-1731 




040000 

G 

#83-1730 




100000 

G 

#83-1729 




000004 

G 

#83-1752 




000010 

G 

#83-1751 




000020 

G 

#83-1750 




000040 

G 

#83-1749 




000100 

G 

#83-1748 




000200 

G 

#83-1747 




000400 

G 

#83-1746 




001000 

G 

#83-1745 




005170 

G 

#37-1170 

185-8022 

205-9118 

209-9381 



313-15422 

341-16905 



004234 

G 

#13-169 




004356 

G 

#18-384 

164-6887 

180-7728 

200-8836 



281-13705 

297-14560 

322-15915 

333-16485 

105044 

G 

#340-16868 

340-16869 

340-16873 


005202 

G 

#38-1201 

118-4116 

261-12206 

263-12297 

004744 

G 

#34-1022 

95-2787 

341-16906 


004520 

G 

#23-592 




004614 

G 

#29-829 

47-220 

47-231 

50-339 



341-16905 




005214 

G 

13-181 

13-184 

13-188 

13-192 



19-438 

23-595 

23-599 

23-605 



#39-1236 

88-2294 

341-16905 


034342 


#82-1684 

*99-2996 

100-3053 

104-3246 



155-6379 

*155-6382 

168-7119 

169-7140 



',87-8125 

204-9088 

205-9109 

209-9350 



227-10308 

227-10325 

247-11460 

248-11481 



259-12142 

273-13106 

273-13123 

273-13216 



302-14838 

302-14855 

304-14946 

304-14963 


SEQ 0364 


103-3237 105-3302 108-3485 109-3530 155-6371 


108-3474 109-3522 


225-10222 273-13132 282-13730 297-14575 2 98-14593 


205-9143 

341-16904 


220-9931 242-11178 265-12395 273-12846 


265-12380 265-12404 341-16906 

85-2133 85*2140 111-3672 112-3685 118-4112 


14-217 

24-632 

104-3271 

171-7267 

209-9367 

252-11739 

273-13233 

318-15671 


19-406 

29-838 

105-3306 

171-7284 

211-9467 

253-11760 

286-13980 

318-15688 


19-409 

29-842 

108-3490 

185-7996 

211-9484 

257-12018 

287-14001 

319-15773 


19-413 

29-848 

109-3534 

185-8013 

225-10196 

258-12039 

288-14085 

320-15794 


19-417 

30-880 

155-6370 
187-8108 
225-10213 
259-12125 
289-1 A1 06 



0 


, CZMLBB 
SYM80L 
SYMBOL 
80E 

BR.LEV 
CAUSE 1 
CAUSE2 
CAUSE3 
CAUSED 
CAUSE5 
CAUSE6 
f AUSE7 
CAUSE8 
CHECK 


CHOOSE 

CLRT8L 
COMP. C 
CONFIG 
CRLF 

CSAU 

CSAUTO 

CWRK 

C5BSEG 

CS8SU8 

CSCEFG 

CtCLCK 

CSClEA 

CSCLOS 

CSCIP1 

CSCVEC 

CSDCLN 

CSDODU 

C$DRPT 

CSDU 

CSEDIT 

CSERDF 

CSERHR 

C$E RRO 

CSERSF 

CSERSO 

CSESCA 

CSESEG 

CSESUB 

C$ETST 

CSEXIT 

CSGETB 

CSGETW 

CSGMAN 

CSGPHR 

CtGPLO 

CfGPRI 


CREATED BY 
CROSS REFERENCE 
VALUE 

= 000400 G 
032712 
= 010460 
= 01050? 

= 010526 
= 010602 
= 010656 
= 010710 
= 010734 
= 010756 
046000 


046166 
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034554 

032702 

036002 

007066 

000052 

000061 

000022 

000004 

000002 

000045 

000062 

000012 

000035 

000006 

000036 

000044 

000051 

000024 

000053 

000003 

000055 

000056 

000060 

000054 

000057 

000010 

000005 

000003 

000001 

000032 

000026 

000027 

000043 

000042 

000030 

000040 


REFERENCES 

#83-1777 

#81-1653 

#83-1905 

#83-1906 

#83-1907 

#83-1908 

#83-1909 

#83-1910 

#83-1911 

#83-1912 

#147-5961 

201-8923 

302-14809 

#149-6052 

283-13797 

#84-2078 

#81-1646 

#93-2703 

#83-1814 

338-16758 

#6-13 

#6-13 

#6-13 

#6-13 

#6-13 

#6-13 

#6-13 

#6-13 

#6-13 

#6-13 

#6-13 

#6-13 

#6-13 

#6-13 

#6-13 

#6-13 

#6-13 

#6-13 

#6-13 

#6-13 

#6-13 

#6-13 

#6-13 

#6-13 

#6-13 

#6-13 

#6-13 

#6-13 

#6-13 

#6-13 

#6-13 

#6-13 


PAGE 2 
CREF 


*88-2291 

96-2733 

94-2756 

96-2831 

334-16527 

334-16535 

334-16543 

334- 16551 

335- 16563 
149-6059 
206-9185 
315-15506 
181-7804 
299-14655 

111- 3644 
*116-3994 

112- 3678 
88-2301 


88-2292 

333- 16499 

334- 16511 

96-2858 334-16519 


153-6265 154-6301 

222-10026 244-11290 

201-8905 2 06-9166 

314-15484 

118-4102 

89-2330 154-6342 
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SYMBOL 

CROSS REFERENCE 



CR EF 

SYMBOL 

VALUE 


REFERENCES 




CllNIT 

51 

000011 


#6-13 




CtINLP 

z 

000020 


#6-13 




CSMAN1 

s 

000050 


#6-13 




CSMEM 

z 

001)031 


#6-13 




CSMS6 

z 

000023 


#6-13 




CSOPEN 

= 

000034 


#6-13 




CSPNTB 

r 

000014 


#6-15 




CSPNTF 

z 

000017 


#6-13 




CSPNTS 

z 

000016 


#6-13 




CSPNTX 

z 

000015 


#6-13 




CSQ10 

r 

000377 


#6-13 




C1RDBU 

2 

000007 


#6-13 




CSREFG 

= 

000047 


#6-13 




CtRESE 

Z 

000033 


#6-13 

#6-13 



CSREVI 

r 

000003 


#6-13 

6-65 



C$RFLA 

s 

000021 


#6-13 




CSRPT 

r 

000025 


#6-13 




CSSFFG 

r 

000046 


#6-13 




CSSPRI 

2 

000041 


#6-13 




CSSVEC 

r 

000037 


#6-13 




CSTPRI 

z 

000013 


#6-13 




OATA.C 


032700 


#81-1644 

*116-3993 

118-4104 


DECODE 


037176 


#98-2972 

100-3049 

155-6373 


DF PT8L 


002210 

G 

#7-117 




DIAGMC 

r 

000000 


6—13 

6—13 



DIVMOD 


005006 


#35-1091 

37-1171 

38-1202 


DOUBLE 


044326 


#133-5198 

166-6966 

182-7835 

201-8931 





273-12948 

284-13828 

299-14682 

315-15515 

DRIVE. 


034442 

s 

46-201 

47-214 

#82-1692 

85-2128 





220-9925 

242-11172 

265-12389 

273-12840 

DROPNE 


002234 

G 

#8-160 

83-1723 

85-2146 


DROPT. 


034444 

G 

46-201 

47-225 

#82-1695 

85-2135 

DROP1 


002236 

G 

#8-161 

83-1723 

*85-2148 

325-16054 

DROP2 


002240 

G 

#8-162 

83-1724 

*85-2149 

325-16057 

DROP3 


002242 

G 

#8-163 

83-1724 

*85-2150 

325-16060 

DROP4 


002244 

G 

#8-164 

83-1724 

*85-2151 

325-16065 

DROP 5 


002250 

G 

#8-166 

83-1724 

*85-2152 

325-16068 

ECCDIS 


002254 

G 

#8-169 

83-1725 

88-2296 

131-4772 

EFNS21 


002262 

G 

#8-192 

83-1722 

185-8027 

210-9390 





318-15697 




EF .CON 

z 

000036 

G 

#83-1757 




ef.new 

z 

000035 

G 

#83-1758 




EF.PWR 

z 

000034 

G 

#83-1759 




EF .RES 

z 

000037 

G 

#83-1756 




EF.STA 

z 

000040 

G 

#83-1755 




END.RB 

z 

032670 


#83-1790 




END.W8 

• 

022670 


#83-1789 

156-6439 



EOP 


102726 

G 

44-31 

44-39 

#332-16405 

339-16823 

E OP SUM 


002256 

G 

#8-188 

83-1725 

332-16407 


EOP. CO 


032704 


#81-1648 

*84-2101 

*339-16805 

339-16806 

ERRBLK 


002200 

G 

#7-94 




ERRMSG 


002176 

G 

#7-94 







13 


SEQ 0366 


206-9193 222-10035 244-11299 249-11578 254-11857 

111-3653 164-6881 180-7722 200-8830 205-9137 

281-13699 297-14554 322-15909 

333-16479 


131-4807 131-4858 131-4956 138-5458 , „ A 

225-10227 258-12048 273-13137 287-14008 303-14869 


339-16816 
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SYMBOL 

CROSS REFERENCE 



CREF 

SYMBOL 

VALUE 


REFERENCES 




ERRNBR 


002174 

G 

#7-94 




ERROUT 


002260 

G 

#8-190 

83-1725 

100-3050 

131-4818 





154-6334 

155-6358 

167-7059 

168-7112 





171-7277 

184-7936 

185-7989 

185-7999 





203-9028 

204-9081 

204-9091 

204-9098 





211-9460 

211-9470 

211-9477 

224-10136 





227-10311 

227-10318 

246-11400 

247-11453 





252-11749 

256-11958 

257-12011 

257-12021 





273-13047 

273-13099 

273-13109 

273-13116 





286-13973 

286-13983 

287-13994 

287-14025 





302-14841 

302-14848 

303-14886 

304-14939 





318-15681 

318-15713 

319-15766 

319-15776 

ERRTYP 


002172 

G 

#7-94 




EVL 

£ 

000004 

G 

#83-1771 




EJEND 

z 

002100 


#6-13 




EJLOAD 

3T 

000035 


#6-13 

6-65 



FILLER 


041266 


#118-4094 

120-4178 

123-4315 


FMT1A 

z. 

006126 


#83-1 794 

199-8804 



FMT1B 

s 

006142 


#83-1795 

199-8813 



FMT10A 

- 

006564 


#83-1806 

100-3057 



FMT10B 

r 

006640 


#83-1807 

168-7074 

170-7218 

184-7947 





226-10259 

246-11411 

251-11690 

256-11969 





301-14789 

303-14897 

317-15622 

319-15728 

FMT11 

r 

006654 


#83-1808 

96-2840 

96-2867 


FMT12A 

z 

006710 


#83-1809 

166-6979 

182-7848 

202-8948 





273-12961 

284-13841 

300-14699 

315-15528 

FMT12B 

2 

006756 


#83-1810 

166-6986 

182-7855 

202-8955 





273-12968 

284-13848 

300-14706 

315-15535 

FMT13 

- 

007024 


#83-1811 

104-3280 



FMTI4 

r 

007046 


#83-1812 

332-16430 

332-16436 

332-16442 

FMT15 

•5 

007060 


#83-1813 

131-4832 

131-4840 

131-4851 





131-4936 

131-4946 

131-4959 

131-4967 





131-5022 

131-5030 

131-5038 

131-5046 

FMT16 


005736 


#83-1792 

338-16749 



FMT2 

- 

006160 


#83-1796 

94-2734 

94-2757 

96-2832 





334-16504 

334-16512 

334-16520 

334-16528 





336-16652 




FMT3 

r 

006166 


#83-1797 

339-16819 



FMT4A 

r 

006216 


#83-1798 

90-2439 

94-2723 

333-16467 

FMT4B 

- 

006252 


#83-1799 

90-2453 

97-2911 


FMT4C 


006270 


#83-1800 

90-2463 



FMT5 

z 

006320 


#83-1801 

97-2883 



FMT6 

z 

006376 


#83-1802 

139-5500 

144-5796 

146-5894 

FMT7 

r 

006446 


#83-1803 

335-16591 

336-16619 

336-16663 

FMT8 

2 

006466 


#83-1804 

97-2905 



FMT9 

z 

006534 


#83-1805 

335-16605 

336-16633 

337-16681 


= 

00001 S 


#6-13 




FJAUTO 


000020 


#6-13 




F$8GN 

z 

000040 


#6-13 

6-39 

8-259 

8-302 

FSCLEA 

z 

000007 


#6-13 




F$0U 

z 

000016 


#6-13 




F SEND 

z 

000041 


#6-13 

6-13 

6-13 

6-13 


SEQ 0367 


131-5100 

169-7126 

185-8006 

208-9290 

224-10185 

247-11463 

257-12028 

273-13157 

288-14078 

304-14949 

320-15787 

144-5788 

169-7133 

186-8048 

209-9343 

225-10199 

247-11470 

258-12065 

273-13209 

288-14088 

304-14956 

146-5886 

170-7207 

187-8101 

209-9353 

225-10206 

251-11679 

259-12118 

273-13219 

288-14095 

316-15607 

148-5984 

171-7260 

18^-8111 

209-9360 

226-10248 

252-11732 

259-12128 

273-13226 

301-14778 

317-15660 

153-6252 

171-7270 

187-8118 

210-9407 

226-10297 

252-11742 

259-12135 

285-13920 

302-14831 

318-15674 

186-8059 

258-12076 

203-9039 

273-13058 

208-9301 

273-13168 

210-9418 

285-13931 

224-10147 

287-14036 

206-9206 

222-10048 

245-11316 

250-11595 

255-11874 

206-9213 

222-10055 

245-11323 

250-11602 

255-11881 

131-4861 

131-4975 

131-5056 

131-4871 

131-4985 

131-5067 

131-4879 

131-4993 

131-5075 

131-4920 

131-5003 

131-4928 

131-5014 

96-2859 

334-16536 

242-11190 

334-16544 

244-11265 

334-16552 

249-11544 

335-16564 

254-11823 

336-16642 

148-5992 





9-379 

9-411 




6-13 

6-13 

6-13 

6-13 

6-13 


G 13 


CZMLB8 

CREATED BY 
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SYMBOL 

CROSS REFERENCE 



CREF 






SYMBOL 

value 

REFERENCES 











6-13 

6-13 

6-13 

6-13 

6-13 

6-13 

6-13 

6-13 

6-39 



8-277 

8-339 

9-411 







f SHARD 

= OOOOOA 

#6-13 

8-259 

8-277 

8-314 

8-316 

8-319 

8-322 

8-324 

8-329 

FtHU 

= 000013 

#6-13 

7-117 

7-134 







FS1NIT 

= 000006 

#6-13 









FtJMP 

= 000050 

#6-13 









FIMOD 

= 000000 

#6-13 

6-39 

9-411 







FSMSG 

= 000011 

#6-13 









FSPROT 

- 000021 

#6-13 

9-379 

9-385 







FJPWR 

- 000017 

#6-13 









F$RPT 

= 000012 

#6-13 









FtSEG 

= 000003 

#6-13 









FJSOFT 

= 000005 

#6-13 

8-302 

8-314 

8-316 

8-319 

8-322 

8-324 

8-329 

8-339 

FtSRV 

= 000010 

#6-13 









FSSUB 

= 000002 

#6-13 









FSSU 

= 00001 A 

#6-13 

8-143 

8-196 







FSTEST 

= 000001 

#6-13 









GEN1 

0A0732 

#114-3793 

180-7743 








GEN2 

0A1A32 

#120-4173 

199-8818 








GEN3 

0A1A66 

#121-4241 

164-6873 

220-9917 







GENA 

0A156A 

#123-4310 

242-11156 

242-11160 







GEN5 

0A1620 

#125-4371 

273-12832 

281-13694 

297-14549 

313-15397 





GETCNT 

0A1106 

#116-3959 

120-4174 

123-4311 







GET.WR 

0A7176 

#157-6486 

165-6903 

180-7746 

200-8850 

205-9158 

220-9946 

273-12861 



GtCNTO 

= 000200 

#6-13 









GtDELM 

= 000372 

#6-13 









GSDISP 

= 000003 

#6-13 









GJEXCP 

= 000<.00 

#6-13 









GSHILI 

= 000002 

#6-13 









GSLOLI 

= 000001 

#6-13 









GSNO 

= 000000 

#6-13 









GSOFFS 

= OOOAOO 

#6-13 

8-272 

8-273 

8-27A 

8-275 

8-313 

8-315 

8-317 

8-318 



8-320 

8-321 

8-323 

8-325 

8-326 

8-327 

8-328 

8-330 

8-331 



8-332 

8-333 

8-334 

8-335 

8-336 





GSOFSI 

= 000376 

#6-13 

8-272 

8-273 

8-274 

8-275 

8-313 

8-315 

8-317 

8-318 



8-320 

8-321 

8-323 

8-325 

8-326 

8-327 

8-328 

8-330 

8-331 



8-332 

8-333 

8-334 

8-335 

8-336 





GSPRMA 

= 000001 

#6-13 

8-272 

8-273 







GSPRMD 

= 000002 

#6-13 

8-274 

8-275 

8-317 

8-318 

8-320 

8-323 

8-330 


GSPRML 

= 000000 

#6-13 

8-313 

8-315 

8-321 

8-325 

8-326 

8-327 

8-328 

8-331 



8-332 

8-333 

8-334 

8-335 

8-336 





GSRADA 

= 0001A0 

#6-13 









GSRADB 

= 000000 

#6-13 









GSRAOD 

= OOOOAO 

#6-13 

8-320 

8-323 

8-330 






GtRADL 

= 000120 

#6-13 

8-313 

8-315 

8-321 

8-325 

8-326 

8-327 

8-328 

8-331 



8-332 

8-333 

8-334 

8-335 

8-336 





GJRAOO 

= 000020 

#6-13 

8-272 

8-273 

8-274 

8-275 

8-317 

8-318 



GSXFER 

= OOOOOA 

#6-13 

8-314 

8-316 

8-319 

8-322 

8-324 

8-329 



GSYES 

= 000010 

#6-13 

8-272 

8-273 

8-274 

8-275 

8-313 

8-315 

8-317 

8-318 



8-320 

8-321 

8-323 

8-325 

8-326 

8-327 

8-328 

8-330 

8-331 



8-332 

8-333 

8-334 

8-335 

8-336 





HAROS 

03331A 

#82-1660 

*84-2092 

*103-3214 

335-16584 

336-16629 
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SYMBOL 
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CREF 


SYMBOL 

VALUE 


REFERENCES 





HELP 

Z 

000000 


#6-4 

6-8 

6-30 

6-48 

6-67 





8-261 

8-279 

8-3G4 

9-341 

9-387 

HOE 


100000 

G 

#83-1784 





IBE 

r 

01 0000 

G 

#83-1781 





I DU 

2 

000040 

G 

#83-1774 





JER 

Z 

020000 

G 

#83-1782 





IN1T.A 


035206 


#88-2286 

111-3664 




INTEGR 


047232 


#164-6862 

325-16052 




ISOLAT 


037332 


#100-3048 

167-7046 

167-7058 

170-7195 

170-7206 





203-9027 

208-9277 

208-9289 

210-9406 

223-10118 





251-11665 

251-11678 

2 56-11944 

256-11957 

258-12064 





285-13919 

287-14024 

301-14765 

301-14777 

303-14885 

ISR 

r 

000100 

G 

#83-1775 





IXE 

z 

004000 

G 

#83-1780 





1SAU 

z 

000041 


#6-13 





ISAUTO 

z 

000041 


#6-13 





ISCLN 

r 

000041 


#6-1? 





I SOU 

r 

000041 


#6-13 





ISHRD 

z 

000041 


#8-259 

#8-277 




1S1N1T 

z 

000041 


#6-13 





ISMOD 

z 

000041 


#6-13 

6-39 

#6-39 

9-411 

#9-411 

ISMSG 

z 

000041 


#6-13 





ISPROT 

z 

000040 


#6-13 

#9-379 




ISP TAB 

r 

000041 


#6-13 





I SPUR 

- 

000041 


#6-13 





ISRPT 

z 

000041 


#6-13 





ISSEG 

z 

000041 


#6-13 





ISSETU 

z 

000041 


#6-13 





ISSFT 

= 

000041 


#8-302 

#8-339 




ISSRV 

z 

000041 


#6-13 





issue 

z 

000041 


#6-13 





ISTST 

z 

000041 


#6*13 





I.AM.D 


034336 


#82-1680 

*83-1927 

*138-5465 

138-5471 

138-5477 

JSJMP 

z 

000167 


#6-13 





LAU 


005650 


#48-296 

49-315 




LAU10 


005504 


#45-101 

45-119 




LCLEAN 


104724 


#339-16805 

340-16848 




LDU 


005516 


#47-210 

47-257 




L IMIT 


002222 

G 

#8-153 

83-1722 

95-2794 



L INI T 


040474 


#111-3636 

112-3710 




LOE 

z 

040000 

G 

#83-1783 





LOT 

z 

000010 

G 

#83-1772 





LOU. SE 


034460 

G 

#82-1 702 

*85-2122 

*96-2850 

97-2881 

164-6894 





210-9396 

220-9941 

225-10233 

243-11200 

258-12054 





287-14014 

297-1 4 573 

303-14875 

318-15702 


lrpt 


005466 


#44-39 

44-58 




LSECT 


002226 

G 

#8-157 

83-1723 

*95-2806 

*95-2814 

96-2848 

LSACP 


002110 

G 

#6-65 





LSAPT 


002036 

G 

#6-65 





lsau 


005652 

G 

6-65 

#49-315 




lsaut 


002070 

G 

#6-65 





LSAU TO 


005506 

G 

6-65 

#45-119 





SEQ 0369 

7-103 7-119 8-145 #8-200 

9-404 9-416 


183-7918 184-7935 186-8047 203-9015 

224-10135 226-10247 246-11386 246-11399 
273-13030 273-13046 273-13156 285-13907 
316-15594 316-15606 318-15712 


180-7738 185-8033 200-8845 205-9153 

263-12285 273-12856 273-13143 282-13717 

96-2850 96-2865 



CZML88 

CREATED BY 

SYMBOL 

SYMBOL 

CROSS REFERENCE 
VALUE 

ISCCP 

002106 

G 

lsclea 

105034 

G 

lsco 

002032 

G 

LSDEPO 

002011 

G 

LSDESC 

002130 

G 

LSDESP 

002076 

G 

LSDEvP 

002060 

G 

LtDISP 

002204 

G 

HOLY 

002116 

G 

LSD TP 

002040 

G 

LSOTYP 

002034 

G 

lsdu 

005640 

G 

lsdut 

002072 

G 

lsdvty 

002122 

G 

lsef 

002052 

G 

LSENVI 

002044 

G 

lserrt 

002172 

G 

LSETP 

002102 

G 

LSEXP1 

002046 

G 

LSEXP4 

002064 

G 

LSEXP5 

002066 

G 

L SHARD 

002266 

G 

LSHIME 

002120 

G 

LSHPCP 

002016 

G 

lshptp 

002022 

G 

lshu 

002210 

G 

LSICP 

002104 

G 

LSINIT 

040722 

G 

LSLADP 

002026 

G 

LSLAST 

= 105050 

G 

LSLOAD 

002100 

G 

lslun 

002074 

G 

LSMREV 

002050 

G 

LSNAME 

002000 

G 

LSP.TIO 

002042 

G 

LSPROT 

004126 

G 

LSPRT 

002112 

G 

LSREPP 

002062 

G 

LSREV 

002010 

G 

LSRPT 

005474 

G 

LSSOFT 

002450 

G 

LSSPC 

002056 

G 

LSSPCP 

002020 

G 

LSSPTP 

002024 

G 

lssta 

002030 

G 

LSSU 

002222 

G 

LSTEST 

002114 

G 

LSTIML 

002014 

G 

LSUNIT 

002012 

G 
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CREf 


REFERENCES 


#6-65 

6-65 

#340-16847 

#6-65 

#6-65 

6-65 

#7-85 

#6-65 

#6-65 

6-65 

#7-101 

#6-65 

137-5400 

#6-65 

#6-65 

6-65 

#47-257 

#6-65 

6-65 

#6-80 

#6-65 

#6-65 

6-65 

#7-94 

#6-65 

#6-65 

#6-65 

#6-65 

6-65 

8-259 

#6-65 

#6-65 

#6-65 

6-65 

7-117 

#6-65 

6-65 

#112-3710 

#6-65 

6-65 

#340-16873 

#6-65 

#6-65 

46-201 


*164-6891 *180-7733 

*313-15405 


#6-65 

#6-65 

#6-65 

6-65 

#9-379 

#6-65 

#6-65 

#6-65 

6-65 

#44-58 

6-65 

8-302 

#6-65 

#6-65 

#6-65 

#6-65 

6-65 

8-143 

#6-65 

#6-65 

#6-65 

83-1722 

242-11165 

265-12372 


137-5428 


#8-259 

#7-117 


47-210 

*200-8840 


#8-302 


#8-143 

84-2079 

265-12379 


138-5442 


47-216 47-221 

*205-9148 *220-9936 


111-3645 164-6874 

265-12382 265-12403 


SEO 0370 


47-227 83-1722 *85-2119 *111-3648 

*242-11183 *273-12851 *282-13714 *297-14565 


180-7715 199-8819 205-9130 220-9918 

273-12833 281-13691 297-14546 322-15902 




13 


SEO 0371 


90-2424 

95-2798 

131-4742 

131-4763 

131-4785 

131-4812 

131-4933 

131-5011 

137- 5417 

138- 5461 
168-7099 
184-7953 
203-9044 
210-9409 
224-10175 
247-1K40 
256-11975 
273-13063 
285-13922 
288-14068 
304-14926 
319-15734 
336-16637 


90-2430 

97-2887 

131-4745 

131-4765 

131-4791 

131-4829 

131-4943 

131-5019 

137- 5422 

138- 5462 
168-7102 
184-7972 
203-9045 
210-9423 
226-10250 
247-11443 
257-11998 
273-13064 
286-13940 
301-14780 
304-14929 
319-15753 
336-16647 


90-2451 

98-2972 

131-4747 

131-4767 

131-4793 

131-4837 

131-4951 

131-5027 

137- 5425 

138- 5463 
170-7209 
184-7975 
204-9068 
210-9424 
226-10264 
251-11681 
257-12001 
273-13083 
286-13941 
301-14794 
317-15o13 
319-15756 


94-2714 

99-2997 

131-4749 

131-4770 

131-4795 

131-4848 

131-4964 

131-5035 

138-5439 

138-5464 

170-7223 

186-8050 

204-9071 

211-9447 

226-10265 

251-11695 

258-12067 

273-13086 

286-13960 

301-14795 

317-15627 

322-15924 


94-2715 

100-3048 

131-4751 

131-4775 

131-4798 

131-4856 

131-4972 

131-5043 

138-5452 

138-5469 

170-7224 

186-8064 

208-9292 

211-9450 

226-10284 

252-11700 

258-12081 

273-13159 

286-13963 

302-14818 

317-15628 

322-15925 




13 


SEQ 0372 


166-6993 

181-7796 

202-8984 

221-9996 

245-11353 

251-11656 

273-12901 

284-13855 

300- 14744 

183-7921 

301- 14768 
171-7281 
211-9474 
253-11757 

286-13987 
318-15685 
187-8105 
259-12122 


167-701® 

182-7863 

203-8998 

222-10063 

246-11368 

253-11785 

27 3-12910 

284-13876 

301-14757 

203- 9018 
316-15597 
185-8003 
211-9481 
257-12025 

287-13998 
320-15784 

204- 9085 
273-13103 


167-7029 

183-7889 

203-9007 

223-10089 

246-11377 

253-117' S 

273-129/6 

285-13890 

314-15458 

208- 9280 
336-16641 
185-8010 
225-10203 
258-12036 
288-14092 
320-15791 

209- 9347 
273-13213 


167-7038 

183-7900 

207-9224 

22 3-10100 

248-11506 

253-11805 

273-13001 

285- 13899 
314-15468 

223-10121 

336-16651 

187-8115 

22 5-10210 

259-12132 

288-14099 

211-9464 

286- 13977 


169-7164 

183-7911 

207-9246 

223-10109 

248-11517 

255-11889 

273-13012 

298-14625 

314-15477 

246-11389 

187-8122 

227-10315 

259-12139 

302-14845 

225-10193 

288-14082 


206-9199 222-10041 245-11309 250-11588 254-11863 


111-3661 *111-3666 

8-223 9-429 


313-15398 322-15901 


120-4173 *199-8789 199-8800 199-8802 199-8809 







L 13 


czmlbb 

CREATED BY 

MACRO ON 29-MAR-82 AT 

13:44 PAGE 10 

SEO 0373 

SYMBOL 

CROSS REFERENCE 



CREF 

SYMBOL 

VALUE 


REFERENCES 

336-16618 



PHR18 

= 010366 


#83-1898 



PHR19 

= 010410 


#83-1899 

332-16428 



PHR2 

= 007730 


#83-1882 

325-16046 

339-16809 


PHR20 

= 010430 


#83-1900 

332-16434 



PHR21 

= 005662 


#83-1791 

337-16700 



PHR3 

= 007746 


#83-1883 

89-2324 



PHR4 

= 007770 


#83-1884 

97-2910 



PHR5 

= 010004 


#83-1885 

335-16590 



PHR6 

= 010026 


#83-1886 

336-16662 

94-2722 333-16466 


PHR7 

= 010050 


#83-1887 

90-2438 


PHR8 

= 010066 


#83-1888 

90-2452 

90-2462 


PHR9 

= 010100 


#83-1889 

199-8803 

199-8812 


PM. SBE 

012264 


#81-1633 

*86-2176 

*104-3273 104-3274 336-16639 

336-16649 

PNT 

= 001000 

G 

#83-1778 




PR I 

= 002000 

G 

#83-1779 




PR 1 00 

= 000000 

G 

#83-1770 




PRI01 

= 000040 

G 

#83-1769 




PR 1 02 

= 000100 

G 

#83-1768 




PR 1 03 

= 000140 

G 

#83-1764 




PR 1 04 

= 000200 

G 

#83-1763 




PRI05 

= 000240 

G 

#83-1762 




PR 1 06 

= 000300 

G 

#83-1761 




PR 1 07 

= 000340 

G 

#83-1760 



137-5413 138-5449 322-15921 333-16455 

PTABLE 

034422 

G 

#82-1690 

90-2434 

94-2711 94-2718 *111-3660 


333-16462 




P.AAA 

005662 


#70-944 

83-1791 



P.AAB 

005736 


#70-959 

83-1792 



P.AAC 

006042 


#70-982 

83-1793 



P.AAD 

006126 


#70-1003 

83-1794 



P.AAE 

006142 


#70-1007 

83-1795 



P.AAF 

006160 


#70-1012 

83-1796 



P.AAG 

006166 


#70-1014 

83-1797 



P.AAH 

006216 


#70-1022 

83-1798 



P.AAI 

006252 


#70-1032 

83-1799 



P.AAJ 

006270 


#70-1037 

83-1800 



P.AAK 

006320 


#71-1049 

83-1801 



P.AAL 

006376 


#71-1065 

83-1802 



P.AAM 

006446 


#71-1079 

83-1803 



P.AAN 

006466 


#71-1085 

83-1804 



P.AAO 

006534 


#72-1102 

83-1805 



P.AAP 

006564 


#72-1110 

83-1806 



P.AAQ 

006640 


#72-1125 

83-1807 



P. AAR 

006654 


#72-1129 

83-1808 



P.AAS 

006710 

00b756 


#72-1139 

33-1809 



P.AAJ 


#73-1156 

83-1810 



P.AAU 

007024 


#73-1169 

83-1811 



P. AAV 

007046 


#73-1175 

83-1812 



P.AAU 

007060 


#73-1179 

83-1813 



P.AAX 

007066 


#73-1181 

83-1814 



P.AAY 

007072 


#73-1183 

83-1815 



P.AAZ 

007100 


#73-1185 

83-1816 



P.ABA 

007112 


#73-1189 

83-1817 





CZMIB8 CREATED BY 
SYMBOL CROSS REFERENCE 
SYMBOL VALUE 
P.AB8 007130 

P.ABC 007152 

P.ABD 007200 

P.A8E 007206 

P.ABF 007212 

P.ABG 007220 

P.A8H 007230 

P.AB1 007240 

P.ABJ 007246 

P.ABK 007256 

P.ABL 007264 

P.ABM 007272 

P. ABN 007300 

P. ABO 007312 

P.ABP 007322 

P.ABQ 007332 

P.ABR 007336 

P.ABS 007344 

P.ABT 007354 

P.ABU 007370 

P.A8V 007400 

P.A8W 007412 

P.A8X 007416 

P.ABY 007424 

P.ABZ 007430 

P.ACA 007434 

P.ACB 007440 

P.ACC 007444 

P.ACD 007450 

P.ACE 007454 

P.ACF 007460 

P.ACG 007464 

P.ACH 007472 

P.ACI 007500 

P.ACJ 007504 

P. ADC 007510 

n .ACL 007514 

P.ACM 007520 

P.ACN 007524 

P.ACO 007530 

P.ACP 007534 

P.ACO 007542 

P.ACR 007550 

P. ACS 007554 

P. AC T 007560 

P.ACU 007564 

P.ACV 007570 

P.ACW 007574 

P.ACX 007626 

P.ACY 007634 

P.ACI 007642 

P.ADA 007650 


MACRO ON 29-MAR-82 AT 13:44 


REFERENCE 

*73-1194 

*73-1200 

*74-1212 

*74-1214 

*74-1216 

*74-1218 

*74-1221 

*74-1224 

*74-1226 

*74-1229 

*74-1231 

*74-1233 

*74-1235 

*74-1239 

*74-1242 

*74-1245 

*74-1247 

*74-1249 

*74-1252 

*74-1256 

*74-1259 

*75-1267 

*75-1269 

*75-1271 

*75-1273 

*75-1275 

*75-1277 

*75-1279 

*75-1281 

*75-1283 

*75-1285 

*75-1287 

*75-1289 

*75-1291 

*75-1293 

*75-1295 

*75-1297 

*75-1299 

*75-1301 

*75-1303 

*75-1305 

*75-1307 

*75-1309 

*75-1311 

*75-1313 

*75-1315 

*75-1317 

*76-1323 

*76-1332 

*76-1334 

*76-1336 

*76-1338 


PAGE 11 
CREF 


83-1818 

83-1819 

83-1823 

83-1824 

83-1825 

83-1826 

83-1827 

83-1828 

83-1829 

83-1830 

83-1831 

83-1832 

83-1833 

83-1834 

83-1835 

83-1836 

83-1837 

83-1838 

83-1839 

83-1840 

83-1841 

83-1842 

83-1843 

83-1844 

83-1845 

83-1846 

83-1847 

83-1848 

83-1849 

83-1850 

83-1851 

83-1852 

83-1853 

83-1854 

83-1855 

83-1856 

83-1857 

83-1858 

83-1859 

83-1860 

83-1861 

83-1862 

83-1863 

83-1864 

83-1865 

83-1866 

83-1867 

83-1868 

83-1869 

83-1870 

83-1871 

83-1872 


N 13 


SEQ 0374 

v 



CZMLBB 

CREATED BY 

SYMBOL 

CROSS REFERENCE 

SYMBOL 

VALUF 

P.AOB 

007656 

P.ADC 

007664 

P.ADD 

007672 

P.AOE 

007700 

P.AOF 

007706 

P.ADG 

007714 

P.ADH 

007730 

P. ADI 

007746 

P.ADJ 

007770 

P.ADK 

010004 

P.ADL 

010026 

P.ADM 

010050 

P.ADN 

010066 

P. ADO 

010100 

P.ADP 

010120 

P.ADQ 

010140 

P.ADR 

010202 

P.ADS 

010240 

P.ADT 

010266 

P.ADU 

010304 

P.ADV 

010322 

P.ADW 

010342 

P.ADX 

010366 

P.ADY 

010410 

P.ADZ 

010430 

P.AEA 

010444 

P.AE8 

010446 

P.AEC 

010450 

P.AED 

010454 

P.AEE 

010460 

P.AEF 

010502 

P.AEG 

010526 

P.AEH 

010602 

P.AEI 

010656 

P.AEJ 

010710 

P.AEK 

010734 

P.AEL 

010756 

P.AEM 

011002 

P.AEN 

011070 

P.AEO 

011120 

P.AEP 

011166 

P.AEO 

011202 

P.AER 

011216 

GH1 

002332 

OH 2 

002351 

QH3 

002374 

QH4 

002425 

QS1 

002664 

QS10 

003534 

osn 

003554 

OS12 

003637 

OS 1 3 

003657 


MACRO ON 29-MAR-82 AT 13:44 


REFERENCES 

#76-1340 

#76-1342 

#76-1344 

#76-1346 

#76-1348 

#76-1350 

#76-1354 

#76-1359 

#76-1365 

#76-1369 

#77-1379 

#77-1385 

#77-1390 

#77-1394 

#77-1400 

#77-1406 

#77-1418 

#77-1428 

#78-1440 

#78-1445 

#78-1450 

#78-1456 

#78-1463 

#78-1469 

#78-1475 

#78-1479 

#78-1480 

#78-1481 

#78-1483 

#78-1485 

#79-1495 

#79-1502 

#79-1517 

#79-1532 

#79-1541 

#80-1552 

#80-1558 

#80-1565 

#80-1583 

#80-1591 

#81-1608 

#81-1612 

#81-1616 

8-272 

8-273 

8-274 

8-275 

8-313 

8-328 

8-323 

8-331 

8-332 


83-1873 
83-1874 
83-1878 
83-1879 
83-1880 
83-1881 
83-1882 
83-1883 
83-1884 
83-1885 
83-1886 
83-1887 
83-1888 
83-1889 
83-1890 
83-1891 
83-1892 
83-1893 
83-1894 
83-1895 
83-1896 
83-1897 
83-1898 
83-1899 
83-1900 
83-1901 
83-1902 
83-1903 
83-1904 
83-1905 
83-1906 
83-1907 
S3- 1908 
83-1909 
83-1910 
83-1911 
83-1912 
83-1913 
83-1914 
83-1915 
83-1916 
83-1917 
83-1918 
#8-286 
#8-287 
#8-288 
#8-289 
#9-347 
#9-362 
8-330 
#9-364 
#9-365 


#9-363 


PAGE 12 
CREF 


l 


N 13 


SEQ 0375 



CZML88 
I SYMBOL 
! SYMBOL 
GS14 
QS1 5 
QS16 
QS1 7 
QS2 
QS3 
QS4 
QS5 
QS6 
QS7 
QS8 
QS9 
QUICK 
RANDOM 

RAND1 
RAND2 
! RAND3 
RAND4 
RANGE 
RBUFF 


RCBUFF 

RDBUFF 

RD.COU 

RD.MIL 

RD.THO 

READ 


REFRES 

RETRY 


CREATED BY 
CROSS REFERENCE 
VALUE 
003724 
003763 
004030 
004066 
002732 
003007 
003047 
003107 
003147 
003454 
003474 
003514 
032674 
005464 G 

070540 
073124 
075444 
100006 
002224 G 
022670 


= 023A7L 
= 022670 
034322 
034326 
034324 
045612 


002252 G 
046224 


MACRO ON 29-MAR-82 AT 13:44 


REFERENCES 

8-333 

8-334 

8-335 

8-336 

8-315 

8-317 

8-318 

8-320 

8-321 

8-325 

8-326 

8-327 

*81-1642 

*42-27 

263-12295 

#273-12823 

#281-13612 

#297-14537 

#312-15384 

#8-155 

*81-1639 

185- 8037 
282-13719 

*83-1788 

#83-1787 

#82-1668 

#82-1672 

#82-1670 

#145-5863 

181-7815 

225-10239 

273-12932 

314-15495 

#8-167 

#153-6245 

186- 8080 
224-10168 
255-11903 
286-13956 


PACE 13 
CREF 


retry: 

034340 

319-15749 

#82-1682 

148-5975 

RE 2 

005362 

41-1349 

RE 3 

005360 

41-1357 

RE4 

005356 

41-1366 

RN 

005370 G 

#42-12 

RNDSEC 

070240 

#263-12282 

RNDU 

070336 

#264-12367 

RNDWC 

070204 

#261-12202 

RPTR 

032672 

#81-1641 


#9-3d6 

#9-3^7 

#9-368 

#9-369 

#9-348 

#9-349 

#9-350 

#9-351 

#9-352 

#9-359 

#9-360 

#9-361 

*111-3643 

#42-37 

*265-12377 

323-15938 

323-15940 

323-15942 

323-15949 

83-1722 

83-1787 

200-8842 

287- 14018 
42-11164 

242-11163 
*85-2111 
*85-2113 
*85-2112 
149-6057 
185-8039 
244-11275 
273-13152 
318-15708 
83-1725 
165-6919 
200-8868 
226-10280 
2S" -11994 

288- 14061 


SEO 0376 


*112-3691 

83-1726 

265-12378 


95-2796 

83-1788 

205-9150 

297-14567 


] 99*8790 205-9127 325-16039 325-16063 
125-4379 149-6053 149-6055 * 261-12203 
*265-12381 265-12385 265-12391 265-12399 


83-1790 166-6958 
210-9400 220-9938 
303-14879 313-15407 


166-6964 166-7005 
225-10237 258-12058 
318-15706 


201-8929 

•273-12853 


*84-2103 

148-5986 

#41-1379 

#41-1378 

#41-1377 

83-1726 

298-14589 

313-15403 

282-13724 

*156-6444 

*205-9150 

273-12924 


141-5627 

*141-5636 

*141-5631 

153-6275 

201- 8908 
244-11283 
283-13800 

89-2318 

166-7007 

202- 8976 
243-11221 
259-12101 
298-14618 

131-4815 

*153-6246 


*141-5628 

*141-5638 

141-5633 

154-6315 

201-8916 

249-11554 

283-13808 

138-5455 

168-7095 

204-9064 

245-11345 


*141-5632 

332-16435 

*141-5635 

154-6327 

206-9170 

249-11562 

237-14020 


169-7157 

207-9238 

247-11436 


273-12882 273-12993 
300-14727 302-14814 


166-6960 

206-9178 

254-11833 

299-14658 


171-7243 

208-9322 

248-11498 

273-13079 

304-14922 


166-7002 

210-9402 

254-11841 

299-14666 


181-7768 
2 11-9443 
250-11624 
273-13189 
314-15451 


261-12204 *263-12292 
265-12401 *265-12405 


168-7093 180-7735 

273-12853 273-13150 


168-7090 

221-10007 

258-12060 

303-14881 


183-7881 

221-9968 

252-11715 

282-13760 

316-15560 


181-7807 

221-10015 

273-12921 

314-15487 


184-7968 

223-10081 

253-11777 

284-13869 

317-15643 


131-5102 

*155-6385 


138-5479 144-5779 144-5790 146-5877 146-5888 


125-4377 

313-15418 

298-14584 

*180-7735 

206-9173 

273-12930 


149-6052 261-12202 263-12291 265-12376 
313-15413 

181-7810 181-7813 182-7833 *200-8842 
206-9176 206-9191 *220-9938 221-10010 
273-12946 *222-13719 283-13803 283-13806 


201-8911 201-8914 
221-10013 222-10033 
28^-13826 *297-14567 



C K 


CZMLB8 CREATED BY MACRO ON 29-WAR-82 AT 15:44 PAGE K 
SYMBOL CROSS REFERENCE CREF SEO 0377 


SYMBOL 

value 


REFERENCES 



*313-15407 









299-14661 

299-1-664 

299-14680 

314-15490 

314-1 5493 

315-15513 



RTNO 

z 

007574 


#83-1868 

164-6865 








RTNl 

r 

007626 


#83-1869 

180-77C8 








RTN2 

~ 

007634 


#83-1870 

199-8783 








RTN3 

r 

007642 


#83-1871 

219-9905 








RTN4 

r 

007650 


#85-1872 

242-11148 








RTN5 

z 

007656 


#83-1873 

322-15894 








RTN5A 

z 

007664 


#83-1874 

273-12825 








RTN5B 

z 

007672 


#83-1878 

281-13684 








RTMSC 

z 

007700 


#83-1879 

297-14539 








RTN51/ 

- 

007706 


#83-1880 

313-15390 








SAY'JHO 


035524 


#90-2410 

94-2744 

104-3277 

131-4821 

131-4894 

131-4908 

138-5482 

166-6971 

182-7840 



202-8940 

206-9198 

222-10040 

245-11308 

249-11583 

254-11862 

273-12953 

284-13833 

290-14687 





315-15520 

333-16474 








SAY1 

= 

007072 


#83-1815 

131-4823 

131-4896 

131-4910 

T31-5105 

139-5505 

166-6973 

182-7842 

202-8942 





206-9200 

222-10042 

242-11185 

245-11310 

250-11589 

255-11868 

273-12826 

273-12955 

281-13685 





284-13835 

297-14540 

299-14689 

313-15391 

315-15522 

332-16415 

332-16424 

337-16701 

337-16710 

SAY 2 

z 

007100 


#83-1816 

94-2729 

94-2752 

96-2827 

96-2854 

154-6338 

155-6362 

164-6867 

180-7710 



199-8785 

220-9911 

242-11150 

322-15896 

333-16491 





SAY3 

z 

007112 


#83-1817 

89-2326 

153-6260 

153-6270 

153-6280 

325-16048 

339-16811 



SAY4 

r 

007130 


#83-1818 









SAY5 

= 

007152 


#83-1819 

89-2314 








SBESHE 

= 

006042 


#83-1793 

337-16709 








SBEt.C 


012664 


#81-1635 

*84-2100 

103-3215 

104-3266 

104-3285 

*105-3320 

108-3463 

*109-3548 

337-16694 

SBE.LO 


011264 


337-16714 

#81-1632 

*85-2157 

*85-2158 

103-3224 

*104-3262 

104-3288 

*105-3319 

108-3472 

*109-3510 



109-3520 

*109-3547 

337-16720 

337-16721 






SEED1 


005456 

G 

*42-15 

42-18 

#42-33 

83-1726 

125-4372 





SEED2 


005460 

G 

42-13 

*42-20 

42-27 

#42-34 

83-1726 

125-4373 




SEED3 


005462 

G 

42- 9 

42-23 

*42-26 

#42-35 

83-1726 

125-4374 




SELPAT 


041066 


#115-3870 

199-8799 








SERVIC 


034544 

G 

#83-1926 

89-2348 








SET.PT 


047132 


#156-6435 

180-7749 

200-8853 

206-9165 

220-9949 

273-12864 

282-13727 

298-14587 

313-15416 

SFPT8L 


002222 

G 

#8-143 









SOFTS 


032714 


#82-1659 

*84-2091 

*108-3462 

355-16583 

335-16601 





START. 


044424 


#137-5407 

144-5777 

146-5875 

148-5973 


6-65 




SVCGBL 

s 

000001 


#6-13 

#6-22 

6-65 

6-65 

6-65 

6-65 

6-65 

6-65 




6-65 

6-65 

6-65 

6-65 

6-65 

o-65 

6-65 

6-65 

6-65 





6-65 

6-65 

6-65 

6-65 

6-65 

6-65 

6-65 

6-65 

6-65 





6-65 

6-65 

6-65 

6-65 

6-65 

6-65 

6-65 

6-65 

6-65 





6-65 

6-65 

6-65 

6-65 

6-80 

7-85 

7-94 

7-101 

7-117 





7-117 

8-143 

8-143 

8-259 

8-302 

9-379 




SVC INS 

S 

000001 


#6-13 

#6-19 

6-65 

6-65 

6-65 

6-65 

6 65 

6-65 

6-65 




6-65 

6-65 

6-65 

6-65 

6-65 

6-65 

6-65 

6-65 

6-65 





6-65 

6-65 

6-65 

6-65 

6-65 

6-65 

6-65 

6-65 

6-65 





6-65 

6-65 

6-65 

6-65 

6-65 

6-65 

6-65 

6-65 

6-65 





6-65 

6-65 

6-65 

6-65 

6-65 

6-65 

6-65 

6-65 

6-65 





6-65 

6-65 

6-65 

6-65 

6-65 

6-65 

6-65 

6-65 

6-65 





6-65 

6-65 

6-65 

6-65 

6-65 

6-65 

6-65 

6-65 

6-65 





6-65 

6-65 

6-65 

6-65 

6-65 

6-65 

6-65 

6-65 

6-65 





6-65 

6-65 

6-65 

6-65 

6-65 

6-65 

6-65 

6-65 

6-65 





6-65 

6-65 

6-65 

6-65 

6-65 

6-65 

6-65 

6-65 

6-65 



D 14 


CZMLB8 

SYMBOL 

SYMBOL 


SVCSU8 
SVC TAG 
SVCTST 
SYSERR 
SSLSYM 
TOP.SE 


TRIES 

TRTOO 

TRTOI 

TRTIO 


CREATED BY 

MACRO ON 29-MAR-82 AT 

13:44 

PAGE 15 

CROSS REFERENCE 




CREF 

VALUE 

REFERENCES 


6-65 

6-65 


6-65 

6-65 


6-65 

6-65 

6-65 

6-65 


6-65 

6-65 

6-65 

6-65 


6-65 

6-65 

6-65 

6-65 


6-65 

6-65 

6-65 

6-65 


6-65 

6-65 

6-65 

6-65 


6-80 

6-80 

6-80 

6-80 


7-85 

7-85 

7— 1 01 

7-101 


7-117 

7-117 

3-143 

8-143 


8-272 

8-272 

8-272 

8-272 


8-272 

8-272 

8-273 

8-273 


8-273 

8-273 

8-273 

8-273 


8-274 

8-274 

8-274 

8-274 


8-274 

8-274 

8-275 

8-275 


8-275 

8-275 

8-275 

8-275 


8-277 

8-277 

8-302 

8-302 


8-313 

8-313 

8-313 

8-313 


8-315 

8-315 

8-315 

8-315 


8-316 

8-316 

8-317 

8-317 


8-317 

8-317 

8-317 

8-317 


8-318 

8-318 

8-318 

8-318 


8-318 

8-318 

8-318 

8-318 


8-320 

8-320 

8-320 

8-320 


8-320 

8-320 

8-320 

8-320 


8-321 

8-321 

8-321 

8-321 


8-323 

8-323 

8-323 

8-323 


8-323 

8-323 

8-323 

8-323 


8-325 

8-325 

8-325 

8-325 


8-326 

8-326 

8-326 

8*326 


8-327 

8-327 

8-327 

8-327 


8-328 

8-328 

8-328 

8-328 


8-329 

8-329 

8-330 

8-330 


8-330 

8-330 

8-330 

8-330 


8-331 

8-331 

8-331 

8-331 


8-332 

8-332 

8-332 

8-332 


8-333 

8-333 

8-333 

8-333 


8-334 

8-334 

8-334 

8-334 


8-335 

8-335 

8-335 

8-335 


8-336 

8-336 

8-336 

8-336 


8-339 

8-339 



= 000001 

#6-13 

#6-21 



= 000001 

#6-13 

#6-23 

7-134 

8-196 

= 000001 

#6-13 

#6-20 



041710 

#131-4722 

139-5511 



= 010000 

#6-13 

#7-134 

#8-196 

#8-277 

034500 G 

#82-1704 

95-2777 

165-6902 

180-7739 


205-915 7 

210-9395 

220-9942 

220-9945 


273-12857 

273-12860 

273-13142 

1 282-13720 

033714 

#82-1661 

*84-2093 

*155-6331 

335-16585 

= 010444 

#83-1901 

97-2891 


= 010446 

#83-1902 

97-2895 



= 010450 

#83-1903 

97-2899 




iEO 05? 


6-65 

6-65 

6-65 

6-65 

6-65 

6-65 

6-65 

6-65 

6-65 

6-65 

6-65 

6-65 

6-65 

6-65 

6-65 

6-65 

6-65 

6-65 

6-65 

6-65 

6-65 

6-65 

6-65 

0-65 

6-65 

6-65 

6-65 

6-65 

6-65 

6-80 

6-80 

7-85 

7-85 

7-85 

7-85 

7-101 

7-101 

7-101 

7-101 

7-117 

8-143 

8-259 

8-259 

8-259 

8-272 

8-272 

8-272 

8-272 

8-272 

8-2 7 2 

8-273 

8-273 

8-273 

8-273 

8-273 

8-273 

8-274 

8-274 

8-274 

8-274 

8-274 

8-274 

8-274 

8-274 

8-274 

8-275 

8-275 

8-275 

8-275 

8-275 

8-275 

8-275 

8-275 

8-275 

8-277 

8-302 

8-313 

8-313 

8-313 

8-313 

8-313 

8-314 

8-3H 

8-314 

8-315 

8-315 

8-315 

8-315 

8-315 

8-316 

8-317 

8-317 

8-317 

8-317 

8-317 

8-317 

8-317 

8-3,7 

8-317 

8-318 

8-3 18 

8-318 

8-318 

8-318 

8-318 

8-318 

8-319 

8-319 

8-319 

8-320 

8-320 

8-320 

8-320 

8-320 

8-320 

8-320 

8-321 

8-321 

8-321 

8-321 

8-321 

8-322 

8-322 

8-322 

8-323 

8-323 

8-323 

8-323 

8-323 

8-323 

8-323 

8-324 

8-324 

8-324 

8-325 

8-325 

8-325 

8-325 

8-325 

8-326 

8-326 

8-326 

8-326 

8-326 

8-327 

8-327 

8-327 

8-327 

8-327 

8-328 

8-328 

8-328 

8-328 

8-328 

8-329 

8-330 

8-330 

8-330 

8-330 

8-330 

8-330 

8-330 

8-330 

8-330 

8-331 

8-331 

8-331 

8-331 

8-331 

8-332 

8-332 

8-332 

8-33? 

8-332 

8-333 

8-333 

8-333 

8-333 

8-333 

8-334 

8-334 

8-334 

8-334 

8-334 

8-335 

8-335 

8-335 

8-335 

8-335 

8-336 

8-336 

8-336 

8-336 

8-336 

8-339 

8-277 

8-339 




#8-339 





180-7745 

185-8032 

200-8846 

200-8849 

205-9154 

225-10232 

243-11202 

258-12053 

263-12287 

263-12293 

287-14013 

297-14570 

303-14874 

313-15410 



337-1667? 




SEQ 0379 


C 14 


*95-2815 

-=95—281 6 

96-2821 

96-2823 

96-2338 

6-65 

#6-65 

6-65 

6-65 

#6-65 

6-65 

#6-65 

6-65 

6-65 


#8 -272 

8-272 

#8-273 

8-273 

#8-273 

8-274 

#8-274 

8-274 

#8-274 

8-274 

#8-275 

8-275 

#8-313 

8-313 

#8-313 

8-314 

8-314 

#8-314 

8-314 

8-314 

#8-315 

8-315 

#8-315 

8-315 

#8-315 

#8-316 

8-316 

8-316 

#8-316 

8-316 

#8-317 

8-317 

#8-317 

8-317 

#8-318 

8-318 

#8-319 

8-319 

8-319 

#8-319 

#8-319 

8-319 

#8-320 

8-320 

#8-320 

8-321 

#8-321 

8-321 

#8-321 

8-321 

8-322 

8-322 

#8-322 

8-322 

#8-322 

8-323 

#8-323 

8-323 

#8-324 

8-324 

#8-324 

8-324 

#8-32** 

8-324 

#8-325 

8-325 

#8-326 

8-326 

#8-326 

8-326 

#8-327 

8-327 

#8-327 

8-327 

#8-328 

8-328 

#8-329 

8-329 

8-329 

#8-329 

#8-329 

8-329 

#8-330 

8-330 

#8-330 

8-331 

#8-331 

8-331 

#8-331 

8-331 

#8-332 

8-332 

#8-333 

8-333 

#8-333 

8-334 

#8-334 

8-334 

#8-334 

8-334 

#8-335 

8-335 

#8-336 

8-336 

#8-336 

#8-274 

8-274 

#8-275 

8-275 

#8-31 7 

8-320 

#8-323 

8-323 

#8-330 

8-330 

#8-274 

8-274 

#8-275 

8-275 

#8-317 

8-320 

#8-323 

8-323 

#8-330 

8-330 

#8-274 

8-274 

#8-275 

8-275 

#8-317 

8-320 

#8-323 

8-323 

#8-330 

8-330 

8-277 

8-339 




7-117 

#7-117 

7-117 

7-134 

7-134 

8-143 

8-196 

8-196 

8-196 

#8-196 

8-277 

8-277 

#8-277 

8-302 

#8-302 

8-322 

8-324 

8-329 

8-339 

8-339 

9-379 

9-385 

9-385 

9-385 

#9-385 

#8-259 

8-277 

#8-302 

8-314 

8-316 

8-339 

#9-379 

9-385 





F 14 


CZMLBB CREATED BY 
SYMBOL CROSS REFERENCE 
SYMBOL VALUE „ 

TSTAGL = 17/777 
TSTAGN = 010005 

TtTEMP = 000000 


MACRO ON 29-MAR-82 AT 13:44 


REFERENCES 

#6-13 

#6-13 

#8-259 

#7-101 

8-272 

#8-273 

8-275 

#8-313 

8-315 

#8-318 

8-320 

#8-323 

8-325 

#8-327 

8-328 

#8-331 

8-332 

#8-334 

8-335 

#9-385 


7- 117 

8- 302 

7- 101 
#8-272 

8- 273 
#8-275 

8-313 

#8-317 

8-318 

#8-321 

8-323 

#8-326 

8-327 

#8-330 

8-331 

#8-333 

8- 334 
#8-336 

9- 385 


TSTEST 

TSTSTM 

TSTSTS 

= 000000 
= 177777 
= 000000 


#6-13 

#6-13 

#6-13 

8-259 

TSSHAR 

= 010002 


#8-259 

TSSHU 

TSSPRO 

= 010000 
= 010004 


#7-117 

#9-379 

7-117 

TSSSOF 

= 010003 


#8-302 

8-302 

TSSSU 

= 010001 


#8-143 

8-1 43 

T1 

102712 

G 

7-101 

#326-16093 

UAM 

= 000200 

G 

#83-1776 

168-7120 

247-11461 

304-14947 

UP.HAR 

037422 


#103-3203 

227-10309 

302-14839 

UP.RD. 

045240 


#141-5624 

146-5880 

UP. SOF 

040104 


#108-3452 

227-10326 

302-14856 

169-7141 

248-11482 

304-14964 

UP.WC. 

045332 


#142-5688 

148-5978 

UP.WR. 

045146 


#140-5560 

144-5782 

VEC 

032710 


#81-1652 

*88-2290 

WAITER 

044420 


#134-5254 

137-5421 

W6UFF 

012670 


#81-1638 

*122-4258 

169-7145 

297-14566 

83-1785 

*125-4372 

169-7155 

313-15406 

WCBUFF 

= 013670 


#83-1786 

242-11159 

UC.COU 

034330 


#82-1674 

*85-2114 

UC.MIL 

034334 


#82-1678 

*85-2116 

UC.THO 

034332 


#82-1676 

*85-2115 

WDBUFF 

= 012670 


#83-1785 

242-11155 

WHY. DR 

034446 

G 

#82-1698 

*166-6990 

*85-2141 

*167-7016 


7- 117 

8- 302 

7- 101 

8- 272 
#8-274 

8-275 

#8-313 

8-317 

#8-318 

8-321 

#8-323 

8-326 

#8-327 

8-330 

#8-331 

8-333 

#8-334 

8-336 

#9-411 


8-277 

7- 134 

8- 339 
8-196 


PAGE 17 
CREF 


#7-117 

#8-302 

#7-101 

#8-272 

8-274 

#8-275 

8-313 

#8-317 

8-318 

#8-321 

8-323 

#8-326 

8-327 

#8-330 

8-331 

#8-333 

8- 334 
#8-336 

9- 411 


SEQ 0380 


8-143 

8-143 

#8-143 

8-259 

8-259 

9-379 

9-379 

#9-379 


#8-272 

#7-134 

7-134 

#8-196 

8-196 

8-272 

#8-273 

8-273 

#8-273 

8-273 

#8-274 

8-274 

#8-?74 

8-274 

#8-275 

8-275 

#8-277 

8-2/7 

#8-313 

8-313 

#8-315 

8-315 

#8-315 

8-315 

#8-315 

8-317 

#8-317 

8-317 

#8-318 

8-318 

#8-320 

8-320 

#8-320 

8-320 

#8-320 

8-321 

#8-321 

8-321 

#8-323 

8-323 

#8-325 

8-325 

#8-325 

8-325 

#8-325 

8-326 

#8-326 

8-326 

#8-327 

8-327 

#8-328 

8-328 

#8-328 

8-328 

#8-328 

8-330 

#8-330 

8-330 

#8-331 

8-331 

#8-332 

8-332 

#8-332 

8-332 

#8-332 

8-333 

#8-333 

8-333 

#e-334 

8-334 

#8-335 

8-335 

#8-335 

8-335 

#8-335 

8-336 

#8-336 

8-336 

#8-339 

8-339 


171-7268 185-799 7 187-8109 204-9089 209-9351 211-9468 225- i 01 97 

252- 11740 257-12019 259-12126 273-13107 273-13217 286-13981 288-14086 

318-15672 319-15774 

171-7285 185-8014 187-8126 205-9110 209-9368 211-9485 225-10214 

253- 11761 258-12040 259-12143 273-13124 273-13234 287-14002 289-14107 

318-15689 320-15795 


89-2349 

83-1786 3 83-1789 *114-3806 *114-3817 
*125-4373 *125-4374 *125-4379 156-6441 
171-7241 180-7734 200-8841 205-9149 

242-1 i i ^2 

142-5691 *142-5692 *142-5696 
*142-5700 *142-5702 332-16441 
*142-5695 142-5697 *142-5699 


120-4175 

165-6907 

220-9937 


*122-4250 

165-6917 

273-12852 


*122-4251 

166-6963 

282-13718 


242-11161 

*94-2738 

*167-7026 


*95-2765 *96-2844 *96-2871 

*167-7040 *167-7051 *169-7161 


*165-6923 

*169-7171 


*165-6933 *165-694? 
*170-7189 *170-7200 


C2MIB8 

SYMBOL 

SYMBOL 


UPTR 


URDU 

WRD15 

WRD16 

URD1 7 

WRD18 

WRDT9 

UR 02 

URD20 

URD21 

UR024 

UR025 

URD3 

WRD34 

UR03S 

UR036 

URD37 

URD38 

URD4 

URD40 

URD41 

WRD6 

WRD7 

WRITE 


UR. COU 

UR.MIL 
UR . T HO 
XSALUA 
XtrALS 
XSOFFS 
X$TRU£ 
SEND.L 


CREATED BY 

MACRO ON 29-MAR-82 AT 

13:44 PAGE 18 

:ross reference 



CREF 

VALUE 

REFERENCES 





*181-7773 

*181-7784 

*181-7799 

*182-7860 


*201-8886 

*201-8900 

*202-8959 

*202-8981 


*207-9253 

*207-9267 

*208-9282 

*221-9973 


*223-10112 

*223-10124 

*24j-11226 

*243-11237 


*246-11392 

*248-11503 

*248-11514 

*249-11533 


*253-11782 

*253-11793 

*254-11812 

*255-11886 


*273-12898 

*273-12913 

*273-12973 *273-12998 


*283-13792 

*284-13852 

*284-13873 

*285-13887 


*300-14710 

*300-14731 

*300-14741 

*301-14759 


*316-15564 

*316-15574 

*316-15588 

*316-15599 

032670 

#81-1640 

156-6438 

*156-6441 

156-6442 


182-7832 

185-8018 

*185-8019 

*200-8841 


205-9114 

*205-9115 

*205-9149 

206-9180 


220-9952 

220-9962 

221-10017 

222-10024 


273-12880 

273-12934 

273-12937 

273-12945 


283-13810 

283-13813 

283-13821 

*287-14005 


299-14679 

302-14812 

*302-14858 

*313-15406 


*318-15691 




= 007240 

#83-1828 

90-2436 

94-2720 

94-2728 

r 007246 

#83-1829 

100-3055 

139-5497 

144-5793 

= 007256 

#83-1830 

138-5485 

144-5794 

153-6258 

= 007264 

#83-1831 

138-5488 

146-5892 

153-6278 

= 007272 

#83-1832 

153-6257 

153-6267 

153-6277 

= 007300 

#83-1833 

154-6336 



= 007200 

#83-1823 

153-6259 

153-6269 

153-6279 

= 007312 

#83-1834 

100-3056 

155-6360 


= 007322 

#83-1835 

94-2727 

94-2750 

96-2825 

= 007332 

#83-1836 

242-11189 

244-11264 

254-11822 

= 007336 

#83-1837 

249-11543 



= 007206 

#83-1824 

339-16810 

339-16816 


= 007344 

#83-1838 

89-2313 

164-6866 

180-7709 

= 007354 

#83-1839 

242-11184 



= 007370 

#83-1840 

88-2300 

89-2320 


= 007400 

#83-1841 

88-2298 

89-2322 


= 007412 

#83-1842 

89-2311 



= 007212 

#83-1825 

325-16045 

339-16808 

339-16817 

= 007416 

#83-1843 

89-2312 

89-2325 


= 007424 

#83-1844 

89-2309 



= 007220 

#83-1826 

95-2772 



= 007230 

#83-1827 

95-2775 



045424 

#143-5765 

153-6255 

153-6288 

153-6294 


180-7759 

200-8858 

200-8863 

220-9954 


253-11767 

253-11772 

273-12869 

273-12877 


314-15446 




034314 

#82-1662 

*84-2104 

140-5563 

*140-5564 

034320 

#82-1666 

*84-2106 

*140-5572 

*140-5574 

034316 

#82-1664 

*84-2105 

*140-5567 

140-5569 

= 000000 

#6-13 

8-319 

8-324 


= 000040 

#6-13 

8-314 

8-316 


= 000400 

(*'6-13 

8-314 

8-316 

8-319 

= 000020 

#6-13 

8-322 

8-329 


105052 6 

#340-16881 





14 

SEQ 0381 

*183-7886 *183-7897 *183-7908 *183-7924 *200-8872 

*203-8995 *203-9009 *203-9020 *207-9221 *207-9243 

*221-9984 *221-9999 *222-10060 *223-10086 *223-10097 

*244-11256 *245-11328 *245-11350 *246-11365 *246-11380 
*250-11607 *250-11629 *251-11644 *251-11659 *251-11671 
*255-11908 *255-11919 *256-11938 *256-11950 *273-12887 
*273-13009 *273-13024 *273-13039 *282-13764 *283-13778 
*285-13901 *285-13912 *298-14622 *298-14632 *299-14650 
*301-14770 *314-15455 *314-15465 *314-15479 *315-15539 
333-16496 

*180-7734 180-7752 181-7766 182-7821 182-7824 

200-8856 200-8866 201-8918 201-8921 201-8928 

206-9183 206-9190 209-9377 *209-9378 *220-9937 

222-10032 225-10218 *225-10219 *273-12852 273-12867 


273-13128 

*297-14566 

313-15435 

*273-13129 

298-14606 

314-15449 

*282-13718 

298-14616 

315-15501 

282-13748 

299-14668 

315-15504 

282-13758 

299-14671 

315-15512 

94-2751 

146-5891 

96-2826 

148-5989 

96-2853 

333-16464 

333-16490 

154-6337 

155-6361 




325-16047 





96-2852 

333-16489 




199-8784 

219-9906 

242-11149 

322-15895 



154-6307 

154-6322 

165-6909 

165-6914 

180-7754 

220-9959 

243-11211 

243-11216 

248-11488 

248-11493 

282-13750 

282-13755 

298-14608 

298-14613 

313-1543 7 

*140-5568 

332-16429 

*140-5571 





8-322 

8-324 

8-329 





H U 



SEO 0382 


143-5765 145-5863 

30-880 *41-1351 

137-5408 264-12367 

103-3204 108-3453 

219-9903 242-11146 


147-5961 

263-12282 

322-15893 

118-4094 


273-12823 


341-16905 

341-16904 

341-16904 

131-4722 


281-13682 



1 CZML88 

CREATED BY MACRO ON 29-MAR-82 AT 

13:44 

MACRO CROSS 

REFERENCE 




MACRO NAME 

REFERENCES 




,8GNHRD 

8-259 




BGNHW 

#7-117 




BGMMOD 

6-39 




OGNPRO 

9-379 




BGNSFT 

#8-302 




BGNSW 

#8-143 




DlSCRI 

#7-85 




OEVTYP 

#6-80 




01 SPAT 

7-101 




ENDHRD 

#8-277 




ENDHW 

7-134 




E NOMOO 

9-4 i 1 




ENDPRO 

#9-385 




ENDSFT 

8-339 




ENDSW 

8-196 




ERRTBL 

7-94 




GPRHA 

#8-272 

#8-273 



GPRMO 

8-274 

8-275 

8-317 

8-318 

GPRHl 

#8-313 

#8-315 

#8-321 

#8-325 


#8-334 

#8-335 

#8-336 


header 

6-65 




MSBYTE 

#6-65 

#6-65 

#6-65 

#6-65 

MSCNTO 

#8-272 

8-272 

#8-273 

8-273 


#8-315 

8-315 

#8-317 

8-317 


#8-323 

8-323 

#8-325 

8-325 


#8-330 

8-330 

#8-331 

8-331 


#8-335 

8-335 

#8-336 

8-336 

MtDATA 

#6-65 

6-65 

6-65 

6-65 


6-65 

6-65 

6-65 

6-65 


6-6 j 

6-65 

6-65 

6-65 


6-65 

6-65 

6-65 

6-65 


6-80 

#7-85 

7-85 


MSOECR 

#7-134 

7-134 

#8-196 

8-196 


#9-411 

9-411 



MSDEFA 

#8-272 

#8-272 

#8-273 

#8-273 


#8-315 

#8-315 

#8-317 

#8-317 


#8-323 

#8-323 

#8-325 

#8-325 


#8-330 

#8-330 

#8-331 

#8-331 


#8-335 

#8-335 

#8-336 

#8-336 

MSENDE 

#7-134 

#8-196 

#8-277 

#8-339 

MSEXCP 

#8-272 

8-272 

8-272 

#8-273 


8-275 

8-275 

#8-317 

8-317 


8-320 

#8-323 

8-323 

8-323 

MSGEN 

#6-65 

#6-65 

#6-65 

#6-65 


#6-65 

#6-65 

#6-65 

#6-65 


#6-65 

#6-65 

#6-65 

#6-65 


#6-65 

#6-65 

#6-65 

#6-65 


#6-65 

#6-65 

#6-65 

#6-65 


#6-65 

#6-65 

#6-65 

#6-65 


#6-65 

#6-65 

#6-65 

#6-65 


#6-65 

#6-65 

#6-65 

#6-65 


#7-94 

#7-94 

#7-101 

#7-101 


I 14 

PAGE 20 
CRE F 


8-320 

#8-326 

8-323 

#8-327 

8-330 

#8-328 

#8-331 

#8-332 

#8-274 

8-274 

#8-275 

8-275 

#8-313 

#8-318 

8-318 

#8-320 

8-320 

#8-321 

#8-326 

8-326 

#8-327 

8-327 

#8-328 

#8-332 

8-332 

#8-333 

8-333 

#8-334 

6-65 

6-65 

6-65 

6-65 

6-65 

6-65 

6-65 

#6-65 

6-65 

6-65 

f -65 

6-65 

6-65 

6-65 

6-65 

6-65 

6-65 

6-65 

6-65 

6-65 

#8-277 

8-277 

#8-339 

8-339 

#9-385 

#8-274 

#8-274 

#8-275 

#8-275 

#8-313 

#8-318 

#8-318 

#8-320 

#8-320 

#8-321 

#8-326 

#8-326 

#8-327 

#8-327 

#8-328 

#8-332 

#8-332 

#8-333 

#8-333 

#8-334 

#9-411 

8-273 

8-273 

#8-274 

8-274 

8-274 

8-317 

#8-318 

8-318 

8-318 

#8-320 

#8-330 

#6-65 

8-330 

#6-65 

8-330 

#6-65 

#6-65 

#6-65 

#6-65 

#6-65 

#6-65 

#6-65 

#6-65 

#6-65 

#6-65 

#6-65 

#6-65 

#6-65 

#6-65 

#6-65 

#6-65 

#6-65 

#6-65 

#6-65 

#6-65 

#6-65 

#6-65 

#6-65 

#6-65 

#6-65 

#6-65 

#6-65 

#6-65 

#6-65 

#6-65 

#6-65 

#6-65 

#6-65 

#6-65 

#6-65 

#6-80 

#6-80 

#7-85 

#7-117 

#7-117 

#7-117 

#7-117 

#7-134 


SEO 0383 


#8-333 


8-313 

8-321 

8-328 

8- 334 

6-65 

6-65 

6-65 

#6-80 

9- 385 


#8-313 

#8-321 

#8-328 

#8-334 


#8-275 

8-320 


#6-65 

#6-65 

#6-65 

#6-65 

#6-65 

#6-65 

#6-65 

#7-85 

#7-134 



J 14 


CZMIB8 

CREATED BY MACRO ON 29* 

•MAR-82 AT 1 

3:44 

PAGE 21 

MACRO CROSS 

REFERENCE 




CREF 

MACRO NAME 

REFERENCES 



#8-143 

#8-196 

#8-143 

#8-143 

#8-143 


#8-302 

#8-302 

#8-339 

#8-339 

#9-379 

MSGETS 

#7-134 

7-134 

#8-196 

8-196 

#8-277 

#8-319 

8-319 

#8-322 

8-322 

#8-324 


#9-385 

9-385 

#9-411 

9-411 


MWETT 

#8-314 

8-314 

#8-316 

8-316 

#8-319 

*3-329 

8-329 

#6-65 

#6-65 

#6-65 

MSGNG6 

#6-39 

#6-65 

#6-65 

#6-65 

#6-65 

#6-65 

#6-65 


#6-65 

#6-65 

#6-65 

#6-65 

#6-65 


#6-65 

#6-65 

#6-65 

#6-65 

#6-65 


#6-65 

#6-65 

#6-65 

#6-65 

#6-65 


#6-65 

#6-65 

#6-65 

#6-65 

#6-65 


#6-65 

#6-65 

#6-65 

#6-65 

#6-65 


#6-65 

#6-65 

#6-65 

#6-65 

#6-65 


#7-85 

#7-94 

#7-94 

#7-101 

#7-101 


#8-143 

#8-259 

#8-259 

#8-302 

#8-302 

M$6NI« 

#6-65 

6-65 

6-65 

6-65 

6-65 

#6-65 

6-65 

#6-65 

6-65 

#6-65 


#6-65 

6-65 

#6-65 

6-65 

#6-65 


#6-65 

6-65 

#6-65 

6-65 

#6-65 


#6-65 

6-65 

#6-65 

#6-65 

6-65 


#6-65 

6-65 

#6-65 

6-65 

#6-65 


#6-65 

6-65 

#6-65 

6-65 

#6-65 


#6-65 

6-65 

#6-65 

6-65 

#6-65 


#6-63 

6-65 

#6-65 

6-65 

#6-65 


#6-80 

#6-80 

6-80 

6-80 

#7-85 


#7-101 

7-101 

#7-117 

7-117 

#8-143 


8-272 

8-272 

8-272 

#8-273 

8-273 


8-274 

8-274 

8-274 

8-274 

#8-275 


#8-277 

8-277 

#8-302 

8-302 

#8-313 


#8-315 

8-315 

8-315 

8-315 

#8-316 


8-317 

8-317 

#8-318 

8-318 

8-318 


#8-320 

8-320 

8-320 

8-320 

8-320 


#8-322 

8-322 

#8-323 

8-323 

8-323 


#8-325 

8-325 

8-325 

8-325 

#8-326 


8-327 

8-327 

#8-328 

8-328 

8-328 


8-330 

8-330 

8-330 

8-330 

#8-331 


8-332 

8-332 

#8-333 

8-333 

8-333 


#8-335 

8-335 

8-335 

8-335 

#8-336 

MSGNTA 

#7-134 

#7-134 

#8-196 

#8-196 

#8-277 

MSHAPT 

#6-65 

#6-65 




MSHNAP 

#6-65 

#6-65 


#7-117 

#7-117 

MtINCR 

#6-39 

#6-39 

#7-117 

#8-259 

#8-259 

#8-259 

#8-259 

#8-302 


#9-379 

#9-379 




MJMCHI 

#6-13 

#6-13 




MtMClO 

#6-13 

#6-13 



#8-277 

M1POP 

#7-134 

7-134 

#8-196 

8-196 


#9-411 

9-411 



#8-143 

MSPUSH 

#6-39 

#6-39 

#7-117 

#7-117 

#9-379 

#9-379 





SEO 0384 


#8-1<>6 

#8-259 

#8-259 

#8-277 

#8-277 

#9-379 





8-277 

#8-314 

8-314 

#8-316 

8-316 

8-324 

#8-329 

8-329 

#8-339 

8-339 

8-319 

#3-322 

8-322 

#8-324 

8-324 

#6-65 

#6-65 

#6-65 

#6-65 

#6-65 

#6-65 

#6*65 

#6-65 

#6-65 

#6-65 

#6-65 

#6-65 

#6-65 

#6-65 

#6-65 

#6-65 

#6-65 

#6-65 

#6-65 

#6-65 

#6-65 

#6-65 

#6-65 

#6-65 

#6-65 

#6-65 

#6-65 

#6-65 

#6-65 

#6-65 

#6-65 

#6-65 

#6-65 

#6-65 

#6-65 

#6-65 

#6-65 

#6-80 

#6-80 

#7-85 

#7-117 

#7-117 

#7-117 

#8-143 

#8-143 

#9-379 

#9-379 




6-65 

#6-65 

6-65 

#6-65 

6-65 

6-65 

#6-65 

6-65 

#6-65 

6-65 

6-65 

#6-65 

6-65 

#6-65 

6-65 

6-65 

#6-65 

6-65 

#6-65 

6-65 

#6-65 

6-65 

#6-65 

6-65 

6-65 

6-65 

#6-65 

6-65 

#6-65 

6-65 

6-65 

#6-65 

6-65 

#6-65 

6-65 

6-65 

#6-65 

6-65 

#6-65 

6-65 

6-65 

#6-65 

6-65 

#6-65 

6-65 

#7-85 

7-85 

7-85 

#7-101 

7-101 

8-143 

#8-259 

8*259 

#8-272 

8-272 

8-273 

8-273 

8-273 

#8-274 

8-274 

8-275 

8-275 

8-275 

8-275 

8-275 

8-313 

8-313 

8-313 

#8-314 

8-314 

8-316 

#8-317 

8-317 

8-317 

8-317 

8-318 

8-318 

8-318 

#8-319 

8-319 

8-320 

#8-321 

8-321 

8-321 

8-321 

8-323 

8-323 

8-323 

#8-324 

8-324 

8-326 

8-326 

8-326 

#8-327 

8-327 

8-328 

#8-329 

8-329 

#8-330 

8-330 

8-331 

8-331 

8-331 

#8-332 

8-332 

8-333 

#8-334 

8-334 

8-334 

8-334 

8-336 

8-336 

8-336 

#8-339 

8-339 

#8-277 

#8-339 

#8-339 



#7-117 

#8-143 

#8-143 

#8-143 

#8-143 

#8-302 

#8-302 

#8-302 

#9-379 

#9-379 


8-277 

#8-339 

8-339 

#9-385 

9-385 

#8-143 

#8-259 

#8-259 

#8-302 

#8-302 




K 


SEQ 0385 


#8-274 

#8-318 

#8-326 

#8-332 

#8-275 

#8-320 

#8-327 

#8-333 

#8-275 

#8-320 

#8-327 

#8-333 

#8-313 

#8-321 

#8-328 

#8-334 

#8-313 

#8-321 

#8-328 

#8-334 

#8-143 

#8-259 

#8-259 

#8-302 

#8-302 

#8-272 

#8-314 

#8-319 

#8-324 

#8-329 

#8-334 

#8-272 

#8-314 

#8-319 

#8-324 

#8-329 

#8-334 

#8-273 

#8-315 

#8-320 

#8-325 

#8-330 

#8-335 

#8-273 

#8-315 

#8-320 

#8-325 

#8-330 

#8-335 

#8-274 

#8-316 

#8-321 

#8-326 

#8-331 

#8-336 

#8-319 

#8-322 

#8-322 

#8-324 

#8-324 



